mirror of
https://github.com/djcb/mu.git
synced 2024-06-26 07:29:17 +02:00
mu4e-window: add mu4e--buffer-local-boundp
buffer-local-boundp was introduced in emacs 28. Fixes #2456.
This commit is contained in:
parent
d225bb74fd
commit
5d38ec0c08
|
@ -172,6 +172,17 @@ Checks are performed using `derived-mode-p' and the current
|
||||||
buffer's major mode."
|
buffer's major mode."
|
||||||
(eq (mu4e--get-current-buffer-type) type))
|
(eq (mu4e--get-current-buffer-type) type))
|
||||||
|
|
||||||
|
|
||||||
|
;; backward-compat; buffer-local-boundp was introduced in emacs 28.
|
||||||
|
(defun mu4e--buffer-local-boundp (symbol buffer)
|
||||||
|
"Return non-nil if SYMBOL is bound in BUFFER.
|
||||||
|
Also see `local-variable-p'."
|
||||||
|
(condition-case nil
|
||||||
|
(buffer-local-value symbol buffer)
|
||||||
|
(:success t)
|
||||||
|
(void-variable nil)))
|
||||||
|
|
||||||
|
|
||||||
(defun mu4e-get-view-buffer (&optional headers-buffer create)
|
(defun mu4e-get-view-buffer (&optional headers-buffer create)
|
||||||
"Return a view buffer belonging optionally to HEADERS-BUFFER.
|
"Return a view buffer belonging optionally to HEADERS-BUFFER.
|
||||||
|
|
||||||
|
@ -197,7 +208,8 @@ being created if CREATE is non-nil."
|
||||||
;; Search all view buffers and return those that are linked to
|
;; Search all view buffers and return those that are linked to
|
||||||
;; `headers-buffer'.
|
;; `headers-buffer'.
|
||||||
(linked-buffer (mu4e-get-view-buffers
|
(linked-buffer (mu4e-get-view-buffers
|
||||||
(lambda (buf) (and (buffer-local-boundp 'mu4e-linked-headers-buffer buf)
|
(lambda (buf)
|
||||||
|
(and (mu4e--buffer-local-boundp 'mu4e-linked-headers-buffer buf)
|
||||||
(eq mu4e-linked-headers-buffer headers-buffer))))))
|
(eq mu4e-linked-headers-buffer headers-buffer))))))
|
||||||
;; If such a linked buffer exists and its buffer is live, we use that buffer.
|
;; If such a linked buffer exists and its buffer is live, we use that buffer.
|
||||||
(if (and linked-buffer (buffer-live-p (car linked-buffer)))
|
(if (and linked-buffer (buffer-live-p (car linked-buffer)))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user