Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/x-toolbar.el	Mon Aug 13 10:10:03 2007 +0200
+++ b/lisp/x-toolbar.el	Mon Aug 13 10:10:54 2007 +0200
@@ -383,9 +383,10 @@
 (defun toolbar-news ()
   "Run News."
   (interactive)
-  (let ((command (assq toolbar-news-reader toolbar-news-commands-alist)))
+  (let ((command (cdr-safe
+		  (assq toolbar-news-reader toolbar-news-commands-alist))))
     (or command
-	(error "Uknown news reader %s" toolbar-news-reader))
+	(error "Unkown news reader %s" toolbar-news-reader))
     (if (symbolp command)
 	(call-interactively command)
       (eval command))))