Mercurial > emacs

comparison lisp/gnus/smiley-ems.el @ 32017:6ee543d2c641

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(smiley-update-cache): Use `:ascent center'.
author Gerd Moellmann <gerd@gnu.org>
date Fri, 29 Sep 2000 19:21:08 +0000
parents 1e15c63f0711
children 210c188cba41
comparison
equal deleted inserted replaced
32016:0eb019ede5ca 32017:6ee543d2c641
70 (defun smiley-update-cache () 70 (defun smiley-update-cache ()
71 (dolist (elt smiley-regexp-alist) 71 (dolist (elt smiley-regexp-alist)
72 (let* ((data-directory smiley-data-directory) 72 (let* ((data-directory smiley-data-directory)
73 (image (find-image (list (list :type 'xbm 73 (image (find-image (list (list :type 'xbm
74 :file (nth 2 elt) 74 :file (nth 2 elt)
75 :ascent 100))))) 75 :ascent 'center)))))
76 (if image 76 (if image
77 (push (list (car elt) (cadr elt) image) 77 (push (list (car elt) (cadr elt) image)
78 smiley-cached-regexp-alist))))) 78 smiley-cached-regexp-alist)))))
79 79
80 (defvar smiley-active nil 80 (defvar smiley-active nil