Mercurial > emacs
comparison lisp/gnus/smiley-ems.el @ 32017:6ee543d2c641
(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 |