comparison lisp/progmodes/sh-script.el @ 12034:639cd125eddb

(sh-mode-map): Fix capitalization in menu bar.

12033:f7638ab47de7

    (substitute-key-definition 'manual-entry 'sh-manual-entry
			       map (current-global-map))
    (define-key map [menu-bar insert] 
      (cons "Insert" (make-sparse-keymap "Insert")))
    (define-key map [menu-bar insert sh-while] 
      '("While loop" . sh-while))
    (define-key map [menu-bar insert sh-until] 
      '("Until loop" . sh-until))
    (define-key map [menu-bar insert sh-select] 
      '("Select statement" . sh-select))
    (define-key map [menu-bar insert sh-indexed-loop] 
      '("Indexed loop" . sh-indexed-loop))
    (define-key map [menu-bar insert sh-if] 
      '("If statement" . sh-if))
    (define-key map [menu-bar insert sh-for] 
      '("For loop" . sh-for))
    (define-key map [menu-bar insert sh-case] 
      '("Case statement" . sh-case))
    map)
  "Keymap used in Shell-Script mode.")

12034:639cd125eddb

    (substitute-key-definition 'manual-entry 'sh-manual-entry
			       map (current-global-map))
    (define-key map [menu-bar insert] 
      (cons "Insert" (make-sparse-keymap "Insert")))
    (define-key map [menu-bar insert sh-while] 
      '("While Loop" . sh-while))
    (define-key map [menu-bar insert sh-until] 
      '("Until Loop" . sh-until))
    (define-key map [menu-bar insert sh-select] 
      '("Select Statement" . sh-select))
    (define-key map [menu-bar insert sh-indexed-loop] 
      '("Indexed Loop" . sh-indexed-loop))
    (define-key map [menu-bar insert sh-if] 
      '("If Statement" . sh-if))
    (define-key map [menu-bar insert sh-for] 
      '("For Loop" . sh-for))
    (define-key map [menu-bar insert sh-case] 
      '("Case Statement" . sh-case))
    map)
  "Keymap used in Shell-Script mode.")