From 211f2f722b411d53a1ddf9dc78aedfa6137a3ef2 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sat, 6 Jul 1996 02:05:22 +0000 Subject: [PATCH] * gnus-cus.el (()): Make sure that calling `gnus-visual-p' during byte-compilation doesn't bug out. --- lisp/gnus-cus.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) 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. -- 2.39.2