From a9b511e0c0053ebf7a91bb3d50329b5aa3a6e5a7 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 6 Jul 2001 09:44:26 +0000 Subject: [PATCH] (mode-line-mule-info): Don't show the tip with buffer-file-coding-system if that is nil. --- lisp/ChangeLog | 5 +++++ lisp/bindings.el | 15 +++++++++------ 2 files changed, 14 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6e445fc8108..1dced20e163 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2001-07-06 Eli Zaretskii + + * bindings.el (mode-line-mule-info): Don't show the tip with + buffer-file-coding-system if that is nil. + 2001-07-05 Gerd Moellmann * calendar/todo-mode.el (todo-top-priorities): Use delete-region 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: -- 2.39.2