procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove some compat code from smiley.el

Browse source 
* lisp/gnus/smiley.el (smiley-style): face-attribute is always defined.
This commit is contained in:
Lars Ingebrigtsen 2020-08-18 23:15:09 +02:00
parent ace7eeb505
commit 1a31051069
1 changed files with 5 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/gnus/smiley.el
View file

@ -56,14 +56,11 @@
(defvar smiley-data-directory)
(defcustom smiley-style
(if (and (fboundp 'face-attribute)
;; In batch mode, attributes can be unspecified.
(condition-case nil
(>= (face-attribute 'default :height) 160)
(error nil)))
'medium
'low-color)
;; In batch mode, attributes can be unspecified.
(defcustom smiley-style (if (ignore-errors
(>= (face-attribute 'default :height) 160))
'medium
'low-color)
"Smiley style."
:type '(choice (const :tag "small, 3 colors" low-color) ;; 13x14
(const :tag "medium, ~10 colors" medium) ;; 16x16