diff options
| author | Dan Nicolaescu | 2008-04-12 16:41:03 +0000 |
|---|---|---|
| committer | Dan Nicolaescu | 2008-04-12 16:41:03 +0000 |
| commit | 63616f520813a708b0bf717be9dde084bddab31a (patch) | |
| tree | 482822a9b5956143330870c315fd6294a6e8650b | |
| parent | 07d5b8c101fe83ae92a2e14dbad9044984b732fb (diff) | |
| download | emacs-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/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/progmodes/sh-script.el | 9 |
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 @@ | |||
| 1 | 2008-04-12 Dan Nicolaescu <dann@ics.uci.edu> | 1 | 2008-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. |
| 2780 | This tells you which variable, if any, controls the indentation of | 2785 | This tells you which variable, if any, controls the indentation of |
| 2781 | this line. | 2786 | this line. |
| 2782 | If optional arg ARG is non-null (called interactively with a prefix), | 2787 | If optional arg ARG is non-null (called interactively with a prefix), |