diff options
| author | Richard M. Stallman | 1996-12-07 20:30:18 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-12-07 20:30:18 +0000 |
| commit | a6f8cbf15c15a4889e02eac81f44272832154ca4 (patch) | |
| tree | e37365d1653027f342e9fed7b570275cc7c0d929 /lisp | |
| parent | 0f6db76a85f1a118bb3f3b5773a5aa8628414c18 (diff) | |
| download | emacs-a6f8cbf15c15a4889e02eac81f44272832154ca4.tar.gz emacs-a6f8cbf15c15a4889e02eac81f44272832154ca4.zip | |
In enable predicates in Files menu, use menu-updating-frame.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/menu-bar.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 60ef3a8ea59..6132e23526f 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el | |||
| @@ -346,26 +346,26 @@ Do the same for the keys of the same name." | |||
| 346 | (or (string-match "^ " (buffer-name (car buffers))) | 346 | (or (string-match "^ " (buffer-name (car buffers))) |
| 347 | (setq count (1+ count))) | 347 | (setq count (1+ count))) |
| 348 | (setq buffers (cdr buffers))) | 348 | (setq buffers (cdr buffers))) |
| 349 | (and (not (window-minibuffer-p (selected-window))) | 349 | (and (not (window-minibuffer-p (frame-selected-window menu-updating-frame))) |
| 350 | (> count 1)))) | 350 | (> count 1)))) |
| 351 | 351 | ||
| 352 | (put 'kill-this-buffer 'menu-enable '(kill-this-buffer-enabled-p)) | 352 | (put 'kill-this-buffer 'menu-enable '(kill-this-buffer-enabled-p)) |
| 353 | 353 | ||
| 354 | (put 'save-buffer 'menu-enable | 354 | (put 'save-buffer 'menu-enable |
| 355 | '(and (buffer-modified-p) | 355 | '(and (buffer-modified-p) |
| 356 | (not (window-minibuffer-p (selected-window))))) | 356 | (not (window-minibuffer-p (frame-selected-window menu-updating-frame))))) |
| 357 | 357 | ||
| 358 | (put 'write-file 'menu-enable | 358 | (put 'write-file 'menu-enable |
| 359 | '(not (window-minibuffer-p (selected-window)))) | 359 | '(not (window-minibuffer-p (frame-selected-window menu-updating-frame)))) |
| 360 | 360 | ||
| 361 | (put 'find-file 'menu-enable | 361 | (put 'find-file 'menu-enable |
| 362 | '(not (window-minibuffer-p (selected-window)))) | 362 | '(not (window-minibuffer-p (frame-selected-window menu-updating-frame)))) |
| 363 | 363 | ||
| 364 | (put 'dired 'menu-enable | 364 | (put 'dired 'menu-enable |
| 365 | '(not (window-minibuffer-p (selected-window)))) | 365 | '(not (window-minibuffer-p (frame-selected-window menu-updating-frame)))) |
| 366 | 366 | ||
| 367 | (put 'insert-file 'menu-enable | 367 | (put 'insert-file 'menu-enable |
| 368 | '(not (window-minibuffer-p (selected-window)))) | 368 | '(not (window-minibuffer-p (frame-selected-window menu-updating-frame)))) |
| 369 | 369 | ||
| 370 | (put 'revert-buffer 'menu-enable | 370 | (put 'revert-buffer 'menu-enable |
| 371 | '(or revert-buffer-function revert-buffer-insert-file-contents-function | 371 | '(or revert-buffer-function revert-buffer-insert-file-contents-function |