Mercurial > emacs
changeset 20830:237a0f70c61d
(toggle-enable-multibyte-characters): Use set-buffer-multibyte.
(find-safe-coding-system-list-subset-p): Renamed from list-subset-p.
The call changed also.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 03 Feb 1998 06:29:24 +0000 |
| parents | f9ac469887a8 |
| children | b2ca9c4f82a5 |
| files | lisp/international/mule-cmds.el |
| diffstat | 1 files changed, 7 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule-cmds.el Tue Feb 03 06:26:34 1998 +0000 +++ b/lisp/international/mule-cmds.el Tue Feb 03 06:29:24 1998 +0000 @@ -157,9 +157,10 @@ 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 @@ 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 @@ (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