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

[Juri Linkov]

Index: emacs/lisp/delsel.el
diff -c emacs/lisp/delsel.el:1.35 emacs/lisp/delsel.el:1.36
*** emacs/lisp/delsel.el:1.35   Sat Aug  6 22:13:42 2005
--- emacs/lisp/delsel.el        Sun Aug 14 06:57:21 2005
***************
*** 101,107 ****
                   (unless empty-region
                     (setq this-command 'ignore))))
                (type
!                (delete-active-region)))
        (file-supersession
         ;; If ask-user-about-supersession-threat signals an error,
         ;; stop safe_run_hooks from clearing out pre-command-hook.
--- 101,111 ----
                   (unless empty-region
                     (setq this-command 'ignore))))
                (type
!                (delete-active-region)
!                (if (and overwrite-mode (eq this-command 'self-insert-command))
!                  (let ((overwrite-mode nil))
!                    (self-insert-command (prefix-numeric-value 
current-prefix-arg))
!                    (setq this-command 'ignore)))))
        (file-supersession
         ;; If ask-user-about-supersession-threat signals an error,
         ;; stop safe_run_hooks from clearing out pre-command-hook.