Commit 8faa9707 authored by Dave Love's avatar Dave Love
Browse files

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

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