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 | c6160f09bec0f89a66a01e189f14f141e1452c4d (patch) | |
| tree | b0aa567ea424b92aa4f735a836967c8152010120 /lisp/skeleton.el | |
| parent | 9018a88ed6de37d8f33a7820781f0dc983617689 (diff) | |
| download | emacs-c6160f09bec0f89a66a01e189f14f141e1452c4d.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 |