diff options
| author | Joakim Verona | 2012-01-23 15:10:06 +0100 |
|---|---|---|
| committer | Joakim Verona | 2012-01-23 15:10:06 +0100 |
| commit | 0322b140eead7c94de7f0f6d19a90bd15690b4eb (patch) | |
| tree | 950c011783cc896d0450084cb5155e54548bfe5b /lisp/international/mule-cmds.el | |
| parent | d5114bfea3ea4c37c57e2af0f3b095be9fcd8bac (diff) | |
| parent | cb5850f27c1b4d26957d58e2da2314dd12498671 (diff) | |
| download | emacs-0322b140eead7c94de7f0f6d19a90bd15690b4eb.tar.gz emacs-0322b140eead7c94de7f0f6d19a90bd15690b4eb.zip | |
upstream
Diffstat (limited to 'lisp/international/mule-cmds.el')
| -rw-r--r-- | lisp/international/mule-cmds.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index cbe548c2ccf..378cbc9badd 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el | |||
| @@ -418,7 +418,10 @@ To prefer, for instance, utf-8, say the following: | |||
| 418 | (if (memq eol-type '(0 1 2)) | 418 | (if (memq eol-type '(0 1 2)) |
| 419 | (setq base | 419 | (setq base |
| 420 | (coding-system-change-eol-conversion base eol-type))) | 420 | (coding-system-change-eol-conversion base eol-type))) |
| 421 | (set-default-coding-systems base))) | 421 | (set-default-coding-systems base) |
| 422 | (if (called-interactively-p 'interactive) | ||
| 423 | (or (eq base default-file-name-coding-system) | ||
| 424 | (message "The default value of `file-name-coding-system' was not changed because the specified coding system is not suitable for file names."))))) | ||
| 422 | 425 | ||
| 423 | (defvar sort-coding-systems-predicate nil | 426 | (defvar sort-coding-systems-predicate nil |
| 424 | "If non-nil, a predicate function to sort coding systems. | 427 | "If non-nil, a predicate function to sort coding systems. |