- (propertize current-input-method-title
- 'help-echo (concat ,(purecopy "Input method: ")
- current-input-method
- ,(purecopy ". mouse-2 disables, \
-mouse-3 describes"))
- 'local-map mode-line-input-method-map)))
- ,(propertize "%Z"
- 'help-echo (purecopy "Coding system information: \
-see M-x describe-coding-system")))
+ ,(purecopy
+ '(propertize current-input-method-title
+ 'help-echo (concat
+ "Input method: "
+ current-input-method
+ ". mouse-2 disables, mouse-3 describes")
+ 'local-map mode-line-input-method-map))))
+ ,(propertize
+ "%Z"
+ 'help-echo
+ (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")))))))