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)