mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

(standard-display-european): New arg AUTO.

Browse Source 
Normally, set enable-multibyte-characters to nil.
This commit is contained in:
Richard M. Stallman 1997-08-01 01:22:16 +00:00
parent 907d0a0d02
commit 40e82ac184
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/disp-table.el
View File

@ -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.