(tool-bar-setup): Don't suppress write-file

and save-buffer if buffer-file-name non-nil.  From rms.

2 files changed, 13 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3e7c4bc1974..5c40581229e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-03-10  Dave Love  <fx@gnu.org>
+
+        * toolbar/tool-bar.el (tool-bar-setup): Don't suppress write-file
+        and save-buffer if buffer-file-name non-nil.  From rms.
+
 2001-03-10  Andre Spiegel  <spiegel@gnu.org>
 
         * vc.el (vc-do-command): If the destination buffer is already
diff --git a/lisp/toolbar/tool-bar.el b/lisp/toolbar/tool-bar.el
index 64fcf09e644..e7534c9e4a6 100644
--- a/lisp/toolbar/tool-bar.el
+++ b/lisp/toolbar/tool-bar.el
@@ -175,11 +175,15 @@ function."
   (tool-bar-add-item-from-menu 'dired "open")
   (tool-bar-add-item-from-menu 'kill-this-buffer "close")
   (tool-bar-add-item-from-menu 'save-buffer "save" nil
-                               :visible '(not (eq 'special (get major-mode
-                                                                'mode-class))))
+                               :visible '(or buffer-file-name
+                                             (not (eq 'special
+                                                      (get major-mode
+                                                           'mode-class)))))
   (tool-bar-add-item-from-menu 'write-file "saveas" nil
-                               :visible '(not (eq 'special (get major-mode
-                                                                'mode-class))))
+                               :visible '(or buffer-file-name
+                                             (not (eq 'special
+                                                      (get major-mode
+                                                           'mode-class)))))
   (tool-bar-add-item-from-menu 'undo "undo" nil
                                :visible '(not (eq 'special (get major-mode
                                                                 'mode-class))))