(U-00024182): Apply new conventions for glyph granularity.

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

diff --git a/lisp/toolbar-items.el b/lisp/toolbar-items.el
index afe876a..39d1f51 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."
@@ -400,7 +400,7 @@ Newsreaders known by default are gnus, rn, nn, trn, xrn, slrn, pine
   (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))))