/[emacs]/emacs/lisp/international/mule-cmds.el
ViewVC logotype

Diff of /emacs/lisp/international/mule-cmds.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.221 by lektu, Tue Feb 4 13:09:38 2003 UTC revision 1.222 by monnier, Thu Feb 13 20:06:36 2003 UTC
# Line 439  non-nil, it is used to sort CODINGS in t Line 439  non-nil, it is used to sort CODINGS in t
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
# Line 658  and TO is ignored." Line 658  and TO is ignored."
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
# Line 674  and TO is ignored." Line 673  and TO is ignored."
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
# Line 749  and TO is ignored." Line 747  and TO is ignored."
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

Legend:
Removed from v.1.221  
changed lines
  Added in v.1.222

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26