(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."
(let ((command (cdr-safe
(assq toolbar-news-reader toolbar-news-commands-alist))))
(or command
- (error "Unkown news reader %s" toolbar-news-reader))
+ (error "Unknown news reader %s" toolbar-news-reader))
(if (symbolp command)
(call-interactively command)
(eval command))))