439 |
(t 32)) |
(t 32)) |
440 |
0)) |
0)) |
441 |
(if (memq base lang-preferred) 8 0) |
(if (memq base lang-preferred) 8 0) |
442 |
(if (string-match "-with-esc$" (symbol-name base)) |
(if (string-match "-with-esc\\'" (symbol-name base)) |
443 |
0 4) |
0 4) |
444 |
(if (eq (coding-system-type base) 2) |
(if (eq (coding-system-type base) 2) |
445 |
;; For ISO based coding systems, prefer |
;; For ISO based coding systems, prefer |
658 |
(if buffer-file-coding-system |
(if buffer-file-coding-system |
659 |
(let ((base (coding-system-base buffer-file-coding-system))) |
(let ((base (coding-system-base buffer-file-coding-system))) |
660 |
(or (eq base 'undecided) |
(or (eq base 'undecided) |
|
(assq buffer-file-coding-system default-coding-system) |
|
661 |
(rassq base default-coding-system) |
(rassq base default-coding-system) |
662 |
(setq default-coding-system |
(setq default-coding-system |
663 |
(append default-coding-system |
(append default-coding-system |
673 |
(and (coding-system-p preferred) |
(and (coding-system-p preferred) |
674 |
(setq base (coding-system-base preferred)) |
(setq base (coding-system-base preferred)) |
675 |
(coding-system-get preferred 'mime-charset) |
(coding-system-get preferred 'mime-charset) |
|
(not (assq preferred default-coding-system)) |
|
676 |
(not (rassq base default-coding-system)) |
(not (rassq base default-coding-system)) |
677 |
(setq default-coding-system |
(setq default-coding-system |
678 |
(append default-coding-system |
(append default-coding-system |
747 |
(coding-system-category elt))) |
(coding-system-category elt))) |
748 |
(push elt l)))) |
(push elt l)))) |
749 |
|
|
750 |
|
;; Remove raw-text, emacs-mule and no-conversion unless nothing |
751 |
|
;; else is available. |
752 |
|
(setq codings |
753 |
|
(or (delq 'raw-text |
754 |
|
(delq 'emacs-mule |
755 |
|
(delq 'no-conversion codings))) |
756 |
|
'(raw-text emacs-mule no-conversion))) |
757 |
|
|
758 |
(let ((window-configuration (current-window-configuration))) |
(let ((window-configuration (current-window-configuration))) |
759 |
(save-excursion |
(save-excursion |
760 |
;; If some defaults are unsafe, make sure the offending |
;; If some defaults are unsafe, make sure the offending |