(delete-selection-pre-hook): If overwrite-mode is

enabled and the current command is self-insert-command, call it
explicitly with overwrite-mode bound to nil, to not allow it
to delete the character after the selected region.

2 files changed, 25 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b0c9a6c1297..3936dc45eb9 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,22 @@
+2005-08-14  Juri Linkov  <juri@jurta.org>
+
+        * progmodes/compile.el (compilation-mode-font-lock-keywords):
+        Remove highlighting of "Compilation started".  Highlight only
+        the word "finished" in "Compilation finished".  Add highlighting
+        of "interrupt", "killed", "terminated" and the exit code.
+        (compilation-start): Add newline after header.  Use exactly the
+        same time stamp format as the finishing message.
+        (compilation-mode-map): Add ellipsis to "Search Files (grep)".
+
+        * progmodes/grep.el (grep-mode-map): Add ellipsis to "Another grep".
+        (grep-mode-font-lock-keywords): Don't highlight "Grep started".
+        Add highlighting of "interrupt", "killed", "terminated".
+
+        * delsel.el (delete-selection-pre-hook): If overwrite-mode is
+        enabled and the current command is self-insert-command, call it
+        explicitly with overwrite-mode bound to nil, to not allow it
+        to delete the character after the selected region.
+
 2005-08-12  Matt Hodges  <MPHodges@member.fsf.org>
 
         * emacs-lisp/eldoc.el: Add move-beginning-of-line,
@@ -252,8 +271,7 @@
 
 2005-08-09  Juri Linkov  <juri@jurta.org>
 
-        * info.el: Replace `info' with upper-case `Info'
-        where appropriate.
+        * info.el: Replace `info' with upper-case `Info' where appropriate.
         (info-title-1, info-title-2, info-title-3, info-title-4)
         (info-menu-header): Move up face definitions.
         (info-menu-star): Rename from `info-menu-5'.
diff --git a/lisp/delsel.el b/lisp/delsel.el
index 74ef011d477..d7a3d90e969 100644
--- a/lisp/delsel.el
+++ b/lisp/delsel.el
@@ -101,7 +101,11 @@ any selection."
                    (unless empty-region
                      (setq this-command 'ignore))))
                 (type
-                 (delete-active-region)))
+                 (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.