From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 15 Aug 1995 20:05:12 +0000 (+0000)
Subject: (sh-mode-map): Use new name skeleton-pair-insert-maybe.
X-Git-Tag: emacs-19.34~2996
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=81ed2d75e9d24574c4db3867e19dc35c482f6845;p=emacs.git

(sh-mode-map): Use new name skeleton-pair-insert-maybe.
(sh-mode): Use new names skeleton-pair-alist, skeleton-pair-filter.
---

diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el
index 9c03c5f63f2..e9aae75c49f 100644
--- a/lisp/progmodes/sh-script.el
+++ b/lisp/progmodes/sh-script.el
@@ -246,12 +246,12 @@ actually defined as the table for the like of \\[edit-abbrevs].")
     (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 @@ with your script for an edit-interpret-debug cycle."
   (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 @@ with your script for an edit-interpret-debug cycle."
 	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)