Mercurial > emacs

changeset 94046:8208c3bf9e0d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(sh-show-indent): Fix typo. (sh-mode-map): Add a toggle for inserting braces and quotes in pairs.
author Dan Nicolaescu <dann@ics.uci.edu>
date Sat, 12 Apr 2008 16:41:03 +0000
parents ac3873b5653a
children a07273da728c
files lisp/ChangeLog lisp/progmodes/sh-script.el
diffstat 2 files changed, 10 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Sat Apr 12 16:33:24 2008 +0000
+++ b/lisp/ChangeLog	Sat Apr 12 16:41:03 2008 +0000
@@ -1,5 +1,8 @@
 2008-04-12  Dan Nicolaescu  <dann@ics.uci.edu>
 
+	* progmodes/sh-script.el (sh-show-indent): Fix typo.
+	(sh-mode-map): Add a toggle for inserting braces and quotes in pairs.
+
 	* vc-cvs.el (vc-cvs-registered): Allow removed files to be
 	considered registered.
 
--- a/lisp/progmodes/sh-script.el	Sat Apr 12 16:33:24 2008 +0000
+++ b/lisp/progmodes/sh-script.el	Sat Apr 12 16:41:03 2008 +0000
@@ -492,11 +492,16 @@
 		  :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 "Show the how the currently line would be indented"))
+		  :help "Show the how the current line would be indented"))
     (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-pair]
+      '(menu-item "Insert braces and quotes in pairs" (lambda () (interactive) (setq skeleton-pair (not skeleton-pair)))
+		  :button (:toggle . skeleton-pair)
+		  :help "Inserting a brace or quote automatically inserts the matching pair"))
+
     (define-key menu-map [sh-s0] '("--"))
     ;; Insert
     (define-key menu-map [sh-function]
@@ -2776,7 +2781,7 @@
     (if msg (message "%s" msg) (message nil))))
 
 (defun sh-show-indent (arg)
-  "Show the how the currently line would be indented.
+  "Show the how the current line would be indented.
 This tells you which variable, if any, controls the indentation of
 this line.
 If optional arg ARG is non-null (called interactively with a prefix),