aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorRichard M. Stallman1996-12-07 20:30:18 +0000
committerRichard M. Stallman1996-12-07 20:30:18 +0000
commita6f8cbf15c15a4889e02eac81f44272832154ca4 (patch)
treee37365d1653027f342e9fed7b570275cc7c0d929 /lisp
parent0f6db76a85f1a118bb3f3b5773a5aa8628414c18 (diff)
downloademacs-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.el12
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