* lisp/term.el (term--update-term-menu): Simplify.

This commit is contained in:
Stefan Kangas 2023-08-19 13:23:24 +02:00
parent 392d00e0aa
commit fe0d134f48
2 changed files with 2 additions and 6 deletions

View file

@ -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

View file

@ -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"