mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(delete-selection-pre-hook): Don't set this-command

Browse source 
to `ignore' if the region is empty.
This commit is contained in:
Gerd Moellmann 2001-07-31 11:36:30 +00:00
parent b23bad0b77
commit 10e922bdd2
2 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,5 +1,8 @@
2001-07-31 Gerd Moellmann <gerd@gnu.org>
* delsel.el (delete-selection-pre-hook): Don't set this-command
to `ignore' if the region is empty.
* international/mule.el (set-keyboard-coding-system): Set
keyboard-coding-system.

8
lisp/delsel.el
View file

@ -1,6 +1,6 @@
;;; delsel.el --- delete selection if you insert
;; Copyright (C) 1992, 1997, 1998 Free Software Foundation, Inc.
;; Copyright (C) 1992, 1997, 1998, 2001 Free Software Foundation, Inc.
;; Author: Matthieu Devin <devin@lucid.com>
;; Maintainer: FSF
@ -96,8 +96,10 @@ any selection."
(current-kill 1))
(delete-active-region))
((eq type 'supersede)
(delete-active-region)
(setq this-command 'ignore))
(let ((empty-region (= (point) (mark))))
(delete-active-region)
(unless empty-region
(setq this-command 'ignore))))
(type
(delete-active-region))))))