From 8248b7cace199410e36858d26436266b2bbd59a5 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 26 Aug 2005 14:11:29 +0000 Subject: [PATCH] (truncate-lines, write-file, print-buffer) (ps-print-buffer-faces, ps-print-buffer, split-window): Disable menu items when the frame they refer to is invisible, or when they refer to a buffer and the minibuffer is selected. --- lisp/ChangeLog | 7 +++++++ lisp/menu-bar.el | 20 +++++++++++++++++--- 2 files changed, 24 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 85e5dfabc00..0450dbdc61d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2005-08-26 David Reitter + + * menu-bar.el (truncate-lines, write-file, print-buffer) + (ps-print-buffer-faces, ps-print-buffer, split-window): Disable + menu items when the frame they refer to is invisible, or when they + refer to a buffer and the minibuffer is selected. + 2005-08-26 Pavel Kobiakov * progmodes/flymake.el (flymake-highlight-err-lines): Use diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 1de753e75e5..302ede8c8ff 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -105,6 +105,10 @@ A large number or nil slows down menu responsiveness." (define-key menu-bar-file-menu [split-window] '(menu-item "Split Window" split-window-vertically + :enable (and (frame-live-p menu-updating-frame) + (frame-visible-p menu-updating-frame ) + (not (window-minibuffer-p + (frame-selected-window menu-updating-frame)))) :help "Split selected window in two windows")) (define-key menu-bar-file-menu [separator-window] @@ -116,6 +120,8 @@ A large number or nil slows down menu responsiveness." :help "Pretty-print marked region in black and white to PostScript printer")) (define-key menu-bar-file-menu [ps-print-buffer] '(menu-item "Postscript Print Buffer (B+W)" ps-print-buffer + :enable (and (frame-live-p menu-updating-frame) + (frame-visible-p menu-updating-frame )) :help "Pretty-print current buffer in black and white to PostScript printer")) (define-key menu-bar-file-menu [ps-print-region-faces] '(menu-item "Postscript Print Region" ps-print-region-with-faces @@ -123,6 +129,8 @@ A large number or nil slows down menu responsiveness." :help "Pretty-print marked region to PostScript printer")) (define-key menu-bar-file-menu [ps-print-buffer-faces] '(menu-item "Postscript Print Buffer" ps-print-buffer-with-faces + :enable (and (frame-live-p menu-updating-frame) + (frame-visible-p menu-updating-frame )) :help "Pretty-print current buffer to PostScript printer")) (define-key menu-bar-file-menu [print-region] '(menu-item "Print Region" print-region @@ -130,6 +138,8 @@ A large number or nil slows down menu responsiveness." :help "Print region between mark and current position")) (define-key menu-bar-file-menu [print-buffer] '(menu-item "Print Buffer" print-buffer + :enable (and (frame-live-p menu-updating-frame) + (frame-visible-p menu-updating-frame )) :help "Print current buffer with page headings")) (define-key menu-bar-file-menu [separator-print] @@ -160,8 +170,10 @@ A large number or nil slows down menu responsiveness." :help "Re-read current buffer from its file")) (define-key menu-bar-file-menu [write-file] '(menu-item "Save As..." write-file - :enable (not (window-minibuffer-p - (frame-selected-window menu-updating-frame))) + :enable (and (frame-live-p menu-updating-frame) + (frame-visible-p menu-updating-frame ) + (not (window-minibuffer-p + (frame-selected-window menu-updating-frame)))) :help "Write current buffer to another file")) (define-key menu-bar-file-menu [save-buffer] '(menu-item "Save" save-buffer @@ -1030,7 +1042,9 @@ mail status in mode line")) '(menu-item "Truncate Long Lines in this Buffer" toggle-truncate-lines :help "Truncate long lines on the screen" - :button (:toggle . truncate-lines))) + :button (:toggle . truncate-lines) + :enable (and (frame-live-p menu-updating-frame) + (frame-visible-p menu-updating-frame)))) (define-key menu-bar-options-menu [highlight-separator] '("--")) -- 2.39.2