Mercurial > emacs

changeset 30309:a1ed8edb10b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mode-line-mule-info, mode-line-modified): help-echo improvements.
author Dave Love <fx@gnu.org>
date Tue, 18 Jul 2000 21:53:46 +0000
parents 2fde043d7aa7
children a3f30480694a
files lisp/bindings.el
diffstat 1 files changed, 42 insertions(+), 12 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/bindings.el	Tue Jul 18 19:43:58 2000 +0000
+++ b/lisp/bindings.el	Tue Jul 18 21:53:46 2000 +0000
@@ -85,15 +85,25 @@
   `(""
     (current-input-method
      (:eval
-      (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")))))))
   "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:
@@ -125,9 +135,29 @@
 
 (defvar mode-line-modified
   (list (propertize
-	 "%1*%1+"
-	 'help-echo (purecopy "Read-only status: mouse-2 toggles it")
-	 'local-map (purecopy (make-mode-line-mouse2-map #'toggle-read-only))))
+	 "%1*"
+	 'help-echo (purecopy (lambda (window object point)
+ 				(format "%sead-only: mouse-2 toggles"
+					(save-selected-window
+					  (select-window window)
+					  (if buffer-read-only
+					      "R"
+					    "Not r")))))
+	 'local-map (purecopy (make-mode-line-mouse2-map #'toggle-read-only)))
+	(propertize
+	 "%1+"
+	 'help-echo  (purecopy (lambda (window object point)
+				 (format "%sodified: mouse-2 toggles flag"
+					 (save-selected-window
+					   (select-window window)
+					   (if (buffer-modified-p)
+					     "M"
+					   "Not m")))))
+	 'local-map (purecopy (make-mode-line-mouse2-map
+			       (lambda ()
+				 (interactive)
+				 (set-buffer-modified-p
+				  (not (buffer-modified-p))))))))
   "Mode-line control for displaying whether current buffer is modified.")
 
 (make-variable-buffer-local 'mode-line-modified)