Mercurial > emacs

comparison lisp/bindings.el @ 38300:4a7286bcdc6d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mode-line-mule-info): Don't show the tip with buffer-file-coding-system if that is nil.
author Eli Zaretskii <eliz@gnu.org>
date Fri, 06 Jul 2001 09:41:18 +0000
parents 8ce9bd8620f1
children 153f1b1f2efd
comparison
equal deleted inserted replaced
38299:b97c155e6976 38300:4a7286bcdc6d
135 "%Z" 135 "%Z"
136 'help-echo 136 'help-echo
137 (purecopy (lambda (window object point) 137 (purecopy (lambda (window object point)
138 (save-window-excursion 138 (save-window-excursion
139 (select-window window) 139 (select-window window)
140 (if enable-multibyte-characters 140 ;; Don't show this tip if the coding system is nil,
141 (concat (symbol-name buffer-file-coding-system) 141 ;; it reads like a bug, and is not useful anyway.
142 " buffer; see M-x describe-coding-system") 142 (when buffer-file-coding-system
143 (concat "Unibyte " 143 (if enable-multibyte-characters
144 (symbol-name buffer-file-coding-system) 144 (concat (symbol-name buffer-file-coding-system)
145 " buffer"))))))) 145 " buffer; see M-x describe-coding-system")
146 (concat "Unibyte "
147 (symbol-name buffer-file-coding-system)
148 " buffer"))))))))
146 "Mode-line control for displaying information of multilingual environment. 149 "Mode-line control for displaying information of multilingual environment.
147 Normally it displays current input method (if any activated) and 150 Normally it displays current input method (if any activated) and
148 mnemonics of the following coding systems: 151 mnemonics of the following coding systems:
149 coding system for saving or writing the current buffer 152 coding system for saving or writing the current buffer
150 coding system for keyboard input (if Emacs is running on terminal) 153 coding system for keyboard input (if Emacs is running on terminal)