monnier pushed a commit to branch externals/auctex
in repository elpa.
commit 55d09abe30495d2272b00c8e9293a7dca15d301e
Author: Ikumi Keita <[email protected]>
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 <[email protected]>
---
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 <[email protected]>
+
+ * 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 <[email protected]>
* 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 "^\\s-*@node\\_>")
(set boundary (point))))))
- (set-mark end)
+ (push-mark end)
(goto-char beg)
(TeX-activate-region) )))
@@ -284,7 +284,7 @@ beginning of keyword `@node' or `@bye'."
(progn (beginning-of-line) (point))))))
(when (and beg end)
- (set-mark end)
+ (push-mark end)
(goto-char beg)
(TeX-activate-region) )))
