aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDan Nicolaescu2008-04-12 16:41:03 +0000
committerDan Nicolaescu2008-04-12 16:41:03 +0000
commit63616f520813a708b0bf717be9dde084bddab31a (patch)
tree482822a9b5956143330870c315fd6294a6e8650b
parent07d5b8c101fe83ae92a2e14dbad9044984b732fb (diff)
downloademacs-63616f520813a708b0bf717be9dde084bddab31a.tar.gz
emacs-63616f520813a708b0bf717be9dde084bddab31a.zip
(sh-show-indent): Fix typo.
(sh-mode-map): Add a toggle for inserting braces and quotes in pairs.
-rw-r--r--lisp/ChangeLog3
-rw-r--r--lisp/progmodes/sh-script.el9
2 files changed, 10 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dac4bdaa452..c67aae3ae2d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
12008-04-12 Dan Nicolaescu <dann@ics.uci.edu> 12008-04-12 Dan Nicolaescu <dann@ics.uci.edu>
2 2
3 * progmodes/sh-script.el (sh-show-indent): Fix typo.
4 (sh-mode-map): Add a toggle for inserting braces and quotes in pairs.
5
3 * vc-cvs.el (vc-cvs-registered): Allow removed files to be 6 * vc-cvs.el (vc-cvs-registered): Allow removed files to be
4 considered registered. 7 considered registered.
5 8
diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el
index fa32f4aab43..bff58148116 100644
--- a/lisp/progmodes/sh-script.el
+++ b/lisp/progmodes/sh-script.el
@@ -492,11 +492,16 @@ This is buffer-local in every such buffer.")
492 :help "Learn how to indent a line as it currently is indented")) 492 :help "Learn how to indent a line as it currently is indented"))
493 (define-key menu-map [sh-show-indent] 493 (define-key menu-map [sh-show-indent]
494 '(menu-item "Show indentation" sh-show-indent 494 '(menu-item "Show indentation" sh-show-indent
495 :help "Show the how the currently line would be indented")) 495 :help "Show the how the current line would be indented"))
496 (define-key menu-map [sh-set-indent] 496 (define-key menu-map [sh-set-indent]
497 '(menu-item "Set indentation" sh-set-indent 497 '(menu-item "Set indentation" sh-set-indent
498 :help "Set the indentation for the current line")) 498 :help "Set the indentation for the current line"))
499 499
500 (define-key menu-map [sh-pair]
501 '(menu-item "Insert braces and quotes in pairs" (lambda () (interactive) (setq skeleton-pair (not skeleton-pair)))
502 :button (:toggle . skeleton-pair)
503 :help "Inserting a brace or quote automatically inserts the matching pair"))
504
500 (define-key menu-map [sh-s0] '("--")) 505 (define-key menu-map [sh-s0] '("--"))
501 ;; Insert 506 ;; Insert
502 (define-key menu-map [sh-function] 507 (define-key menu-map [sh-function]
@@ -2776,7 +2781,7 @@ If INFO is supplied it is used, else it is calculated from current line."
2776 (if msg (message "%s" msg) (message nil)))) 2781 (if msg (message "%s" msg) (message nil))))
2777 2782
2778(defun sh-show-indent (arg) 2783(defun sh-show-indent (arg)
2779 "Show the how the currently line would be indented. 2784 "Show the how the current line would be indented.
2780This tells you which variable, if any, controls the indentation of 2785This tells you which variable, if any, controls the indentation of
2781this line. 2786this line.
2782If optional arg ARG is non-null (called interactively with a prefix), 2787If optional arg ARG is non-null (called interactively with a prefix),