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 | c3c6f86895c4032082335094ec9e2b331ab1f680 (patch) | |
| tree | 8032b1f1ae6520f90db28dbef99ffa730f63696b /lisp/gnus-cus.el | |
| parent | 97668eeea36339c6aca73dff8c8159ba850e7402 (diff) | |
| download | emacs-c3c6f86895c4032082335094ec9e2b331ab1f680.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. |