emacs/lisp/w32-fns.el

9 ;; This file is part of GNU Emacs.
22 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
33 ;; mode-line-format defined to show buffer file type.
38 (defvar explicit-shell-file-name)
46 ;; Ignore case on file-name completion
51 (setq find-file-visit-truename t)
60   "Return non-nil if running on a 32-bit Windows system.
62   (and (eq system-type 'windows-nt) (getenv "SystemRoot")))
64 (defun w32-shell-name ()
65   "Return the name of the shell being used."
66   (or (bound-and-true-p explicit-shell-file-name)
72 (defun w32-system-shell-p (shell-name)
73   (and shell-name
74        (member (downcase (file-name-nondirectory shell-name))
75 	       w32-system-shells)))
79   (or (w32-system-shell-p (w32-shell-name))
80       (and (member (downcase (file-name-nondirectory (w32-shell-name)))
82 	   (w32-system-shell-p (getenv "COMSPEC")))))
92 	(system-shell))
95     (if (w32-system-shell-p (getenv "ESHELL"))
99     (if (w32-system-shell-p (getenv "SHELL"))
103     (if (w32-system-shell-p shell-file-name)
104 	(insert (format "Warning! shell-file-name uses %s.
106 			shell-file-name)))
107     (if (and (boundp 'explicit-shell-file-name)
108 	     (w32-system-shell-p explicit-shell-file-name))
109 	(insert (format "Warning! explicit-shell-file-name uses %s.
111 			explicit-shell-file-name)))
112     (setq system-shell (> (buffer-size) 0))
115     ;; "system" shells, despite the drawbacks, but still warn if
117     (if w32-allow-system-shell
120     (cond (system-shell
124 You should set this to \"/c\" when using a system shell.\n\n"))
127 You should set this to nil when using a system shell.\n\n")))
128 	  ;; Non-system shells.
132 You should set this to \"-c\" when using a non-system shell.\n\n"))
135 You should set this to t when using a non-system shell.\n\n"))))
144 (defun set-default-process-coding-system ()
148   (setq default-process-coding-system
149 	(if default-enable-multibyte-characters
153       ;; On Windows 9x, make cmdproxy default to using DOS line endings
155       (setq process-coding-system-alist
157 	       . ,(if default-enable-multibyte-characters
161 (add-hook 'before-init-hook 'set-default-process-coding-system)
183   "List the name and id of all locales supported by Windows."
189   (insert "LCID\tAbbrev\tFull name\n\n")
201 ;;; Setup Info-default-directory-list to include the info directory
203 ;;; but when this is set Info-default-directory-list is ignored.  We
207   (let* ((instdir (file-name-directory invocation-directory))
208 	 (dir1 (expand-file-name "../info/" instdir))
209 	 (dir2 (expand-file-name "../../../info/" instdir)))
210     (if (file-exists-p dir1)
211 	(setq Info-default-directory-list
212 	      (append Info-default-directory-list (list dir1)))
213       (if (file-exists-p dir2)
214 	  (setq Info-default-directory-list
215 		(append Info-default-directory-list (list dir2)))))))
231 ;	     (setq source-directory (file-name-as-directory
232 ;				     (expand-file-name ".." exec-directory)))))
235   "Convert a standard file's name to something suitable for the current OS.
244     (let ((name
250       (if (and (> (length name) 1)
251 	       (eq (aref name 1) ?:))
254       (while (string-match "[?*:<>|\"\000-\037]" name start)
255 	(aset name (match-beginning 0) ?!)
261 	(while (string-match "/" name start)
262 	  (aset name (match-beginning 0) ?\\)
264       name)))
275 (defun set-w32-system-coding-system (coding-system)
276   "Set the coding system used by the Windows system to CODING-SYSTEM.
278 characters in them to the system.  For a list of possible values of
279 CODING-SYSTEM, use \\[list-coding-systems].
282 `w32-system-coding-system' is now an alias for `locale-coding-system'."
284    (list (let ((default locale-coding-system))
285            (read-coding-system
286             (format "Coding system for system calls (default %s): "
287                     default)
288             default))))
289   (check-coding-system coding-system)
290   (setq locale-coding-system coding-system))
292 ;; locale-coding-system was introduced to do the same thing as
293 ;; w32-system-coding-system. Use that instead.
294 (defvaralias 'w32-system-coding-system 'locale-coding-system)
296 ;;; Set to a system sound if you want a fancy bell.
359 XLFD-CHARSET is a string which will appear in the XLFD font name to
427 If `x-select-enable-clipboard' is non-nil, copy the text to the system
465   "Like `batch-update-autoloads', but takes the name of the autoloads file
469 munge command-line arguments that include file names to a horrible mess
471   (let ((generated-autoload-file
472 	 (expand-file-name (pop command-line-args-left))))
476   "Append non-empty non-comment lines in the file EXTRA to the file ORIG.
483   (find-file orig)
485   (insert-file-contents extra)