procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Kenichi Handa 2013-10-13 18:25:29 +09:00
parent 7d563e363c
commit 85b64f021c
2 changed files with 12 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2013-10-13 Kenichi Handa <handa@gnu.org>
* international/mule-cmds.el (select-safe-coding-system): Remove a
superfluous condition in chekcing whether a coding system is safe
or not.
2013-10-11 Stefan Monnier <monnier@iro.umontreal.ca>
* progmodes/sh-script.el: Provide simpl(e|istic) completion.

8
lisp/international/mule-cmds.el
View file

@ -976,13 +976,17 @@ It is highly recommended to fix it before writing to a file."
;; 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))))