Mercurial > emacs
comparison lisp/gnus/smiley-ems.el @ 34474:ce1470fa2100
(smiley-region): Doc fix.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Tue, 12 Dec 2000 10:37:48 +0000 |
| parents | 7263c1ed74a2 |
| children | 3e2309d79ff3 |
comparison
equal
deleted
inserted
replaced
| 34473:e859388caea4 | 34474:ce1470fa2100 |
|---|---|
| 91 'smiley-mouse-toggle-buffer) | 91 'smiley-mouse-toggle-buffer) |
| 92 map)) | 92 map)) |
| 93 | 93 |
| 94 ;;;###autoload | 94 ;;;###autoload |
| 95 (defun smiley-region (start end) | 95 (defun smiley-region (start end) |
| 96 "Replace in the region `smiley-regexp-alist' matches with corresponding images." | 96 "Display textual smileys as images. |
| 97 START and END specify the region; interactively, use the values | |
| 98 of point and mark. The value of `smiley-regexp-alist' determines | |
| 99 which smileys to operate on and which images to use for them." | |
| 97 (interactive "r") | 100 (interactive "r") |
| 98 (when (and (fboundp 'display-graphic-p) | 101 (when (and (fboundp 'display-graphic-p) |
| 99 (display-graphic-p)) | 102 (display-graphic-p)) |
| 100 (mapc (lambda (o) | 103 (mapc (lambda (o) |
| 101 (if (eq 'smiley (overlay-get o 'smiley)) | 104 (if (eq 'smiley (overlay-get o 'smiley)) |