From: Kim F. Storm <storm@cua.dk>
Date: Mon, 9 Sep 2002 22:44:44 +0000 (+0000)
Subject: (apply-macro-to-region-lines): Let-bind mark-active to
X-Git-Tag: ttn-vms-21-2-B4~13285
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f732f824ad4fcea0c567e5ae3b14531425f9bc8f;p=emacs.git

(apply-macro-to-region-lines): Let-bind mark-active to
nil while executing macro to avoid triggering delete-selection-mode.
---

diff --git a/lisp/macros.el b/lisp/macros.el
index 0857dd3c2db..11fa2223a4e 100644
--- a/lisp/macros.el
+++ b/lisp/macros.el
@@ -299,7 +299,8 @@ and then select the region of un-tablified names and use
 	  (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))))