From 48474f1e69755e514ffd6def20147bce28f71f9f Mon Sep 17 00:00:00 2001 From: Daniel Mendler Date: Thu, 30 Sep 2021 14:43:54 +0200 Subject: [PATCH] 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 02698828..089fb6d8 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 e5d3edc8..3b0e980b 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)