Commit 2f4b15ef authored by Richard M. Stallman's avatar Richard M. Stallman

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

for the edit operations that are not real.
parent 685ff9f8
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment