mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-06 14:02:07 -08:00
Code Issues Projects Releases Wiki Activity

(mouse-save-then-kill-delete-region): Don't bind

Browse source 
before-change-function,  after-change-function.
This commit is contained in:
Dave Love 2000-05-31 22:48:20 +00:00
parent bf9e8804fc
commit 8faa97078b
1 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/mouse.el
View file

@ -953,14 +953,12 @@ This does not delete the region; it acts like \\[kill-ring-save]."
;; Delete, but make the undo-list entry share with the kill ring.
;; First, delete just one char, so in case buffer is being modified
;; for the first time, the undo list records that fact.
(let (before-change-function after-change-function
before-change-functions after-change-functions)
(let (before-change-functions after-change-functions)
(delete-region beg
(+ beg (if (> end beg) 1 -1))))
(let ((buffer-undo-list buffer-undo-list))
;; Undo that deletion--but don't change the undo list!
(let (before-change-function after-change-function
before-change-functions after-change-functions)
(let (before-change-functions after-change-functions)
(primitive-undo 1 buffer-undo-list))
;; Now delete the rest of the specified region,
;; but don't record it.