Mercurial > emacs

changeset 4707:ca55f9c620c5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(sc-glom-headers): Bind mark-active around calling region-... (sc-cite-original): Likewise.
author Richard M. Stallman <rms@gnu.org>
date Sun, 12 Sep 1993 11:25:16 +0000
parents 8a2da7726921
children a915b866ac7f
files lisp/=sc.el
diffstat 1 files changed, 8 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/=sc.el	Sun Sep 12 10:51:49 1993 +0000
+++ b/lisp/=sc.el	Sun Sep 12 11:25:16 1993 +0000
@@ -1366,10 +1366,12 @@
 	(info (copy-sequence sc-gal-information)))
     (setq sc-gal-attributions nil
 	  sc-gal-information nil)
-    (let ((start (region-beginning))
-	  (end   (region-end))
+    (let (start end
 	  (sc-force-confirmation-p t)
 	  (sc-cite-context nil))
+      (let ((mark-active t))
+	(setq start (region-beginning)
+	      end (region-end)))
       (sc-fetch-fields start end)
       (if (null sc-gal-information)
 	  (progn
@@ -1514,8 +1516,10 @@
   (run-hooks 'sc-pre-hook)
   (setq sc-gal-attributions nil)
   (setq sc-gal-information nil)
-  (let ((start (region-beginning))
-	(end   (region-end)))
+  (let (start end)
+    (let ((mark-active t))
+      (setq start (region-beginning)
+	    end (region-end)))
     (sc-fetch-fields start end)
     (sc-mail-yank-clear-headers start end)
     (if (not sc-all-but-cite-p)