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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3e7c4bc197458d5be7fc8816dc8c13e8f71c2ded..5c40581229ee1eb3acd16f43bd314cc8ce6d0a12 100644 (file)
--- 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 64fcf09e64437e2e29645ac6ad6d9dba2a6719e2..e7534c9e4a6658615371c9f842b5d0937df8a98d 100644 (file)
--- 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))))