From b70794577c2b2fa1d497cba4a2cb64d5b72fe6ee Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 3 Feb 1998 06:29:24 +0000 Subject: [PATCH] (toggle-enable-multibyte-characters): Use set-buffer-multibyte. (find-safe-coding-system-list-subset-p): Renamed from list-subset-p. The call changed also. --- lisp/international/mule-cmds.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 088e388a139..eee8031dec5 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -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 -- 2.39.5