Mercurial > emacs
changeset 12864:3b9dcd964c66
(sh-mode-map): Use new name skeleton-pair-insert-maybe.
(sh-mode): Use new names skeleton-pair-alist, skeleton-pair-filter.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 15 Aug 1995 20:05:12 +0000 |
| parents | bcf5d042f057 |
| children | aa38412bf76e |
| files | lisp/progmodes/sh-script.el |
| diffstat | 1 files changed, 10 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/sh-script.el Tue Aug 15 19:50:12 1995 +0000 +++ b/lisp/progmodes/sh-script.el Tue Aug 15 20:05:12 1995 +0000 @@ -246,12 +246,12 @@ (define-key map "\C-c|" 'sh-execute-region) (define-key map "\C-c!" 'executable-interpret) (define-key map "<" 'sh-maybe-here-document) - (define-key map "(" 'pair-insert-maybe) - (define-key map "{" 'pair-insert-maybe) - (define-key map "[" 'pair-insert-maybe) - (define-key map "'" 'pair-insert-maybe) - (define-key map "`" 'pair-insert-maybe) - (define-key map "\"" 'pair-insert-maybe) + (define-key map "(" 'skeleton-pair-insert-maybe) + (define-key map "{" 'skeleton-pair-insert-maybe) + (define-key map "[" 'skeleton-pair-insert-maybe) + (define-key map "'" 'skeleton-pair-insert-maybe) + (define-key map "`" 'skeleton-pair-insert-maybe) + (define-key map "\"" 'skeleton-pair-insert-maybe) (define-key map "\t" 'sh-indent-line) (substitute-key-definition 'complete-tag 'comint-dynamic-complete @@ -626,8 +626,8 @@ (make-local-variable 'sh-header-marker) (make-local-variable 'sh-shell-path) (make-local-variable 'sh-shell) - (make-local-variable 'pair-alist) - (make-local-variable 'pair-filter) + (make-local-variable 'skeleton-pair-alist) + (make-local-variable 'skeleton-pair-filter) (make-local-variable 'font-lock-keywords) (make-local-variable 'comint-dynamic-complete-functions) (make-local-variable 'comint-prompt-regexp) @@ -647,8 +647,8 @@ comint-dynamic-complete-functions sh-dynamic-complete-functions ;; we can't look if previous line ended with `\' comint-prompt-regexp "^[ \t]*" - pair-alist '((?` _ ?`)) - pair-filter 'sh-quoted-p + skeleton-pair-alist '((?` _ ?`)) + skeleton-pair-filter 'sh-quoted-p skeleton-further-elements '((< '(- (min sh-indentation (current-column))))) skeleton-filter 'sh-feature)