# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 959813300 0
# Node ID 2f44841e5506bf24ec088549cdf28bc86cce0d16
# Parent  d34547dec008320d20ab3d758c1337e3e866a589
(mouse-save-then-kill-delete-region): Don't bind
before-change-function,  after-change-function.

diff -r d34547dec008 -r 2f44841e5506 lisp/mouse.el
--- a/lisp/mouse.el	Wed May 31 21:17:57 2000 +0000
+++ b/lisp/mouse.el	Wed May 31 22:48:20 2000 +0000
@@ -953,14 +953,12 @@
     ;; 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.