branch: externals/consult
commit 41b8f86db333a8d23f3d5f0dfe005f082591c969
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Fix consult--man-action
---
consult.el | 14 ++++++++------
1 file changed, 8 insertions(+), 6 deletions(-)
diff --git a/consult.el b/consult.el
index b7e845c7dd..38980fa4f9 100644
--- a/consult.el
+++ b/consult.el
@@ -5563,12 +5563,14 @@ details regarding the asynchronous search."
(defun consult--man-action (page &optional nodisplay)
"Create man PAGE buffer, do not display if NODISPLAY is non-nil."
(dlet ((Man-prefer-synchronous-call t)
- (Man-notify-method (and (not nodisplay) 'aggressive)))
- (let* ((inhibit-message nil) (message-log-max nil) (buf (man page)))
- (when (buffer-live-p buf)
- (with-current-buffer buf
- (goto-char (point-min))
- (current-buffer))))))
+ (Man-notify-method (and (not nodisplay) 'aggressive))
+ (inhibit-message t)
+ (message-log-max nil))
+ (when-let* ((buf (man page))
+ ((buffer-live-p buf)))
+ (with-current-buffer buf
+ (goto-char (point-min))
+ (current-buffer)))))
(consult--define-state man)
