diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2001-07-06 09:44:26 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2001-07-06 09:44:26 +0000 |
| commit | a9b511e0c0053ebf7a91bb3d50329b5aa3a6e5a7 (patch) | |
| tree | f7c35ba64971cd7038cb36df42806f6ebedcd2e4 /lisp/bindings.el | |
| parent | ad782551325b7c694ee234b5ff4c5688d90e561c (diff) | |
| download | emacs-a9b511e0c0053ebf7a91bb3d50329b5aa3a6e5a7.tar.gz | |
(mode-line-mule-info): Don't show the tip with
buffer-file-coding-system if that is nil.
Diffstat (limited to 'lisp/bindings.el')
| -rw-r--r-- | lisp/bindings.el | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/lisp/bindings.el b/lisp/bindings.el index 10a098be306..519d2b59c30 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -137,12 +137,15 @@ corresponding to the mode line clicked." (purecopy (lambda (window object point) (save-window-excursion (select-window window) - (if enable-multibyte-characters - (concat (symbol-name buffer-file-coding-system) - " buffer; see M-x describe-coding-system") - (concat "Unibyte " - (symbol-name buffer-file-coding-system) - " buffer"))))))) + ;; Don't show this tip if the coding system is nil, + ;; it reads like a bug, and is not useful anyway. + (when buffer-file-coding-system + (if enable-multibyte-characters + (concat (symbol-name buffer-file-coding-system) + " buffer; see M-x describe-coding-system") + (concat "Unibyte " + (symbol-name buffer-file-coding-system) + " buffer")))))))) "Mode-line control for displaying information of multilingual environment. Normally it displays current input method (if any activated) and mnemonics of the following coding systems: |