From c6160f09bec0f89a66a01e189f14f141e1452c4d Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Sun, 25 May 2003 01:31:48 +0000 Subject: [PATCH] (skeleton-pair-insert-maybe): Remove leftover reference to skeleton-abbrev-cleanup. --- lisp/skeleton.el | 19 +++++++++---------- 1 file changed, 9 insertions(+), 10 deletions(-) diff --git a/lisp/skeleton.el b/lisp/skeleton.el index 12ca2fb3247..aea5aa77236 100644 --- a/lisp/skeleton.el +++ b/lisp/skeleton.el @@ -491,16 +491,15 @@ symmetrical ones, and the same character twice for the others." (funcall skeleton-pair-filter)))) (self-insert-command (prefix-numeric-value arg)) (setq last-command-char (logand last-command-char 255)) - (or skeleton-abbrev-cleanup - (skeleton-insert - (cons nil (or (assq last-command-char skeleton-pair-alist) - (assq last-command-char '((?( _ ?)) - (?[ _ ?]) - (?{ _ ?}) - (?< _ ?>) - (?` _ ?'))) - `(,last-command-char _ ,last-command-char))) - (if mark -1)))))) + (skeleton-insert + (cons nil (or (assq last-command-char skeleton-pair-alist) + (assq last-command-char '((?( _ ?)) + (?[ _ ?]) + (?{ _ ?}) + (?< _ ?>) + (?` _ ?'))) + `(,last-command-char _ ,last-command-char))) + (if mark -1))))) ;; A more serious example can be found in sh-script.el -- 2.39.2