(tibetan-pre-write-conversion): Cancel previous

[bpt/emacs.git] / lisp / disp-table.el

diff --git a/lisp/disp-table.el b/lisp/disp-table.el
index 849a6a9..f793e50 100644 (file)
--- a/lisp/disp-table.el
+++ b/lisp/disp-table.el
@@ -178,6 +178,10 @@ X frame."
 ;;;###autoload
 (defun standard-display-european (arg &optional auto)
   "Toggle display of European characters encoded with ISO 8859.
+This function is semi-obsolete; it is better to use
+`set-language-environment' and `set-terminal-coding-system',
+coupled with the `--unibyte' option if you prefer to use unibyte characters.
+
 When enabled, characters in the range of 160 to 255 display not
 as octal escapes, but as accented characters.  Codes 146 and 160
 display as apostrophe and space, even though they are not the ASCII
@@ -203,7 +207,7 @@ probably want to edit European characters in single-byte mode."
               (equal (aref standard-display-table 161) [161])))
       (progn
        (standard-display-default 160 255)
-       (unless (eq window-system 'x)
+       (unless (memq window-system '(x w32))
          (set-terminal-coding-system nil)))
     ;; If the user does this explicitly,
     ;; turn off multibyte chars for more compatibility.
@@ -218,7 +222,7 @@ probably want to edit European characters in single-byte mode."
     (unless auto
       (if (equal current-language-environment "English")
          (set-language-environment "latin-1")))
-    (unless (or noninteractive (eq window-system 'x))
+    (unless (or noninteractive (memq window-system '(x w32)))
       ;; Send those codes literally to a non-X terminal.
       ;; If AUTO is nil, we are using single-byte characters,
       ;; so it doesn't matter which one we use.