Mercurial > hg > xemacs-beta

diff lisp/toolbar-items.el @ 673:685b588e92d8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-10-30 05:13:26 by andyp] merge of windows 21.4.5 codeline
author andyp
date Tue, 30 Oct 2001 05:13:31 +0000
parents 7039e6323819
children 79940b592197
line wrap: on
line diff
--- a/lisp/toolbar-items.el	Fri Oct 26 02:42:53 2001 +0000
+++ b/lisp/toolbar-items.el	Tue Oct 30 05:13:31 2001 +0000
@@ -71,9 +71,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."