/[emacs]/emacs/lisp/bindings.el
ViewVC logotype

Diff of /emacs/lisp/bindings.el

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

revision 1.97 by rms, Wed Feb 13 15:57:15 2002 UTC revision 1.98 by rms, Sat Mar 16 06:51:23 2002 UTC
# Line 149  corresponding to the mode line clicked." Line 149  corresponding to the mode line clicked."
149      ,(propertize      ,(propertize
150        "%Z"        "%Z"
151        'help-echo        'help-echo
152        (purecopy (lambda (window object point)        #'(lambda (window object point)
153                    (save-window-excursion            (with-current-buffer (window-buffer window)
154                      (select-window window)              ;; Don't show this tip if the coding system is nil,
155                      ;; Don't show this tip if the coding system is nil,              ;; it reads like a bug, and is not useful anyway.
156                      ;; it reads like a bug, and is not useful anyway.              (when buffer-file-coding-system
157                      (when buffer-file-coding-system                (if enable-multibyte-characters
158                        (if enable-multibyte-characters                    (concat (symbol-name buffer-file-coding-system)
159                            (concat (symbol-name buffer-file-coding-system)                            " buffer; mouse-3: describe coding system")
160                                    " buffer; mouse-3: describe coding system")                  (concat "Unibyte " (symbol-name buffer-file-coding-system)
161                          (concat "Unibyte "                          " buffer")))))
                                 (symbol-name buffer-file-coding-system)  
                                 " buffer"))))))  
162        'local-map mode-line-coding-system-map))        'local-map mode-line-coding-system-map))
163    "Mode-line control for displaying information of multilingual environment.    "Mode-line control for displaying information of multilingual environment.
164  Normally it displays current input method (if any activated) and  Normally it displays current input method (if any activated) and

Legend:
Removed from v.1.97  
changed lines
  Added in v.1.98

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