/[emacs]/emacs/lisp/w32-fns.el
ViewVC logotype

Diff of /emacs/lisp/w32-fns.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.50.2.2 by miles, Tue Oct 14 23:51:28 2003 UTC revision 1.50.2.3 by miles, Tue Jul 6 09:31:50 2004 UTC
# Line 1  Line 1 
1  ;;; w32-fns.el --- Lisp routines for Windows NT  ;;; w32-fns.el --- Lisp routines for Windows NT
2    
3  ;; Copyright (C) 1994, 2001 Free Software Foundation, Inc.  ;; Copyright (C) 1994, 2001, 2004 Free Software Foundation, Inc.
4    
5  ;; Author: Geoff Voelker <voelker@cs.washington.edu>  ;; Author: Geoff Voelker <voelker@cs.washington.edu>
6  ;; Keywords: internal  ;; Keywords: internal
# Line 54  numbers, and the build number." Line 54  numbers, and the build number."
54    (x-server-version))    (x-server-version))
55    
56  (defun w32-using-nt ()  (defun w32-using-nt ()
57    "Return non-nil if literally running on Windows NT (i.e., not Windows 9X)."    "Return non-nil if running on a 32-bit Windows system.
58    That includes all Windows systems except for 9X/Me."
59    (and (eq system-type 'windows-nt) (getenv "SystemRoot")))    (and (eq system-type 'windows-nt) (getenv "SystemRoot")))
60    
61  (defun w32-shell-name ()  (defun w32-shell-name ()
# Line 71  numbers, and the build number." Line 72  numbers, and the build number."
72                 w32-system-shells)))                 w32-system-shells)))
73    
74  (defun w32-shell-dos-semantics ()  (defun w32-shell-dos-semantics ()
75    "Return t if the interactive shell being used expects msdos shell semantics."    "Return non-nil if the interactive shell being used expects MSDOS shell semantics."
76    (or (w32-system-shell-p (w32-shell-name))    (or (w32-system-shell-p (w32-shell-name))
77        (and (member (downcase (file-name-nondirectory (w32-shell-name)))        (and (member (downcase (file-name-nondirectory (w32-shell-name)))
78                     '("cmdproxy" "cmdproxy.exe"))                     '("cmdproxy" "cmdproxy.exe"))
# Line 265  with a definition that really does chang Line 266  with a definition that really does chang
266    (get 'x-selections type))    (get 'x-selections type))
267    
268  (defun set-w32-system-coding-system (coding-system)  (defun set-w32-system-coding-system (coding-system)
269    "Set the coding system used by the Windows System to CODING-SYSTEM.    "Set the coding system used by the Windows system to CODING-SYSTEM.
270  This is used for things like passing font names with non-ASCII  This is used for things like passing font names with non-ASCII
271  characters in them to the system. For a list of possible values of  characters in them to the system. For a list of possible values of
272  CODING-SYSTEM, use \\[list-coding-systems].  CODING-SYSTEM, use \\[list-coding-systems].
273    
274  This function is provided for backward compatibility, since  This function is provided for backward compatibility, since
275  w32-system-coding-system is now an alias for `locale-coding-system'."  `w32-system-coding-system' is now an alias for `locale-coding-system'."
276    (interactive    (interactive
277     (list (let ((default locale-coding-system))     (list (let ((default locale-coding-system))
278             (read-coding-system             (read-coding-system

Legend:
Removed from v.1.50.2.2  
changed lines
  Added in v.1.50.2.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26