Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
672:42a8626b741e 673:685b588e92d8
69 "*Function to call when the dired icon is selected." 69 "*Function to call when the dired icon is selected."
70 :type '(radio (function-item dired) 70 :type '(radio (function-item dired)
71 (function :tag "Other")) 71 (function :tag "Other"))
72 :group 'toolbar) 72 :group 'toolbar)
73 73
74 (defun toolbar-dired () 74 (defun toolbar-dired (dir)
75 (interactive) 75 (interactive "DDired directory: ")
76 (call-interactively toolbar-dired-function)) 76 (funcall toolbar-dired-function dir))
77 77
78 (defcustom toolbar-save-function 'save-buffer 78 (defcustom toolbar-save-function 'save-buffer
79 "*Function to call when the save icon is selected." 79 "*Function to call when the save icon is selected."
80 :type '(radio (function-item save-buffer) 80 :type '(radio (function-item save-buffer)
81 (function :tag "Other")) 81 (function :tag "Other"))