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

[Kim F . Storm]

Index: emacs/lisp/international/mule.el
diff -c emacs/lisp/international/mule.el:1.213 
emacs/lisp/international/mule.el:1.214
*** emacs/lisp/international/mule.el:1.213      Thu Dec 30 23:58:33 2004
--- emacs/lisp/international/mule.el    Wed Feb  9 15:50:37 2005
***************
*** 1268,1274 ****
         (if (or value (boundp 'encoded-kbd-mode))
             (set-keyboard-coding-system value)
           (set-default 'keyboard-coding-system nil))) ; must initialize
!   :version "21.4"
    :group 'keyboard
    :group 'mule)
  
--- 1268,1274 ----
         (if (or value (boundp 'encoded-kbd-mode))
             (set-keyboard-coding-system value)
           (set-default 'keyboard-coding-system nil))) ; must initialize
!   :version "22.1"
    :group 'keyboard
    :group 'mule)
  
***************
*** 1912,1918 ****
          ;; Otherwise, if we can recognize the undo elt for the insertion,
          ;; remove it and get ready to replace it later.
          ;; In the mean time, turn off undo recording.
!         (let ((last (car-safe buffer-undo-list))) 
            (if (and (consp last) (eql (car last) from) (eql (cdr last) to))
                (setq undo-list-saved (cdr buffer-undo-list)
                      buffer-undo-list t))))
--- 1912,1918 ----
          ;; Otherwise, if we can recognize the undo elt for the insertion,
          ;; remove it and get ready to replace it later.
          ;; In the mean time, turn off undo recording.
!         (let ((last (car-safe buffer-undo-list)))
            (if (and (consp last) (eql (car last) from) (eql (cdr last) to))
                (setq undo-list-saved (cdr buffer-undo-list)
                      buffer-undo-list t))))