From: Chong Yidong <cyd@stupidchicken.com>
Date: Fri, 6 Jun 2008 21:28:20 +0000 (+0000)
Subject: (menu-bar-options-menu): Add Menu entry for longlines mode.
X-Git-Tag: emacs-pretest-23.0.90~5056
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2a6c4d7524018fcf0fe9fa9657c67a9376a8a5dc;p=emacs.git

(menu-bar-options-menu): Add Menu entry for longlines mode.
---

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 3ca642c8331..b7972b43ab8 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -1016,7 +1016,7 @@ mail status in mode line"))
   (menu-bar-make-toggle toggle-case-fold-search case-fold-search
 	    "Case-Insensitive Search"
 	    "Case-Insensitive Search %s"
-	    "Globally ignore letter-case in search"))
+	    "Ignore letter-case in search commands"))
 
 (defun menu-bar-text-mode-auto-fill ()
   (interactive)
@@ -1027,16 +1027,24 @@ mail status in mode line"))
   (customize-mark-as-set 'text-mode-hook))
 
 (define-key menu-bar-options-menu [auto-fill-mode]
-  '(menu-item "Word Wrap in Text Modes"
+  '(menu-item "Auto Fill in Text Modes"
               menu-bar-text-mode-auto-fill
-	      :help "Automatically fill text between left and right margins (Auto Fill)"
+	      :help "Automatically fill text while typing (Auto Fill Mode)"
               :button (:toggle . (if (listp text-mode-hook)
 				     (member 'turn-on-auto-fill text-mode-hook)
 				   (eq 'turn-on-auto-fill text-mode-hook)))))
+
+(define-key menu-bar-options-menu [longlines-mode]
+  '(menu-item "Word Wrap for Long Lines in this Buffer"
+              longlines-mode
+	      :help "Perform word wrapping for long lines (Long Lines mode)"
+              :button (:toggle . (and (boundp 'longlines-mode)
+				      longlines-mode))))
+
 (define-key menu-bar-options-menu [truncate-lines]
   '(menu-item "Truncate Long Lines in this Buffer"
 	      toggle-truncate-lines
-	      :help "Truncate long lines on the screen"
+	      :help "Truncate long lines at the window edge "
 	      :button (:toggle . (if (or (window-full-width-p)
 					 (not truncate-partial-width-windows))
 				     truncate-lines