Mercurial > hg > xemacs-beta

comparison lisp/x-toolbar.el @ 223:2c611d1463a6 r20-4b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b10
author cvs
date Mon, 13 Aug 2007 10:10:54 +0200
parents 6c0ae1f9357f
children 41f2f0e326e9
comparison
equal deleted inserted replaced
222:aae4c8b01452 223:2c611d1463a6
381 (raise-frame toolbar-news-frame)))) 381 (raise-frame toolbar-news-frame))))
382 382
383 (defun toolbar-news () 383 (defun toolbar-news ()
384 "Run News." 384 "Run News."
385 (interactive) 385 (interactive)
386 (let ((command (assq toolbar-news-reader toolbar-news-commands-alist))) 386 (let ((command (cdr-safe
387 (assq toolbar-news-reader toolbar-news-commands-alist))))
387 (or command 388 (or command
388 (error "Uknown news reader %s" toolbar-news-reader)) 389 (error "Unkown news reader %s" toolbar-news-reader))
389 (if (symbolp command) 390 (if (symbolp command)
390 (call-interactively command) 391 (call-interactively command)
391 (eval command)))) 392 (eval command))))
392 393
393 (defvar toolbar-last-win-icon nil "A `last-win' icon set.") 394 (defvar toolbar-last-win-icon nil "A `last-win' icon set.")