[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/consult 48474f1: Remove unnecessary calls to buffer-liv
From: |
ELPA Syncer |
Subject: |
[elpa] externals/consult 48474f1: Remove unnecessary calls to buffer-live-p |
Date: |
Thu, 30 Sep 2021 08:57:09 -0400 (EDT) |
branch: externals/consult
commit 48474f1e69755e514ffd6def20147bce28f71f9f
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Remove unnecessary calls to buffer-live-p
---
consult-register.el | 2 +-
consult.el | 4 ++--
2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/consult-register.el b/consult-register.el
index 0269882..089fb6d 100644
--- a/consult-register.el
+++ b/consult-register.el
@@ -97,7 +97,7 @@ This function can be used as `register-preview-function'."
(propertize (abbreviate-file-name (cadr val)) 'face
'consult-file)
(caddr val)))
;; Display full line of buffer
- ((and (markerp val) (buffer-live-p (marker-buffer val)))
+ ((and (markerp val) (marker-buffer val))
(with-current-buffer (marker-buffer val)
(save-restriction
(save-excursion
diff --git a/consult.el b/consult.el
index e5d3edc..3b0e980 100644
--- a/consult.el
+++ b/consult.el
@@ -1102,7 +1102,7 @@ See `isearch-open-necessary-overlays' and
`isearch-open-overlay-temporary'."
(defun consult--jump-nomark (pos)
"Go to POS and recenter."
(cond
- ((and (markerp pos) (not (buffer-live-p (marker-buffer pos))))
+ ((and (markerp pos) (not (marker-buffer pos)))
;; Only print a message, no error in order to not mess
;; with the minibuffer update hook.
(message "Buffer is dead"))
@@ -1147,7 +1147,7 @@ FACE is the cursor face."
(cond
(restore
(let ((saved-buffer (marker-buffer saved-pos)))
- (if (not (buffer-live-p saved-buffer))
+ (if (not saved-buffer)
(message "Buffer is dead")
(set-buffer saved-buffer)
(narrow-to-region saved-min saved-max)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/consult 48474f1: Remove unnecessary calls to buffer-live-p,
ELPA Syncer <=