sml-mode / sml-compat.el

Diff from to


 			(expand-file-name prefix temporary-file-directory)))
 		 (if dir-flag
 		     (make-directory file)
-		   (write-region "" nil file nil 'silent nil 'excl))
+		   (if (featurep 'xemacs)
+		       ;; The 7th arg to `write-region' specifies the
+		       ;; coding system to use in XEmacs.
+		       (write-region "" nil file nil 'silent nil)
+		     (write-region "" nil file nil 'silent nil 'excl)))
 	    (file-already-exists t))
       ;; the file was somehow created by someone else between
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.