mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

(mouse-save-then-kill-delete-region): Turn off change hooks

Browse Source 
for the edit operations that are not real.
This commit is contained in:
Richard M. Stallman 1994-06-13 19:35:07 +00:00
parent 685ff9f8e6
commit 2f4b15efbd
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/mouse.el
View File

@ -408,11 +408,15 @@ 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.
(delete-region beg
(+ beg (if (> end beg) 1 -1)))
(let (before-change-function after-change-function
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!
(primitive-undo 1 buffer-undo-list)
(let (before-change-function after-change-function
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.
(setq buffer-undo-list t)