Mercurial > hg > xemacs-beta

comparison lisp/x-toolbar.el @ 215:1f0dabaa0855 r20-4b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b6
author cvs
date Mon, 13 Aug 2007 10:07:35 +0200
parents 41ff10fd062f
children d44af0c54775
comparison
equal deleted inserted replaced
214:c5d88c05e1e9 215:1f0dabaa0855
215 215
216 216
217 (defun toolbar-mail () 217 (defun toolbar-mail ()
218 "Run mail in a separate frame." 218 "Run mail in a separate frame."
219 (interactive) 219 (interactive)
220 (let ((command (assq toolbar-mail-reader toolbar-mail-commands-alist))) 220 (let ((command (cdr (assq toolbar-mail-reader toolbar-mail-commands-alist))))
221 (if (not command) 221 (if (not command)
222 (error "Uknown mail reader %s" toolbar-mail-reader)) 222 (error "Uknown mail reader %s" toolbar-mail-reader))
223 (funcall (cdr command)))) 223 (if (symbolp command)
224 (call-interactively command)
225 (eval command))))
224 226
225 ;; 227 ;;
226 ;; toolbar info variables and defuns 228 ;; toolbar info variables and defuns
227 ;; 229 ;;
228 230
471 (x-init-specifier-from-resources 473 (x-init-specifier-from-resources
472 left-toolbar-width 'natnum locale 474 left-toolbar-width 'natnum locale
473 '("leftToolBarWidth" . "LeftToolBarWidth")) 475 '("leftToolBarWidth" . "LeftToolBarWidth"))
474 (x-init-specifier-from-resources 476 (x-init-specifier-from-resources
475 right-toolbar-width 'natnum locale 477 right-toolbar-width 'natnum locale
476 '("rightToolBarWidth" . "RightToolBarWidth"))) 478 '("rightToolBarWidth" . "RightToolBarWidth"))
479 (x-init-specifier-from-resources
480 top-toolbar-border-width 'natnum locale
481 '("topToolBarBorderWidth" . "TopToolBarBorderWidth"))
482 (x-init-specifier-from-resources
483 bottom-toolbar-border-width 'natnum locale
484 '("bottomToolBarBorderWidth" . "BottomToolBarBorderWidth"))
485 (x-init-specifier-from-resources
486 left-toolbar-border-width 'natnum locale
487 '("leftToolBarBorderWidth" . "LeftToolBarBorderWidth"))
488 (x-init-specifier-from-resources
489 right-toolbar-border-width 'natnum locale
490 '("rightToolBarBorderWidth" . "RightToolBarBorderWidth")))
477 491
478 ;;; x-toolbar.el ends here 492 ;;; x-toolbar.el ends here