(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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 85e5dfabc0096310f3a30e8b34d632c3256c7226..0450dbdc61d1f99c254c455bf9c22763f5713868 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2005-08-26  David Reitter  <david.reitter@gmail.com>
+
+       * 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  <pk_at_work@yahoo.com>
 
        * progmodes/flymake.el (flymake-highlight-err-lines): Use

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 1de753e75e5c052f635e40bc8e2cf93b2e63cff9..302ede8c8ff9bb3bfb838eb2bea2e64649d84990 100644 (file)
--- 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]
   '("--"))