andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
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.
This commit is contained in:
Juri Linkov 2005-08-14 06:59:39 +00:00
parent 05d9618303
commit ec08e2f4da
2 changed files with 25 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
lisp/ChangeLog
View file

@ -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'.

6
lisp/delsel.el
View file

@ -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.