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

(select-safe-coding-system): If cdr

Browse source 
part of buffer-file-coding-system-explicit is set, ignore
default-buffer-file-coding-system and the most preferred coding
system.
This commit is contained in:
Kenichi Handa 2009-03-03 01:57:22 +00:00
parent 4c549102e5
commit 659be2587a
1 changed files with 23 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -930,28 +930,30 @@ It is highly recommended to fix it before writing to a file."
(append default-coding-system
(list (cons buffer-file-coding-system base)))))))
;; If default-buffer-file-coding-system is not nil nor undecided,
;; append it to the defaults.
(if default-buffer-file-coding-system
(let ((base (coding-system-base default-buffer-file-coding-system)))
(or (eq base 'undecided)
(rassq base default-coding-system)
(setq default-coding-system
(append default-coding-system
(list (cons default-buffer-file-coding-system
base)))))))
(unless (and buffer-file-coding-system-explicit
(cdr buffer-file-coding-system-explicit))
;; If default-buffer-file-coding-system is not nil nor undecided,
;; append it to the defaults.
(if default-buffer-file-coding-system
(let ((base (coding-system-base default-buffer-file-coding-system)))
(or (eq base 'undecided)
(rassq base default-coding-system)
(setq default-coding-system
(append default-coding-system
(list (cons default-buffer-file-coding-system
base)))))))
;; If the most preferred coding system has the property mime-charset,
;; append it to the defaults.
(let ((preferred (coding-system-priority-list t))
base)
(and (coding-system-p preferred)
(setq base (coding-system-base preferred))
(coding-system-get preferred :mime-charset)
(not (rassq base default-coding-system))
(setq default-coding-system
(append default-coding-system
(list (cons preferred base)))))))
;; If the most preferred coding system has the property mime-charset,
;; append it to the defaults.
(let ((preferred (coding-system-priority-list t))
base)
(and (coding-system-p preferred)
(setq base (coding-system-base preferred))
(coding-system-get preferred :mime-charset)
(not (rassq base default-coding-system))
(setq default-coding-system
(append default-coding-system
(list (cons preferred base))))))))
(if select-safe-coding-system-accept-default-p
(setq accept-default-p select-safe-coding-system-accept-default-p))