# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1031611484 0
# Node ID d817d0837c74374c6c2e73768baabff2f81b1fa5
# Parent  90475d8eda5324cdca938b92898184f76811a757
(apply-macro-to-region-lines): Let-bind mark-active to
nil while executing macro to avoid triggering delete-selection-mode.

diff -r 90475d8eda53 -r d817d0837c74 lisp/macros.el
--- a/lisp/macros.el	Mon Sep 09 22:44:27 2002 +0000
+++ b/lisp/macros.el	Mon Sep 09 22:44:44 2002 +0000
@@ -299,7 +299,8 @@
 	  (forward-line 1)
 	  (set-marker next-line-marker (point)))
 	(save-excursion
-	  (execute-kbd-macro (or macro last-kbd-macro))))
+	  (let ((mark-active nil))
+	    (execute-kbd-macro (or macro last-kbd-macro)))))
       (set-marker end-marker nil)
       (set-marker next-line-marker nil))))