# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 771536107 0
# Node ID 44680acb5d14ff545f1e86163e7c2261f378cfcf
# Parent  d3e50535e6da9706ebf423571f7a31fb094af63d
(mouse-save-then-kill-delete-region): Turn off change hooks
for the edit operations that are not real.

diff -r d3e50535e6da -r 44680acb5d14 lisp/mouse.el
--- a/lisp/mouse.el	Mon Jun 13 19:34:21 1994 +0000
+++ b/lisp/mouse.el	Mon Jun 13 19:35:07 1994 +0000
@@ -408,11 +408,15 @@
     ;; 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)