(select-safe-coding-system): Fix

previous change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f45d3dba17f5cf6b87f5caddd8b8cb383ab7fb30..bd04dfb19fce18b0eeff6e8407e3dab94163b9b4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-04-26  Kenichi Handa  <handa@m17n.org>
+
+       * international/mule-cmds.el (select-safe-coding-system): Fix
+       previous change.
+
 2005-04-26  Lute Kamstra  <lute@gnu.org>
 
        * calc/calc.el (calc-trail-mode): Don't set font-lock-defaults.

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 39cb1d05ca33f028bcdc35c3113c736fcda7c7fb..bc65611342851a2426fe97130f91e42a16565f78 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -929,7 +929,8 @@ and TO is ignored."
     ;; by using `find-file-literally'.
     (unless (or (stringp from)
                find-file-literally
-               (memq (coding-system-type coding-system) '(0 5)))
+               (and coding-system
+                    (memq (coding-system-type coding-system) '(0 5))))
       (let ((auto-cs (save-excursion
                       (save-restriction
                         (widen)