* gnus-cus.el (()): Make sure that calling `gnus-visual-p' during

byte-compilation doesn't bug out.

* gnus-cus.el (()): Make sure that calling `gnus-visual-p' during
byte-compilation doesn't bug out.
211f2f72 · Lars Magne Ingebrigtsen · 007a03bf · 211f2f72
Commit 211f2f72 authored Jul 06, 1996 by Lars Magne Ingebrigtsen
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 5 deletions

lisp/gnus-cus.el lisp/gnus-cus.el +7 -5

No files found.
--- 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.