diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 1996-07-06 02:05:22 +0000 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen <larsi@gnus.org> | 1996-07-06 02:05:22 +0000 |
| commit | 211f2f722b411d53a1ddf9dc78aedfa6137a3ef2 (patch) | |
| tree | 1f196974c568f4706c054b98256bbb1ea49a0a46 /lisp/gnus-cus.el | |
| parent | 007a03bfc862495ec73d3a31634f4a0702acce3a (diff) | |
| download | emacs-211f2f722b411d53a1ddf9dc78aedfa6137a3ef2.tar.gz | |
* gnus-cus.el (()): Make sure that calling `gnus-visual-p' during
byte-compilation doesn't bug out.
Diffstat (limited to 'lisp/gnus-cus.el')
| -rw-r--r-- | lisp/gnus-cus.el | 12 |
1 files 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. |