diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-02-03 06:29:24 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-02-03 06:29:24 +0000 |
| commit | 862c04332d7ff52e9cb048eb385db8b2aad00932 (patch) | |
| tree | caf24cc7cd7a878165779c6073098bb4c284f162 /lisp/international/mule-cmds.el | |
| parent | bb94b349318d5ae9f4f173c76c9f5cf24be34216 (diff) | |
| download | emacs-862c04332d7ff52e9cb048eb385db8b2aad00932.tar.gz | |
(toggle-enable-multibyte-characters): Use set-buffer-multibyte.
(find-safe-coding-system-list-subset-p): Renamed from list-subset-p.
The call changed also.
Diffstat (limited to 'lisp/international/mule-cmds.el')
| -rw-r--r-- | lisp/international/mule-cmds.el | 12 |
1 files 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 |