procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(skeleton-pair-insert-maybe): Remove leftover reference to

Browse source 
skeleton-abbrev-cleanup.
This commit is contained in:
Juanma Barranquero 2003-05-25 01:31:48 +00:00
parent 9018a88ed6
commit c6160f09be
1 changed files with 9 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lisp/skeleton.el
View file

@ -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