From 8faa97078b7ed4431cdbcbead728130f8fdbf56c Mon Sep 17 00:00:00 2001 From: Dave Love Date: Wed, 31 May 2000 22:48:20 +0000 Subject: [PATCH] (mouse-save-then-kill-delete-region): Don't bind before-change-function, after-change-function. --- lisp/mouse.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/lisp/mouse.el b/lisp/mouse.el index 5df91d9cbef..12ddb3a7462 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -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. -- 2.39.5