Mercurial > emacs

changeset 93536:e42355d302bb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(sh-mode-map): Rename the menu. Add :help. Add menu entries corresponding to all the key bindings.
author Dan Nicolaescu <dann@ics.uci.edu>
date Wed, 02 Apr 2008 06:38:24 +0000
parents a128a4284881
children 0b1d9db0efaa
files lisp/ChangeLog lisp/progmodes/sh-script.el
diffstat 2 files changed, 72 insertions(+), 13 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Wed Apr 02 06:35:21 2008 +0000
+++ b/lisp/ChangeLog	Wed Apr 02 06:38:24 2008 +0000
@@ -1,5 +1,13 @@
 2008-04-02  Dan Nicolaescu  <dann@ics.uci.edu>
 
+	* progmodes/sh-script.el (sh-mode-map): Rename the menu. Add :help.
+	Add menu entries corresponding to all the key bindings.
+
+	* emacs-lisp/debug.el (debugger-mode-map):
+	* textmodes/conf-mode.el (conf-mode-map): Add a menu.
+	(conf-align-assignments): Only work on the region if it is active.
+	(conf-quote-normal): Use when instead of if.  Remove redundant test.
+
 	* emacs-lisp/lisp-mode.el (emacs-lisp-mode-map): Add menu entries
 	for tracing and re-builder.
 
--- a/lisp/progmodes/sh-script.el	Wed Apr 02 06:35:21 2008 +0000
+++ b/lisp/progmodes/sh-script.el	Wed Apr 02 06:38:24 2008 +0000
@@ -446,7 +446,7 @@
 
 (defvar sh-mode-map
   (let ((map (make-sparse-keymap))
-	(menu-map (make-sparse-keymap "Insert")))
+	(menu-map (make-sparse-keymap)))
     (define-key map "\C-c(" 'sh-function)
     (define-key map "\C-c\C-w" 'sh-while)
     (define-key map "\C-c\C-u" 'sh-until)
@@ -483,17 +483,68 @@
     (define-key map "\C-c:" 'sh-set-shell)
     (define-key map [remap backward-sentence] 'sh-beginning-of-command)
     (define-key map [remap forward-sentence] 'sh-end-of-command)
-    (define-key map [menu-bar insert] (cons "Insert" menu-map))
-    (define-key menu-map [sh-while]	'("While Loop" . sh-while))
-    (define-key menu-map [sh-until]	'("Until Loop" . sh-until))
-    (define-key menu-map [sh-tmp-file]	'("Temporary File" . sh-tmp-file))
-    (define-key menu-map [sh-select]	'("Select Statement" . sh-select))
-    (define-key menu-map [sh-repeat]	'("Repeat Loop" . sh-repeat))
-    (define-key menu-map [sh-getopts]	'("Options Loop" . sh-while-getopts))
-    (define-key menu-map [sh-indexed-loop] '("Indexed Loop" . sh-indexed-loop))
-    (define-key menu-map [sh-if]	'("If Statement" . sh-if))
-    (define-key menu-map [sh-for]	'("For Loop" . sh-for))
-    (define-key menu-map [sh-case]	'("Case Statement" . sh-case))
+    (define-key map [menu-bar sh-script] (cons "Sh-Script" menu-map))
+    (define-key menu-map [sh-learn-buffer-indent]
+      '(menu-item "Learn buffer indentation" sh-learn-buffer-indent
+		  :help "Learn how to indent the buffer the way it currently is."))
+    (define-key menu-map [sh-learn-line-indent]
+      '(menu-item "Learn line indentation" sh-learn-line-indent
+		  :help "Learn how to indent a line as it currently is indented"))
+    (define-key menu-map [sh-show-indent]
+      '(menu-item "Show indentation" sh-show-indent
+		  :help "Set the indentation for the current line"))
+    (define-key menu-map [sh-set-indent]
+      '(menu-item "Set indentation" sh-set-indent
+		  :help "Set the indentation for the current line"))
+
+    (define-key menu-map [sh-s0] '("--"))
+    ;; Insert
+    (define-key menu-map [sh-function]
+      '(menu-item "Function..." sh-function
+		  :help "Insert a function definition"))
+    (define-key menu-map [sh-add]
+      '(menu-item "Addition..." sh-add
+		  :help "Insert an addition of VAR and prefix DELTA for Bourne (type) shell"))
+    (define-key menu-map [sh-until]
+      '(menu-item "Until Loop" sh-until
+		  :help "Insert an until loop"))
+    (define-key menu-map [sh-repeat]
+      '(menu-item "Repeat Loop" sh-repeat
+		  :help "Insert a repeat loop definition"))
+    (define-key menu-map [sh-while]
+      '(menu-item "While Loop" sh-while
+		  :help "Insert a while loop"))
+    (define-key menu-map [sh-getopts]
+      '(menu-item "Options Loop" sh-while-getopts
+		  :help "Insert a while getopts loop."))
+    (define-key menu-map [sh-indexed-loop]
+      '(menu-item "Indexed Loop" sh-indexed-loop
+		  :help "Insert an indexed loop from 1 to n."))
+    (define-key menu-map [sh-select]
+      '(menu-item "Select Statement" sh-select
+		  :help "Insert a select statement "))
+    (define-key menu-map [sh-if]
+      '(menu-item "If Statement" sh-if
+		  :help "Insert an if statement"))
+    (define-key menu-map [sh-for]
+      '(menu-item "For Loop" sh-for
+		  :help "Insert a for loop"))
+    (define-key menu-map [sh-case]
+      '(menu-item "Case Statement" sh-case
+		  :help "Insert a case/switch statement"))
+    (define-key menu-map [sh-s1] '("--"))
+    (define-key menu-map [sh-exec]
+      '(menu-item "Execute region" sh-execute-region
+		  :help "Pass optional header and region to a subshell for noninteractive execution"))
+    (define-key menu-map [sh-exec-interpret]
+      '(menu-item "Execute script..." executable-interpret
+		  :help "Run script with user-specified args, and collect output in a buffer"))
+    (define-key menu-map [sh-set-shell]
+      '(menu-item "Set shell type..." sh-set-shell
+		  :help "Set this buffer's shell to SHELL (a string)"))
+    (define-key menu-map [sh-backslash-region]
+      '(menu-item "Backslash region" sh-backslash-region
+		  :help "Insert, align, or delete end-of-line backslashes on the lines in the region."))
     map)
   "Keymap used in Shell-Script mode.")
 
@@ -815,7 +866,7 @@
      (:foreground "yellow" :weight bold))
     (((class color)
       (background light))
-     (:foreground "tan" ))
+     (:foreground "tan1" ))
     (t
      (:weight bold)))
   "Face to show a here-document"