Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
c6160f09
Commit
c6160f09
authored
May 25, 2003
by
Juanma Barranquero
Browse files
(skeleton-pair-insert-maybe): Remove leftover reference to
skeleton-abbrev-cleanup.
parent
9018a88e
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
9 additions
and
10 deletions
+9
-10
lisp/skeleton.el
lisp/skeleton.el
+9
-10
No files found.
lisp/skeleton.el
View file @
c6160f09
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment