[Emacs-diffs] trunk r114648: international/mule-cmds.el (select-safe-coding-system): Remove a superfluous condition in chekcing whether a coding system is safe or not.

[Kenichi Handa]

------------------------------------------------------------
revno: 114648 [merge]
revision-id: address@hidden
parent: address@hidden
parent: address@hidden
committer: K. Handa <address@hidden>
branch nick: trunk
timestamp: Sun 2013-10-13 21:01:34 +0900
message:
  international/mule-cmds.el (select-safe-coding-system): Remove a superfluous 
condition in chekcing whether a coding system is safe or not.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/international/mule-cmds.el 
mulecmds.el-20091113204419-o5vbwnq5f7feedwu-1043

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-10-13 05:30:23 +0000
+++ b/lisp/ChangeLog    2013-10-13 11:55:00 +0000
@@ -1,3 +1,9 @@
+2013-10-13  Kenichi Handa  <address@hidden>
+
+       * international/mule-cmds.el (select-safe-coding-system): Remove a
+       superfluous condition in chekcing whether a coding system is safe
+       or not.
+
 2013-10-13  Oleh Krehel  <address@hidden>
 
        * replace.el (how-many): Fix rstart and !rend case.  (Bug#15589)

=== modified file 'lisp/international/mule-cmds.el'
--- a/lisp/international/mule-cmds.el   2013-09-05 03:46:34 +0000
+++ b/lisp/international/mule-cmds.el   2013-10-13 09:25:29 +0000
@@ -976,13 +976,17 @@
 
        ;; Classify the defaults into safe, rejected, and unsafe.
        (dolist (elt default-coding-system)
-         (if (or (eq (coding-system-type (car elt)) 'undecided)
-                 (memq (cdr elt) codings))
+         (if (memq (cdr elt) codings)
+             ;; This is safe.  Is it acceptable?
              (if (and (functionp accept-default-p)
                       (not (funcall accept-default-p (cdr elt))))
+                 ;; No, not acceptable.
                  (push (car elt) rejected)
+               ;; Yes, acceptable.
                (push (car elt) safe))
+           ;; This is not safe.
            (push (car elt) unsafe)))
+       ;; If there are safe ones, the first one is what we want.
        (if safe
            (setq coding-system (car safe))))