* lisp/term.el (term--update-term-menu): Simplify.
This commit is contained in:
parent
392d00e0aa
commit
fe0d134f48
2 changed files with 2 additions and 6 deletions
|
@ -1491,6 +1491,7 @@ Used by `project-kill-buffers'."
|
|||
:package-version '(project . "0.8.2"))
|
||||
;;;###autoload(put 'project-kill-buffers-display-buffer-list 'safe-local-variable #'booleanp)
|
||||
|
||||
;; FIXME: Could this be replaced by `buffer-match-p' in Emacs 29+?
|
||||
(defun project--buffer-check (buf conditions)
|
||||
"Check if buffer BUF matches any element of the list CONDITIONS.
|
||||
See `project-kill-buffer-conditions' or
|
||||
|
|
|
@ -972,12 +972,7 @@ underlying shell."
|
|||
(defun term--update-term-menu (&optional force)
|
||||
(when (and (lookup-key term-mode-map [menu-bar terminal])
|
||||
(or force (frame-or-buffer-changed-p)))
|
||||
(let ((buffer-list
|
||||
(seq-filter
|
||||
(lambda (buffer)
|
||||
(provided-mode-derived-p (buffer-local-value 'major-mode buffer)
|
||||
'term-mode))
|
||||
(buffer-list))))
|
||||
(let ((buffer-list (match-buffers '(derived-mode . term-mode))))
|
||||
(easy-menu-change
|
||||
nil
|
||||
"Terminal Buffers"
|
||||
|
|
Loading…
Add table
Reference in a new issue