* lisp/gnus/smiley.el (smiley-style): Make the file loadable in batch mode.

Not likely to be very useful, of course, but helps with automated testing.
This commit is contained in:
Glenn Morris 2013-01-15 21:46:25 -05:00
parent 963ea40fe9
commit 059fc5111d
2 changed files with 8 additions and 1 deletions

View file

@ -1,3 +1,7 @@
2013-01-16 Glenn Morris <rgm@gnu.org>
* smiley.el (smiley-style): Make the file loadable in batch mode.
2013-01-15 Stefan Monnier <monnier@iro.umontreal.ca>
* nnimap.el (nnimap-keepalive): Don't throw an error if there's no more

View file

@ -59,7 +59,10 @@
(defcustom smiley-style
(if (or (and (fboundp 'face-attribute)
(>= (face-attribute 'default :height) 160))
;; In batch mode, attributes can be unspecified.
(condition-case nil
(>= (face-attribute 'default :height) 160)
(error nil)))
(and (fboundp 'face-height)
(>= (face-height 'default) 14)))
'medium