From 40e82ac184d3ab1001f86aa128487d2b01320a1e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 1 Aug 1997 01:22:16 +0000 Subject: [PATCH] (standard-display-european): New arg AUTO. Normally, set enable-multibyte-characters to nil. --- lisp/disp-table.el | 14 ++++++++++++-- 1 file 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. -- 2.39.2