From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Sat, 6 Jul 1996 02:05:22 +0000 (+0000)
Subject: * gnus-cus.el (()): Make sure that calling `gnus-visual-p' during
X-Git-Tag: emacs-19.34~255
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=211f2f722b411d53a1ddf9dc78aedfa6137a3ef2;p=emacs.git

* gnus-cus.el (()): Make sure that calling `gnus-visual-p' during
	byte-compilation doesn't bug out.
---

diff --git a/lisp/gnus-cus.el b/lisp/gnus-cus.el
index 12472e28c02..78ef0d71e3b 100644
--- a/lisp/gnus-cus.el
+++ b/lisp/gnus-cus.el
@@ -108,11 +108,13 @@ Face used for group or summary buffer mouse highlighting.
 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.