# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 969049626 0
# Node ID 0d9e6ed2718b4b6db0f9d8a3ea7abebe93fd5578
# Parent  0113112028c5140588b341f3d4312d528f85f121
(menu-bar-files-menu): Disable ``Save'' if
current buffer has no file name.

diff -r 0113112028c5 -r 0d9e6ed2718b lisp/menu-bar.el
--- a/lisp/menu-bar.el	Fri Sep 15 18:00:07 2000 +0000
+++ b/lisp/menu-bar.el	Fri Sep 15 20:27:06 2000 +0000
@@ -152,6 +152,7 @@
 (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"))