diff options
author | Juanma Barranquero <lekktu@gmail.com> | 2003-05-25 01:31:48 +0000 |
---|---|---|
committer | Juanma Barranquero <lekktu@gmail.com> | 2003-05-25 01:31:48 +0000 |
commit | 9288f9b0c84dadc5926d97d4bb8ef6dcfff38da4 (patch) | |
tree | 321c380dad9192a1763470deb8ef37426d651826 /lisp/skeleton.el | |
parent | 6953a611295eb3cd357a5e1a2ca176c05b325c1c (diff) | |
download | emacs-9288f9b0c84dadc5926d97d4bb8ef6dcfff38da4.tar.gz |
(skeleton-pair-insert-maybe): Remove leftover reference to
skeleton-abbrev-cleanup.
Diffstat (limited to 'lisp/skeleton.el')
-rw-r--r-- | lisp/skeleton.el | 19 |
1 files 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 |