diff options
| -rw-r--r-- | lisp/term.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/term.el b/lisp/term.el index 34b3450624c..9ac77730350 100644 --- a/lisp/term.el +++ b/lisp/term.el | |||
| @@ -1009,9 +1009,11 @@ For custom keybindings purposes please note there is also | |||
| 1009 | ["Paging" term-pager-toggle :style toggle :selected term-pager-count | 1009 | ["Paging" term-pager-toggle :style toggle :selected term-pager-count |
| 1010 | :help "Toggle paging feature"])) | 1010 | :help "Toggle paging feature"])) |
| 1011 | 1011 | ||
| 1012 | (defvar term--buffers-changed nil) | ||
| 1013 | |||
| 1012 | (defun term--update-term-menu (&optional force) | 1014 | (defun term--update-term-menu (&optional force) |
| 1013 | (when (and (lookup-key term-mode-map [menu-bar terminal]) | 1015 | (when (and (lookup-key term-mode-map [menu-bar terminal]) |
| 1014 | (or force (frame-or-buffer-changed-p))) | 1016 | (or force (frame-or-buffer-changed-p 'term--buffers-changed))) |
| 1015 | (let ((buffer-list (match-buffers '(derived-mode . term-mode)))) | 1017 | (let ((buffer-list (match-buffers '(derived-mode . term-mode)))) |
| 1016 | (easy-menu-change | 1018 | (easy-menu-change |
| 1017 | nil | 1019 | nil |