diff options
author | Richard M. Stallman <rms@gnu.org> | 1997-08-01 01:22:16 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1997-08-01 01:22:16 +0000 |
commit | f7dda95b2b5a02fcffd234eb96711dde4d32256e (patch) | |
tree | 7511b1cc3b8fa799e3ab9d4ae3153d73ee225793 /lisp/disp-table.el | |
parent | b957a6f8e0a56a420c0fed7f9a4ebb1ecc72f5b2 (diff) | |
download | emacs-f7dda95b2b5a02fcffd234eb96711dde4d32256e.tar.gz |
(standard-display-european): New arg AUTO.
Normally, set enable-multibyte-characters to nil.
Diffstat (limited to 'lisp/disp-table.el')
-rw-r--r-- | lisp/disp-table.el | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/lisp/disp-table.el b/lisp/disp-table.el index 193bf5fbb7d..705d0a027cd 100644 --- a/lisp/disp-table.el +++ b/lisp/disp-table.el @@ -176,11 +176,17 @@ X frame." (1- (length glyph-table))) ;;;###autoload -(defun standard-display-european (arg) +(defun standard-display-european (arg &optional auto) "Toggle display of European characters encoded with ISO 8859. When enabled, characters in the range of 160 to 255 display not as octal escapes, but as accented characters. -With prefix argument, enable European character display iff arg is positive." +With prefix argument, enable European character display iff arg is positive. + +Ordinarily, we turn off `enable-multibyte-characters' throughout +Emacs, since someone who uses this function manually +probably wants to edit European characters in single-byte mode. +However, if the optional argument AUTO is non-nil, we don't +alter `enable-multibyte-characters'." (interactive "P") (if (or (<= (prefix-numeric-value arg) 0) (and (null arg) @@ -188,6 +194,10 @@ With prefix argument, enable European character display iff arg is positive." ;; Test 161, because 160 displays as a space. (equal (aref standard-display-table 161) [161]))) (standard-display-default 160 255) + ;; If the user does this explicitly, + ;; turn off multibyte chars for more compatibility. + (or auto + (setq-default enable-multibyte-characters nil)) (standard-display-8bit 160 255) ;; Make non-line-break space display as a plain space. ;; Most X fonts do the wrong thing for code 160. |