[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/consult 1794377b1d: Swap save-excursion and save-restri
From: |
ELPA Syncer |
Subject: |
[elpa] externals/consult 1794377b1d: Swap save-excursion and save-restriction |
Date: |
Thu, 16 Feb 2023 16:57:28 -0500 (EST) |
branch: externals/consult
commit 1794377b1d61f88e0af2e3dff033bd9832d274b8
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Swap save-excursion and save-restriction
---
consult-register.el | 4 ++--
consult.el | 4 ++--
2 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/consult-register.el b/consult-register.el
index 72f18670c8..47274eab5b 100644
--- a/consult-register.el
+++ b/consult-register.el
@@ -66,8 +66,8 @@ Each element of the list must have the form (char . name).")
(cl-defmethod consult-register--describe ((val marker))
"Describe marker register VAL."
(with-current-buffer (marker-buffer val)
- (save-restriction
- (save-excursion
+ (save-excursion
+ (save-restriction
(widen)
(goto-char val)
(let* ((line (line-number-at-pos))
diff --git a/consult.el b/consult.el
index 3582e36b82..da4201e192 100644
--- a/consult.el
+++ b/consult.el
@@ -864,8 +864,8 @@ Also temporarily increase the gc limit via
`consult--with-increased-gc'."
"Get marker in BUFFER from LINE and COLUMN."
(when (buffer-live-p buffer)
(with-current-buffer buffer
- (save-restriction
- (save-excursion
+ (save-excursion
+ (save-restriction
(widen)
(goto-char (point-min))
;; Location data might be invalid by now!
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/consult 1794377b1d: Swap save-excursion and save-restriction,
ELPA Syncer <=