Mercurial > emacs

changeset 15607:b59b140655ee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* gnus-cus.el (()): Make sure that calling `gnus-visual-p' during byte-compilation doesn't bug out.
author Lars Magne Ingebrigtsen <larsi@gnus.org>
date Sat, 06 Jul 1996 02:05:22 +0000
parents 1891a5cddce6
children ab9554d34cb3
files lisp/gnus-cus.el
diffstat 1 files changed, 7 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus-cus.el	Fri Jul 05 13:35:41 1996 +0000
+++ b/lisp/gnus-cus.el	Sat Jul 06 02:05:22 1996 +0000
@@ -108,11 +108,13 @@
 The line beneath the mouse pointer will be highlighted with this
 face.")
 	(name . gnus-mouse-face)
-	(calculate . (if (gnus-visual-p 'mouse-face 'highlight)
-			 (if (boundp 'gnus-mouse-face)
-			     gnus-mouse-face
-			   'highlight)
-		       'default))
+	(calculate . (condition-case ()
+			 (if (gnus-visual-p 'mouse-face 'highlight)
+			     (if (boundp 'gnus-mouse-face)
+				 gnus-mouse-face
+			       'highlight)
+			   'default))
+		   (error 'default))
 	(type . face))
        ((tag . "Article Display")
 	(doc . "Controls how the article buffer will look.