[Emacs-diffs] Changes to emacs/lisp/skeleton.el

[Juanma Barranquero]

Index: emacs/lisp/skeleton.el
diff -c emacs/lisp/skeleton.el:1.35 emacs/lisp/skeleton.el:1.36
*** emacs/lisp/skeleton.el:1.35 Sat May 24 20:36:59 2003
--- emacs/lisp/skeleton.el      Sat May 24 21:31:48 2003
***************
*** 491,506 ****
                     (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))))))
  
  
  ;; A more serious example can be found in sh-script.el
--- 491,505 ----
                     (funcall skeleton-pair-filter))))
        (self-insert-command (prefix-numeric-value arg))
        (setq last-command-char (logand last-command-char 255))
!       (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