Mercurial > emacs

changeset 64925:2aaaa5e2d539

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(menu-bar-options-menu): Standardize capitalization of menu items.
author Luc Teirlinck <teirllm@auburn.edu>
date Thu, 11 Aug 2005 20:57:36 +0000
parents b4842739592e
children 37347aa3aaae
files lisp/menu-bar.el
diffstat 1 files changed, 11 insertions(+), 11 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/menu-bar.el	Thu Aug 11 20:56:25 2005 +0000
+++ b/lisp/menu-bar.el	Thu Aug 11 20:57:36 2005 +0000
@@ -703,7 +703,7 @@
 
 (define-key menu-bar-showhide-menu [showhide-battery]
   (menu-bar-make-mm-toggle display-battery-mode
-			   "Battery status"
+			   "Battery Status"
 			   "Display battery status information in mode line"))
 
 (define-key menu-bar-showhide-menu [showhide-date-time]
@@ -735,7 +735,7 @@
   (customize-variable 'indicate-buffer-boundaries))
 
 (define-key menu-bar-showhide-fringe-ind-menu [customize]
-  '(menu-item "Other (customize)"
+  '(menu-item "Other (Customize)"
 	      menu-bar-showhide-fringe-ind-customize
 	      :help "Additional choices available through Custom buffer"
 	      :visible (display-graphic-p)))
@@ -747,7 +747,7 @@
 			  '((t . right) (top . left))))
 
 (define-key menu-bar-showhide-fringe-ind-menu [mixed]
-  '(menu-item "Opposite, arrows right" menu-bar-showhide-fringe-ind-mixed
+  '(menu-item "Opposite, Arrows Right" menu-bar-showhide-fringe-ind-mixed
 	      :help
 	      "Show top/bottom indicators in opposite fringes, arrows in right"
 	      :visible (display-graphic-p)
@@ -761,7 +761,7 @@
 			  '((top . left) (bottom . right))))
 
 (define-key menu-bar-showhide-fringe-ind-menu [box]
-  '(menu-item "Opposite, no arrows" menu-bar-showhide-fringe-ind-box
+  '(menu-item "Opposite, No Arrows" menu-bar-showhide-fringe-ind-box
 	      :help "Show top/bottom indicators in opposite fringes, no arrows"
 	      :visible (display-graphic-p)
 	      :button (:radio . (eq indicate-buffer-boundaries
@@ -773,7 +773,7 @@
   (customize-set-variable 'indicate-buffer-boundaries 'right))
 
 (define-key menu-bar-showhide-fringe-ind-menu [right]
-  '(menu-item "In right fringe" menu-bar-showhide-fringe-ind-right
+  '(menu-item "In Right Fringe" menu-bar-showhide-fringe-ind-right
 	      :help "Show buffer boundaries and arrows in right fringe"
 	      :visible (display-graphic-p)
 	      :button (:radio . (eq indicate-buffer-boundaries 'right))))
@@ -784,7 +784,7 @@
   (customize-set-variable 'indicate-buffer-boundaries 'left))
 
 (define-key menu-bar-showhide-fringe-ind-menu [left]
-  '(menu-item "In left fringe" menu-bar-showhide-fringe-ind-left
+  '(menu-item "In Left Fringe" menu-bar-showhide-fringe-ind-left
 	      :help "Show buffer boundaries and arrows in left fringe"
 	      :visible (display-graphic-p)
 	      :button (:radio . (eq indicate-buffer-boundaries 'left))))
@@ -795,19 +795,19 @@
   (customize-set-variable 'indicate-buffer-boundaries nil))
 
 (define-key menu-bar-showhide-fringe-ind-menu [none]
-  '(menu-item "No indicators" menu-bar-showhide-fringe-ind-none
+  '(menu-item "No Indicators" menu-bar-showhide-fringe-ind-none
 	      :help "Hide all buffer boundary indicators and arrows"
 	      :visible (display-graphic-p)
 	      :button (:radio . (eq indicate-buffer-boundaries nil))))
 
 (define-key menu-bar-showhide-fringe-menu [showhide-fringe-ind]
-  (list 'menu-item "Buffer boundaries" menu-bar-showhide-fringe-ind-menu
+  (list 'menu-item "Buffer Boundaries" menu-bar-showhide-fringe-ind-menu
 	:visible `(display-graphic-p)
 	:help "Indicate buffer boundaries in fringe"))
 
 (define-key menu-bar-showhide-fringe-menu [indicate-empty-lines]
   (menu-bar-make-toggle toggle-indicate-empty-lines indicate-empty-lines
-			"Empty line indicators"
+			"Empty Line Indicators"
 			"Indicating of empty lines %s"
 			"Indicate trailing empty lines in fringe"))
 
@@ -817,7 +817,7 @@
   (customize-variable 'fringe-mode))
 
 (define-key menu-bar-showhide-fringe-menu [customize]
-  '(menu-item "Customize fringe" menu-bar-showhide-fringe-menu-customize
+  '(menu-item "Customize Fringe" menu-bar-showhide-fringe-menu-customize
 	      :help "Detailed customization of fringe"
 	      :visible (display-graphic-p)))
 
@@ -1009,7 +1009,7 @@
   '("--"))
 (define-key menu-bar-options-menu [cua-mode]
   (menu-bar-make-mm-toggle cua-mode
-			   "C-x/C-c/C-v cut and paste (CUA)"
+			   "C-x/C-c/C-v Cut and Paste (CUA)"
 			   "Use C-z/C-x/C-c/C-v keys for undo/cut/copy/paste"))
 
 (define-key menu-bar-options-menu [case-fold-search]