mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-08 04:30:45 -08:00
Code Issues Projects Releases Wiki Activity

(toggle-enable-multibyte-characters): Use set-buffer-multibyte.

Browse source 
(find-safe-coding-system-list-subset-p): Renamed from list-subset-p.
The call changed also.
This commit is contained in:
Richard M. Stallman 1998-02-03 06:29:24 +00:00
parent 2faef40996
commit b70794577c
1 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/international/mule-cmds.el
View file

@ -157,9 +157,10 @@ We suggest you avoid using use this command unless you know what you
are doing. If you use it by mistake, and the buffer is now displayed
wrong, use this command again to toggle back to the right mode."
(interactive "P")
(setq enable-multibyte-characters
(if (null arg) (null enable-multibyte-characters)
(> (prefix-numeric-value arg) 0)))
(let ((new-flag
(if (null arg) (null enable-multibyte-characters)
(> (prefix-numeric-value arg) 0))))
(set-buffer-multibyte new-flag))
(force-mode-line-update))
(defun view-hello-file ()
@ -224,7 +225,7 @@ This also sets the following values:
base coding-system))
(set-default-coding-systems (or base coding-system))))
(defun list-subset-p (list1 list2)
(defun find-safe-coding-system-list-subset-p (list1 list2)
"Return non-nil if all elements in LIST1 are included in LIST2.
Comparison done with EQ."
(catch 'tag
@ -261,7 +262,8 @@ and TO is ignored."
(if (and (eq coding (coding-system-base coding))
(setq safe (coding-system-get coding 'safe-charsets))
(or (eq safe t)
(list-subset-p charset-list safe)))
(find-safe-coding-system-list-subset-p
charset-list safe)))
;; We put the higher priority to coding systems included
;; in PREFERED-CODINGS, and within them, put the higher
;; priority to coding systems which support smaller