Commit 211f2f72 authored by Lars Magne Ingebrigtsen's avatar Lars Magne Ingebrigtsen
Browse files

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

	byte-compilation doesn't bug out.
parent 007a03bf
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment