Function: term--update-term-menu

term--update-term-menu is a byte-compiled function defined in term.el.gz.

Signature

(term--update-term-menu &optional FORCE)

Source Code

;; Defined in /usr/src/emacs/lisp/term.el.gz
(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))))
      (easy-menu-change
       nil
       "Terminal Buffers"
       (mapcar
        (lambda (buffer)
          (vector (format "%s (%s)" (buffer-name buffer)
                          (abbreviate-file-name
                           (buffer-local-value 'default-directory buffer)))
                  (lambda ()
                    (interactive)
                    (switch-to-buffer buffer))))
        buffer-list)
       nil
       term-terminal-menu))))