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

[Kai Großjohann]

Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.606 emacs/lisp/simple.el:1.607
*** emacs/lisp/simple.el:1.606  Sat May 24 21:45:14 2003
--- emacs/lisp/simple.el        Wed May 28 16:07:09 2003
***************
*** 1913,1919 ****
          (if (eq last-command 'kill-region)
              (kill-append string (< end beg) yank-handler)
            (kill-new string nil yank-handler)))
!       (setq this-command 'kill-region))
      ((buffer-read-only text-read-only)
       ;; The code above failed because the buffer, or some of the characters
       ;; in the region, are read-only.
--- 1913,1920 ----
          (if (eq last-command 'kill-region)
              (kill-append string (< end beg) yank-handler)
            (kill-new string nil yank-handler)))
!       (when (or string (eq last-command 'kill-region))
!         (setq this-command 'kill-region)))
      ((buffer-read-only text-read-only)
       ;; The code above failed because the buffer, or some of the characters
       ;; in the region, are read-only.