Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 10:27:41 +00:00
Code Issues Projects Releases Packages Wiki Activity

Remove compat code from smiley

Browse source 
* lisp/gnus/smiley.el (smiley-style): Remove compat code.
This commit is contained in:
Lars Ingebrigtsen 2016-02-14 14:56:21 +11:00
parent c311723eee
commit f322abc945
1 changed files with 8 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
lisp/gnus/smiley.el
View file

@ -58,19 +58,17 @@
(defvar smiley-data-directory)
(defcustom smiley-style
(if (or (and (fboundp 'face-attribute)
;; 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)))
(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)
"Smiley style."
:type '(choice (const :tag "small, 3 colors" low-color) ;; 13x14
(const :tag "medium, ~10 colors" medium) ;; 16x16
(const :tag "dull, grayscale" grayscale));; 14x14
:type '(choice (const :tag "small, 3 colors" low-color) ;; 13x14
(const :tag "medium, ~10 colors" medium) ;; 16x16
(const :tag "dull, grayscale" grayscale)) ;; 14x14
:set (lambda (symbol value)
(set-default symbol value)
(setq smiley-data-directory (smiley-directory))