[elpa] 285/299: Use `push-mark' instead of `set-mark'.

[Stefan Monnier]

monnier pushed a commit to branch externals/auctex
in repository elpa.

commit 55d09abe30495d2272b00c8e9293a7dca15d301e
Author: Ikumi Keita <address@hidden>
Date:   Thu Oct 2 14:00:13 2014 +0200

    Use `push-mark' instead of `set-mark'.
    
    * tex-info.el (Texinfo-mark-environment, Texinfo-mark-section)
    (Texinfo-mark-node): Use `push-mark' instead of `set-mark'.
    
    * latex.el (LaTeX-mark-environment): Ditto.
    
    * context.el (ConTeXt-mark-environment): Ditto.
    
    Signed-off-by: Tassilo Horn <address@hidden>
---
 ChangeLog   |    9 +++++++++
 context.el  |    2 +-
 latex.el    |    2 +-
 tex-info.el |    6 +++---
 4 files changed, 14 insertions(+), 5 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 4a88c13..adefe28 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+2014-10-02  Ikumi Keita  <address@hidden>
+
+       * tex-info.el (Texinfo-mark-environment, Texinfo-mark-section)
+       (Texinfo-mark-node): Use `push-mark' instead of `set-mark'.
+
+       * latex.el (LaTeX-mark-environment): Ditto.
+
+       * context.el (ConTeXt-mark-environment): Ditto.
+
 2014-09-25  Tassilo Horn  <address@hidden>
 
        * latex.el (LaTeX-insert-environment): Pass correct \end buffer
diff --git a/context.el b/context.el
index 3cc890f..b9ce2c0 100644
--- a/context.el
+++ b/context.el
@@ -839,7 +839,7 @@ the contents."
   (interactive)
   (let ((cur (point)))
     (ConTeXt-find-matching-stop inner)
-    (set-mark (point))
+    (push-mark (point))
     (goto-char cur)
     (ConTeXt-find-matching-start inner)
     (TeX-activate-region)))
diff --git a/latex.el b/latex.el
index aa755c9..143cb4e 100644
--- a/latex.el
+++ b/latex.el
@@ -4172,7 +4172,7 @@ environments."
       (goto-char cur)
       (dotimes (c count) (LaTeX-find-matching-begin))
       (setq beg (point)))
-    (set-mark end)
+    (push-mark end)
     (goto-char beg)
     (TeX-activate-region)))
 
diff --git a/tex-info.el b/tex-info.el
index 2c94b6a..83e0081 100644
--- a/tex-info.el
+++ b/tex-info.el
@@ -183,7 +183,7 @@ environments."
        (unless (= (1+ c) count)
          (beginning-of-line 0)))
       (setq beg (point)))
-    (set-mark end)
+    (push-mark end)
     (goto-char beg)
     (TeX-activate-region)))
 
@@ -264,7 +264,7 @@ the section."
            (when  (looking-at "address@hidden>")
              (set boundary (point))))))
 
-      (set-mark end)
+      (push-mark end)
       (goto-char beg)
       (TeX-activate-region) )))
 
@@ -284,7 +284,7 @@ beginning of keyword address@hidden' or address@hidden'."
                    (progn (beginning-of-line) (point))))))
 
     (when (and beg end)
-      (set-mark end)
+      (push-mark end)
       (goto-char beg)
       (TeX-activate-region) )))