Mercurial > emacs
changeset 65384:96998d31413e
(sh-skeleton-pair-default-alist): New var.
(sh-mode): Locally set skeleton-pair-default-alist.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 09 Sep 2005 01:26:00 +0000 |
| parents | 4dadc0d80d76 |
| children | 4157ef312647 |
| files | lisp/progmodes/sh-script.el |
| diffstat | 1 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/sh-script.el Fri Sep 09 01:24:59 2005 +0000 +++ b/lisp/progmodes/sh-script.el Fri Sep 09 01:26:00 2005 +0000 @@ -490,7 +490,10 @@ map) "Keymap used in Shell-Script mode.") - +(defvar sh-skeleton-pair-default-alist '((?( _ ?)) (?\)) + (?[ ?\s _ ?\s ?]) (?\]) + (?{ _ ?}) (?\})) + "Value to use for `skeleton-pair-default-alist' in Shell-Script mode.") (defcustom sh-dynamic-complete-functions '(shell-dynamic-complete-environment-variable @@ -1362,6 +1365,8 @@ (make-local-variable 'sh-shell-variables-initialized) (make-local-variable 'imenu-generic-expression) (make-local-variable 'sh-indent-supported-here) + (make-local-variable 'skeleton-pair-default-alist) + (setq skeleton-pair-default-alist sh-skeleton-pair-default-alist) (setq skeleton-end-hook (lambda () (or (eolp) (newline) (indent-relative))) paragraph-start (concat page-delimiter "\\|$")