XEmacs 21.4.6 "Common Lisp".

[chise/xemacs-chise.git.1] / lisp / toolbar-items.el

diff --git a/lisp/toolbar-items.el b/lisp/toolbar-items.el
index afe876a..1c54a91 100644 (file)
--- a/lisp/toolbar-items.el
+++ b/lisp/toolbar-items.el
@@ -78,9 +78,9 @@
                 (function :tag "Other"))
   :group 'toolbar)
 
-(defun toolbar-dired ()
-  (interactive)
-  (call-interactively toolbar-dired-function))
+(defun toolbar-dired (dir)
+  (interactive "DDired directory: ")
+  (funcall toolbar-dired-function dir))
 
 (defcustom toolbar-save-function 'save-buffer
   "*Function to call when the save icon is selected."