# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 801875160 0
# Node ID 639cd125eddb684bffdaa0d5da7fb34b39add7e5
# Parent  f7638ab47de7c2993b2b7800ee745f85cb37fd63
(sh-mode-map): Fix capitalization in menu bar.

diff -r f7638ab47de7 -r 639cd125eddb lisp/progmodes/sh-script.el
--- a/lisp/progmodes/sh-script.el	Tue May 30 23:05:08 1995 +0000
+++ b/lisp/progmodes/sh-script.el	Tue May 30 23:06:00 1995 +0000
@@ -120,19 +120,19 @@
     (define-key map [menu-bar insert] 
       (cons "Insert" (make-sparse-keymap "Insert")))
     (define-key map [menu-bar insert sh-while] 
-      '("While loop" . sh-while))
+      '("While Loop" . sh-while))
     (define-key map [menu-bar insert sh-until] 
-      '("Until loop" . sh-until))
+      '("Until Loop" . sh-until))
     (define-key map [menu-bar insert sh-select] 
-      '("Select statement" . sh-select))
+      '("Select Statement" . sh-select))
     (define-key map [menu-bar insert sh-indexed-loop] 
-      '("Indexed loop" . sh-indexed-loop))
+      '("Indexed Loop" . sh-indexed-loop))
     (define-key map [menu-bar insert sh-if] 
-      '("If statement" . sh-if))
+      '("If Statement" . sh-if))
     (define-key map [menu-bar insert sh-for] 
-      '("For loop" . sh-for))
+      '("For Loop" . sh-for))
     (define-key map [menu-bar insert sh-case] 
-      '("Case statement" . sh-case))
+      '("Case Statement" . sh-case))
     map)
   "Keymap used in Shell-Script mode.")