emacs-elpa-diffs
[Top][All Lists]
Advanced

[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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]