From: Daniel Pfeiffer <occitan@esperanto.org>
Date: Wed, 14 Jul 2004 21:09:33 +0000 (+0000)
Subject: (mode-line-mode-menu): Fix alphabetical ordering and add auto-revert-tail-mode.
X-Git-Tag: ttn-vms-21-2-B4~5491
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c29a05c8f0f8a975f40f67de10795b4897de94c2;p=emacs.git

(mode-line-mode-menu): Fix alphabetical ordering and add auto-revert-tail-mode.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bba807ac21b..c0ad8d83ce7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,16 @@
+2004-07-14  Daniel Pfeiffer  <occitan@esperanto.org>
+
+	* autorevert.el (auto-revert-tail-mode)
+	(auto-revert-tail-mode-text, auto-revert-tail-pos): New vars.
+	(auto-revert-mode): Turn off auto-revert-tail-mode, so we're not
+	in both at the same time.
+	(auto-revert-tail-mode): New command.
+	(turn-on-auto-revert-tail-mode, auto-revert-tail-handler): New funs.
+	(auto-revert-handler): Revert only either tail or whole file.
+
+	* bindings.el (mode-line-mode-menu): Fix alphabetical ordering and
+	add auto-revert-tail-mode.
+
 2004-07-12  Vinicius Jose Latorre  <viniciusjl@ig.com.br>
 
 	* printing.el: Doc fix.  Change name of some funs.
diff --git a/lisp/bindings.el b/lisp/bindings.el
index b3ea8e562ac..e13b2cab9a4 100644
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -404,12 +404,12 @@ Menu of mode operations in the mode line.")
 (define-key mode-line-mode-menu [highlight-changes-mode]
   `(menu-item ,(purecopy "Highlight changes (Chg)") highlight-changes-mode
 	      :button (:toggle . highlight-changes-mode)))
-(define-key mode-line-mode-menu [glasses-mode]
-  `(menu-item ,(purecopy "Glasses (o^o)") glasses-mode
-	      :button (:toggle . (bound-and-true-p glasses-mode))))
 (define-key mode-line-mode-menu [hide-ifdef-mode]
   `(menu-item ,(purecopy "Hide ifdef (Ifdef)") hide-ifdef-mode
 	      :button (:toggle . (bound-and-true-p hide-ifdef-mode))))
+(define-key mode-line-mode-menu [glasses-mode]
+  `(menu-item ,(purecopy "Glasses (o^o)") glasses-mode
+	      :button (:toggle . (bound-and-true-p glasses-mode))))
 (define-key mode-line-mode-menu [font-lock-mode]
   `(menu-item ,(purecopy "Font Lock") font-lock-mode
 	      :button (:toggle . font-lock-mode)))
@@ -419,12 +419,15 @@ Menu of mode operations in the mode line.")
 (define-key mode-line-mode-menu [column-number-mode]
   `(menu-item ,(purecopy "Column number") column-number-mode
 	      :button (:toggle . column-number-mode)))
-(define-key mode-line-mode-menu [auto-fill-mode]
-  `(menu-item ,(purecopy "Auto Fill (Fill)") auto-fill-mode
-	      :button (:toggle . auto-fill-function)))
+(define-key mode-line-mode-menu [auto-revert-tail-mode]
+  `(menu-item ,(purecopy "Auto revert tail (Tail)") auto-revert-tail-mode
+	      :button (:toggle . auto-revert-tail-mode)))
 (define-key mode-line-mode-menu [auto-revert-mode]
   `(menu-item ,(purecopy "Auto revert (ARev)") auto-revert-mode
 	      :button (:toggle . auto-revert-mode)))
+(define-key mode-line-mode-menu [auto-fill-mode]
+  `(menu-item ,(purecopy "Auto fill (Fill)") auto-fill-mode
+	      :button (:toggle . auto-fill-function)))
 (define-key mode-line-mode-menu [abbrev-mode]
   `(menu-item ,(purecopy "Abbrev (Abbrev)") abbrev-mode
 	      :button (:toggle . abbrev-mode)))