(menu-bar-files-menu): Disable ``Save'' if

current buffer has no file name.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 330d405369fe24e28c0935628e511a41a1b54428..d0299991a99fae7116bd4732c57041b03e81e604 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-09-15  Gerd Moellmann  <gerd@gnu.org>
+
+       * menu-bar.el (menu-bar-files-menu): Disable ``Save'' if
+       current buffer has no file name.
+
 2000-09-15  Dave Love  <fx@gnu.org>
 
        * strokes.el: Sync with maintainer's current version with changes

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 744ff2a551379fa7390db5614a9d740bbfd82919..4cbfda6b978a3caf8740a4683d243ef9678e1021 100644 (file)
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -152,6 +152,7 @@ A large number or nil slows down menu responsiveness."
 (define-key menu-bar-files-menu [save-buffer]
   '(menu-item "Save (current buffer)" save-buffer
              :enable (and (buffer-modified-p)
+                          (buffer-file-name)
                           (not (window-minibuffer-p
                                 (frame-selected-window menu-updating-frame))))
              :help "Save current buffer to its file"))