# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 886487364 0
# Node ID 237a0f70c61d17edcbc627a4b46195bdbd5bed52
# Parent  f9ac469887a8ffac75f8a7d49aef1a2c41fd4f6e
(toggle-enable-multibyte-characters): Use set-buffer-multibyte.
(find-safe-coding-system-list-subset-p): Renamed from list-subset-p.
The call changed also.

diff -r f9ac469887a8 -r 237a0f70c61d lisp/international/mule-cmds.el
--- 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