diff options
| author | Juanma Barranquero | 2003-05-25 01:31:48 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2003-05-25 01:31:48 +0000 |
| commit | c6160f09bec0f89a66a01e189f14f141e1452c4d (patch) | |
| tree | b0aa567ea424b92aa4f735a836967c8152010120 | |
| parent | 9018a88ed6de37d8f33a7820781f0dc983617689 (diff) | |
| download | emacs-c6160f09bec0f89a66a01e189f14f141e1452c4d.tar.gz emacs-c6160f09bec0f89a66a01e189f14f141e1452c4d.zip | |
(skeleton-pair-insert-maybe): Remove leftover reference to
skeleton-abbrev-cleanup.
| -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." | |||
| 491 | (funcall skeleton-pair-filter)))) | 491 | (funcall skeleton-pair-filter)))) |
| 492 | (self-insert-command (prefix-numeric-value arg)) | 492 | (self-insert-command (prefix-numeric-value arg)) |
| 493 | (setq last-command-char (logand last-command-char 255)) | 493 | (setq last-command-char (logand last-command-char 255)) |
| 494 | (or skeleton-abbrev-cleanup | 494 | (skeleton-insert |
| 495 | (skeleton-insert | 495 | (cons nil (or (assq last-command-char skeleton-pair-alist) |
| 496 | (cons nil (or (assq last-command-char skeleton-pair-alist) | 496 | (assq last-command-char '((?( _ ?)) |
| 497 | (assq last-command-char '((?( _ ?)) | 497 | (?[ _ ?]) |
| 498 | (?[ _ ?]) | 498 | (?{ _ ?}) |
| 499 | (?{ _ ?}) | 499 | (?< _ ?>) |
| 500 | (?< _ ?>) | 500 | (?` _ ?'))) |
| 501 | (?` _ ?'))) | 501 | `(,last-command-char _ ,last-command-char))) |
| 502 | `(,last-command-char _ ,last-command-char))) | 502 | (if mark -1))))) |
| 503 | (if mark -1)))))) | ||
| 504 | 503 | ||
| 505 | 504 | ||
| 506 | ;; A more serious example can be found in sh-script.el | 505 | ;; A more serious example can be found in sh-script.el |