-;;; winnt.el --- Lisp routines for Windows NT.
-
-;; Copyright (C) 1994 Free Software Foundation, Inc.
-
-;; Author: Geoff Voelker (voelker@cs.washington.edu)
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-
-;; GNU Emacs is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Commentary:
-
-;; (August 12, 1993)
-;; Created.
-
-;; (November 21, 1994)
-;; [C-M-backspace] defined.
-;; mode-line-format defined to show buffer file type.
-;; audio bell initialized.
-
-;;; Code:
-
-;; Map delete and backspace
-(define-key function-key-map [backspace] "\177")
-(define-key function-key-map [delete] "\C-d")
-(define-key function-key-map [M-backspace] [?\M-\177])
-(define-key function-key-map [C-M-backspace] [\C-\M-delete])
-
-;; Show file type (text or binary) on modeline
-(setq-default mode-line-format
- (list (purecopy "")
- 'mode-line-modified
- 'mode-line-buffer-identification
- (purecopy " ")
- 'global-mode-string
- (purecopy " %[(")
- (purecopy "%t:")
- 'mode-name 'mode-line-process 'minor-mode-alist
- (purecopy "%n")
- (purecopy ")%]--")
- (purecopy '(line-number-mode "L%l--"))
- (purecopy '(column-number-mode "C%c--"))
- (purecopy '(-3 . "%p"))
- (purecopy "-%-")))
-
-;; Ignore case on file-name completion
-(setq completion-ignore-case t)
-
-;; The cmd.exe shell uses the "/c" switch instead of the "-c" switch
-;; for executing its command line argument (from simple.el).
-(setq shell-command-switch "/c")
-
-;; For appending suffixes to directories and files in shell completions.
-(add-hook 'shell-mode-hook
- '(lambda () (setq comint-completion-addsuffix '("\\" . " "))))
-
-;; Use ";" instead of ":" as a path separator (from files.el).
-(setq path-separator ";")
-
-;; Set the null device (for compile.el).
-(setq grep-null-device "NUL")
-
-;; Set the grep regexp to match entries with drive letters.
-(setq grep-regexp-alist
- '(("^\\(\\([a-zA-Z]:\\)?[^:( \t\n]+\\)[:( \t]+\\([0-9]+\\)[:) \t]" 1 3)))
-
-;; Taken from dos-fn.el ... don't want all that's in the file, maybe
-;; separate it out someday.
-
-(defvar file-name-buffer-file-type-alist
- '(
- ("[:/].*config.sys$" . nil) ; config.sys text
- ("\\.elc$" . t) ; emacs stuff
- ("\\.\\(obj\\|exe\\|com\\|lib\\|sys\\|chk\\|out\\|bin\\|ico\\|pif\\)$" . t)
- ; MS-Dos stuff
- ("\\.\\(arc\\|zip\\|pak\\|lzh\\|zoo\\)$" . t)
- ; Packers
- ("\\.\\(a\\|o\\|tar\\|z\\|gz\\|taz\\)$" . t)
- ; Unix stuff
- ("\\.tp[ulpw]$" . t)
- ; Borland Pascal stuff
- ("[:/]tags$" . t)
- ; Emacs TAGS file
- )
- "*Alist for distinguishing text files from binary files.
-Each element has the form (REGEXP . TYPE), where REGEXP is matched
-against the file name, and TYPE is nil for text, t for binary.")
-
-(defun find-buffer-file-type (filename)
- (let ((alist file-name-buffer-file-type-alist)
- (found nil)
- (code nil))
- (let ((case-fold-search t))
- (setq filename (file-name-sans-versions filename))
- (while (and (not found) alist)
- (if (string-match (car (car alist)) filename)
- (setq code (cdr (car alist))
- found t))
- (setq alist (cdr alist))))
- (if found
- (cond((memq code '(nil t)) code)
- ((and (symbolp code) (fboundp code))
- (funcall code filename)))
- default-buffer-file-type)))
-
-(defun find-file-binary (filename)
- "Visit file FILENAME and treat it as binary."
- (interactive "FFind file binary: ")
- (let ((file-name-buffer-file-type-alist '(("" . t))))
- (find-file filename)))
-
-(defun find-file-text (filename)
- "Visit file FILENAME and treat it as a text file."
- (interactive "FFind file text: ")
- (let ((file-name-buffer-file-type-alist '(("" . nil))))
- (find-file filename)))
-
-(defun find-file-not-found-set-buffer-file-type ()
- (save-excursion
- (set-buffer (current-buffer))
- (setq buffer-file-type (find-buffer-file-type (buffer-file-name))))
- nil)
-
-;;; To set the default file type on new files.
-(add-hook 'find-file-not-found-hooks 'find-file-not-found-set-buffer-file-type)
-
-;;; For using attached Unix filesystems.
-(defun save-to-unix-hook ()
- (save-excursion
- (setq buffer-file-type t))
- nil)
-
-(defun revert-from-unix-hook ()
- (save-excursion
- (setq buffer-file-type (find-buffer-file-type (buffer-file-name))))
- nil)
-
-;; Really should provide this capability at the drive letter granularity.
-(defun using-unix-filesystems (flag)
- "Read and write all files assuming that they are on a drive attached
-to a remote Unix file system. No CR/LF translation is done on any files
-in this case. This behavior is activated when FLAG is t and deactived
-when FLAG is any other value."
- (if flag
- (progn
- (add-hook 'write-file-hooks 'save-to-unix-hook)
- (add-hook 'after-save-hook 'revert-from-unix-hook))
- (progn
- (remove-hook 'write-file-hooks 'save-to-unix-hook)
- (remove-hook 'after-save-hook 'revert-from-unix-hook))))
-
-;;; Avoid creating auto-save file names containing illegal characters
-;;; (primarily "*", eg. for the *mail* buffer).
-(fset 'original-make-auto-save-file-name
- (symbol-function 'make-auto-save-file-name))
-
-(defun make-auto-save-file-name ()
- "Return file name to use for auto-saves of current buffer.
-Does not consider `auto-save-visited-file-name' as that variable is checked
-before calling this function. You can redefine this for customization.
-See also `auto-save-file-name-p'."
- (let ((name (original-make-auto-save-file-name))
- (start 0))
- ;; destructively replace occurences of * or ? with $
- (while (string-match "[?*]" name start)
- (aset name (match-beginning 0) ?$)
- (setq start (1+ (match-end 0))))
- name))
-
-;;; Fix interface to (X-specific) mouse.el
-(defun x-set-selection (type data)
- (or type (setq type 'PRIMARY))
- (put 'x-selections type data))
-
-(defun x-get-selection (&optional type data-type)
- (or type (setq type 'PRIMARY))
- (get 'x-selections type))
-
-(fmakunbound 'font-menu-add-default)
-(global-unset-key [C-down-mouse-1])
-(global-unset-key [C-down-mouse-2])
-(global-unset-key [C-down-mouse-3])
-
-;;; Set to a system sound if you want a fancy bell.
-(set-message-beep nil)
-
-;;; winnt.el ends here
+;;; w32-fns.el --- Lisp routines for Windows NT.
+
+;; Copyright (C) 1994 Free Software Foundation, Inc.
+
+;; Author: Geoff Voelker <voelker@cs.washington.edu>
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING. If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Commentary:
+
+;; (August 12, 1993)
+;; Created.
+
+;; (November 21, 1994)
+;; [C-M-backspace] defined.
+;; mode-line-format defined to show buffer file type.
+;; audio bell initialized.
+
+;;; Code:
+
+;; Map delete and backspace
+(define-key function-key-map [backspace] "\177")
+(define-key function-key-map [delete] "\C-d")
+(define-key function-key-map [M-backspace] [?\M-\177])
+(define-key function-key-map [C-M-backspace] [\C-\M-delete])
+
+;; Ignore case on file-name completion
+(setq completion-ignore-case t)
+
+;; Map all versions of a filename (8.3, longname, mixed case) to the
+;; same buffer.
+(setq find-file-visit-truename t)
+
+(defvar w32-system-shells '("cmd" "cmd.exe" "command" "command.com"
+ "4nt" "4nt.exe" "4dos" "4dos.exe"
+ "ndos" "ndos.exe")
+ "List of strings recognized as Windows NT/9X system shells.")
+
+(defun w32-using-nt ()
+ "Return non-nil if literally running on Windows NT (i.e., not Windows 9X)."
+ (and (eq system-type 'windows-nt) (getenv "SystemRoot")))
+
+(defun w32-shell-name ()
+ "Return the name of the shell being used."
+ (or (and (boundp 'explicit-shell-file-name) explicit-shell-file-name)
+ (getenv "ESHELL")
+ (getenv "SHELL")
+ (and (w32-using-nt) "cmd.exe")
+ "command.com"))
+
+(defun w32-system-shell-p (shell-name)
+ (and shell-name
+ (member (downcase (file-name-nondirectory shell-name))
+ w32-system-shells)))
+
+(defun w32-shell-dos-semantics ()
+ "Return t if the interactive shell being used expects msdos shell semantics."
+ (or (w32-system-shell-p (w32-shell-name))
+ (and (member (downcase (file-name-nondirectory (w32-shell-name)))
+ '("cmdproxy" "cmdproxy.exe"))
+ (w32-system-shell-p (getenv "COMSPEC")))))
+
+(defvar w32-allow-system-shell nil
+ "*Disable startup warning when using \"system\" shells.")
+
+(defun w32-check-shell-configuration ()
+ "Check the configuration of shell variables on Windows NT/9X.
+This function is invoked after loading the init files and processing
+the command line arguments. It issues a warning if the user or site
+has configured the shell with inappropriate settings."
+ (interactive)
+ (let ((prev-buffer (current-buffer))
+ (buffer (get-buffer-create "*Shell Configuration*"))
+ (system-shell))
+ (set-buffer buffer)
+ (erase-buffer)
+ (if (w32-system-shell-p (getenv "ESHELL"))
+ (insert (format "Warning! The ESHELL environment variable uses %s.
+You probably want to change it so that it uses cmdproxy.exe instead.\n\n"
+ (getenv "ESHELL"))))
+ (if (w32-system-shell-p (getenv "SHELL"))
+ (insert (format "Warning! The SHELL environment variable uses %s.
+You probably want to change it so that it uses cmdproxy.exe instead.\n\n"
+ (getenv "SHELL"))))
+ (if (w32-system-shell-p shell-file-name)
+ (insert (format "Warning! shell-file-name uses %s.
+You probably want to change it so that it uses cmdproxy.exe instead.\n\n"
+ shell-file-name)))
+ (if (and (boundp 'explicit-shell-file-name)
+ (w32-system-shell-p explicit-shell-file-name))
+ (insert (format "Warning! explicit-shell-file-name uses %s.
+You probably want to change it so that it uses cmdproxy.exe instead.\n\n"
+ explicit-shell-file-name)))
+ (setq system-shell (> (buffer-size) 0))
+
+ ;; Allow user to specify that they really do want to use one of the
+ ;; "system" shells, despite the drawbacks, but still warn if
+ ;; shell-command-switch doesn't match.
+ (if w32-allow-system-shell
+ (erase-buffer))
+
+ (cond (system-shell
+ ;; System shells.
+ (if (string-equal "-c" shell-command-switch)
+ (insert "Warning! shell-command-switch is \"-c\".
+You should set this to \"/c\" when using a system shell.\n\n"))
+ (if w32-quote-process-args
+ (insert "Warning! w32-quote-process-args is t.
+You should set this to nil when using a system shell.\n\n")))
+ ;; Non-system shells.
+ (t
+ (if (string-equal "/c" shell-command-switch)
+ (insert "Warning! shell-command-switch is \"/c\".
+You should set this to \"-c\" when using a non-system shell.\n\n"))
+ (if (not w32-quote-process-args)
+ (insert "Warning! w32-quote-process-args is nil.
+You should set this to t when using a non-system shell.\n\n"))))
+ (if (> (buffer-size) 0)
+ (display-buffer buffer)
+ (kill-buffer buffer))
+ (set-buffer prev-buffer)))
+
+(add-hook 'after-init-hook 'w32-check-shell-configuration)
+
+;;; Override setting chosen at startup.
+(defun set-default-process-coding-system ()
+ ;; Most programs on Windows will accept Unix line endings on input
+ ;; (and some programs ported from Unix require it) but most will
+ ;; produce DOS line endings on output.
+ (setq default-process-coding-system
+ (if default-enable-multibyte-characters
+ '(undecided-dos . undecided-unix)
+ '(raw-text-dos . raw-text-unix)))
+ (or (w32-using-nt)
+ ;; On Windows 9x, make cmdproxy default to using DOS line endings
+ ;; for input, because command.com requires this.
+ (setq process-coding-system-alist
+ `(("[cC][mM][dD][pP][rR][oO][xX][yY]"
+ . ,(if default-enable-multibyte-characters
+ '(undecided-dos . undecided-dos)
+ '(raw-text-dos . raw-text-dos)))))))
+
+(add-hook 'before-init-hook 'set-default-process-coding-system)
+
+
+;;; Basic support functions for managing Emacs' locale setting
+
+(defvar w32-valid-locales nil
+ "List of locale ids known to be supported.")
+
+;;; This is the brute-force version; an efficient version is now
+;;; built-in though.
+(if (not (fboundp 'w32-get-valid-locale-ids))
+ (defun w32-get-valid-locale-ids ()
+ "Return list of all valid Windows locale ids."
+ (let ((i 65535)
+ locales)
+ (while (> i 0)
+ (if (w32-get-locale-info i)
+ (setq locales (cons i locales)))
+ (setq i (1- i)))
+ locales)))
+
+(defun w32-list-locales ()
+ "List the name and id of all locales supported by Windows."
+ (interactive)
+ (if (null w32-valid-locales)
+ (setq w32-valid-locales (w32-get-valid-locale-ids)))
+ (switch-to-buffer-other-window (get-buffer-create "*Supported Locales*"))
+ (erase-buffer)
+ (insert "LCID\tAbbrev\tFull name\n\n")
+ (insert (mapconcat
+ '(lambda (x)
+ (format "%d\t%s\t%s"
+ x
+ (w32-get-locale-info x)
+ (w32-get-locale-info x t)))
+ w32-valid-locales "\n"))
+ (insert "\n")
+ (goto-char (point-min)))
+
+
+;;; Setup Info-default-directory-list to include the info directory
+;;; near where Emacs executable was installed. We used to set INFOPATH,
+;;; but when this is set Info-default-directory-list is ignored. We
+;;; also cannot rely upon what is set in paths.el because they assume
+;;; that configuration during build time is correct for runtime.
+(defun w32-init-info ()
+ (let* ((instdir (file-name-directory invocation-directory))
+ (dir1 (expand-file-name "../info/" instdir))
+ (dir2 (expand-file-name "../../../info/" instdir)))
+ (if (file-exists-p dir1)
+ (setq Info-default-directory-list
+ (append Info-default-directory-list (list dir1)))
+ (if (file-exists-p dir2)
+ (setq Info-default-directory-list
+ (append Info-default-directory-list (list dir2)))))))
+
+(add-hook 'before-init-hook 'w32-init-info)
+
+;;; The variable source-directory is used to initialize Info-directory-list.
+;;; However, the common case is that Emacs is being used from a binary
+;;; distribution, and the value of source-directory is meaningless in that
+;;; case. Even worse, source-directory can refer to a directory on a drive
+;;; on the build machine that happens to be a removable drive on the user's
+;;; machine. When this happens, Emacs tries to access the removable drive
+;;; and produces the abort/retry/ignore dialog. Since we do not use
+;;; source-directory, set it to something that is a reasonable approximation
+;;; on the user's machine.
+
+(add-hook 'before-init-hook
+ '(lambda ()
+ (setq source-directory (file-name-as-directory
+ (expand-file-name ".." exec-directory)))))
+
+;; Avoid creating auto-save file names containing invalid characters.
+(fset 'original-make-auto-save-file-name
+ (symbol-function 'make-auto-save-file-name))
+
+(defun make-auto-save-file-name ()
+ "Return file name to use for auto-saves of current buffer.
+Does not consider `auto-save-visited-file-name' as that variable is checked
+before calling this function. You can redefine this for customization.
+See also `auto-save-file-name-p'."
+ (convert-standard-filename (original-make-auto-save-file-name)))
+
+(defun convert-standard-filename (filename)
+ "Convert a standard file's name to something suitable for the current OS.
+This function's standard definition is trivial; it just returns the argument.
+However, on some systems, the function is redefined
+with a definition that really does change some file names."
+ (let ((name (copy-sequence filename))
+ (start 0))
+ ;; leave ':' if part of drive specifier
+ (if (eq (aref name 1) ?:)
+ (setq start 2))
+ ;; destructively replace invalid filename characters with !
+ (while (string-match "[?*:<>|\"\000-\037]" name start)
+ (aset name (match-beginning 0) ?!)
+ (setq start (match-end 0)))
+ ;; convert directory separators to Windows format
+ ;; (but only if the shell in use requires it)
+ (if (w32-shell-dos-semantics)
+ (while (string-match "/" name start)
+ (aset name (match-beginning 0) ?\\)
+ (setq start (match-end 0))))
+ name))
+
+;;; Fix interface to (X-specific) mouse.el
+(defun x-set-selection (type data)
+ (or type (setq type 'PRIMARY))
+ (put 'x-selections type data))
+
+(defun x-get-selection (&optional type data-type)
+ (or type (setq type 'PRIMARY))
+ (get 'x-selections type))
+
+(defun set-w32-system-coding-system (coding-system)
+ "Set the coding system used by the Windows System to CODING-SYSTEM.
+This is used for things like passing font names with non-ASCII
+characters in them to the system. For a list of possible values of
+CODING-SYSTEM, use \\[list-coding-systems]."
+ (interactive
+ (list (let ((default w32-system-coding-system))
+ (read-coding-system
+ (format "Coding system for system calls (default, %s): "
+ default)
+ default))))
+ (check-coding-system coding-system)
+ (setq w32-system-coding-system coding-system))
+;; Set system coding system initially to iso-latin-1
+(set-w32-system-coding-system 'iso-latin-1)
+
+;;; Set to a system sound if you want a fancy bell.
+(set-message-beep nil)
+
+;;; The "Windows" keys on newer keyboards bring up the Start menu
+;;; whether you want it or not - make Emacs ignore these keystrokes
+;;; rather than beep.
+(global-set-key [lwindow] 'ignore)
+(global-set-key [rwindow] 'ignore)
+
+;; Map certain keypad keys into ASCII characters
+;; that people usually expect.
+(define-key function-key-map [tab] [?\t])
+(define-key function-key-map [linefeed] [?\n])
+(define-key function-key-map [clear] [11])
+(define-key function-key-map [return] [13])
+(define-key function-key-map [escape] [?\e])
+(define-key function-key-map [M-tab] [?\M-\t])
+(define-key function-key-map [M-linefeed] [?\M-\n])
+(define-key function-key-map [M-clear] [?\M-\013])
+(define-key function-key-map [M-return] [?\M-\015])
+(define-key function-key-map [M-escape] [?\M-\e])
+
+;; These don't do the right thing (voelker)
+;(define-key function-key-map [backspace] [127])
+;(define-key function-key-map [delete] [127])
+;(define-key function-key-map [M-backspace] [?\M-\d])
+;(define-key function-key-map [M-delete] [?\M-\d])
+
+;; These tell read-char how to convert
+;; these special chars to ASCII.
+(put 'tab 'ascii-character ?\t)
+(put 'linefeed 'ascii-character ?\n)
+(put 'clear 'ascii-character 12)
+(put 'return 'ascii-character 13)
+(put 'escape 'ascii-character ?\e)
+(put 'backspace 'ascii-character 127)
+(put 'delete 'ascii-character 127)
+
+;; W32 uses different color indexes than standard:
+
+(defvar w32-tty-standard-colors
+ '(("white" 15 65535 65535 65535)
+ ("yellow" 14 65535 65535 0) ; Yellow
+ ("lightmagenta" 13 65535 0 65535) ; Magenta
+ ("lightred" 12 65535 0 0) ; Red
+ ("lightcyan" 11 0 65535 65535) ; Cyan
+ ("lightgreen" 10 0 65535 0) ; Green
+ ("lightblue" 9 0 0 65535) ; Blue
+ ("darkgray" 8 26112 26112 26112) ; Gray40
+ ("lightgray" 7 48640 48640 48640) ; Gray
+ ("brown" 6 40960 20992 11520) ; Sienna
+ ("magenta" 5 35584 0 35584) ; DarkMagenta
+ ("red" 4 45568 8704 8704) ; FireBrick
+ ("cyan" 3 0 52736 53504) ; DarkTurquoise
+ ("green" 2 8704 35584 8704) ; ForestGreen
+ ("blue" 1 0 0 52480) ; MediumBlue
+ ("black" 0 0 0 0))
+"A list of VGA console colors, their indices and 16-bit RGB values.")
+
+;; w32term.c sets this to nil, but if it has been overridden before we
+;; get here, we should not try to set it again.
+(if (not w32-charset-info-alist)
+ (progn (setq w32-charset-info-alist
+ '(("iso8859-1" . (w32-charset-ansi . 1252))
+ ("jisx0208-sjis" . (w32-charset-shiftjis . 932))
+ ("jisx0201-latin" . (w32-charset-shiftjis . 932))
+ ("jisx0201-katakana" . (w32-charset-shiftjis . 932))
+ ("ksc5601.1987" . (w32-charset-hangul . 949))
+ ("big5" . (w32-charset-chinesebig5 . 950))
+ ("gb2312" . (w32-charset-gb2312 . 936))
+ ("ms-symbol" . (w32-charset-symbol . nil))
+ ("ms-oem" . (w32-charset-oem . 437))
+ ("ms-oemlatin" . (w32-charset-oem . 850))))
+ (if (boundp 'w32-extra-charsets-defined)
+ (progn
+ (add-to-list 'w32-charset-info-alist
+ '("iso8859-2" . (w32-charset-easteurope . 28592)))
+ (add-to-list 'w32-charset-info-alist
+ '("iso8859-3" . (w32-charset-turkish . 28593)))
+ (add-to-list 'w32-charset-info-alist
+ '("iso8859-4" . (w32-charset-baltic . 28594)))
+ (add-to-list 'w32-charset-info-alist
+ '("iso8859-5" . (w32-charset-russian . 28595)))
+ (add-to-list 'w32-charset-info-alist
+ '("iso8859-6" . (w32-charset-arabic . 28596)))
+ (add-to-list 'w32-charset-info-alist
+ '("iso8859-7" . (w32-charset-greek . 28597)))
+ (add-to-list 'w32-charset-info-alist
+ '("iso8859-8" . (w32-charset-hebrew . 1255)))
+ (add-to-list 'w32-charset-info-alist
+ '("iso8859-9" . (w32-charset-turkish . 1254)))
+ (add-to-list 'w32-charset-info-alist
+ '("iso8859-13" . (w32-charset-baltic . 1257)))
+ (add-to-list 'w32-charset-info-alist
+ '("koi8-r" . (w32-charset-russian . 20866)))
+ (add-to-list 'w32-charset-info-alist
+ '("tis620" . (w32-charset-thai . 874)))
+ (add-to-list 'w32-charset-info-alist
+ '("ksc5601.1992" . (w32-charset-johab . 1361)))
+ (add-to-list 'w32-charset-info-alist
+ '("mac" . (w32-charset-mac . nil))))))
+ (if (boundp 'w32-unicode-charset-defined)
+ (progn
+ (add-to-list 'w32-charset-info-alist
+ '("iso10646" . (w32-charset-unicode . t)))
+ (add-to-list 'w32-charset-info-alist
+ '("unicode" . (w32-charset-unicode . t))))))
+
+(make-obsolete-variable 'w32-enable-italics 'w32-enable-synthesized-fonts)
+(make-obsolete-variable 'w32-charset-to-codepage-alist
+ "w32-charset-to-codepage-alist has been replaced by the more extensive
+w32-charset-info-alist")
+
+;;; w32-fns.el ends here
HCoop / bpt / emacs.git / blobdiff