Mercurial > emacs
comparison lisp/gnus/smiley.el @ 108439:c3622fa53abe
Merge from mainline.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Fri, 26 Mar 2010 15:03:20 +0000 |
| parents | 9317d81f8c81 |
| children | 2547676f6961 376148b31b5e |
comparison
equal
deleted
inserted
replaced
| 108438:2485b1fb98d3 | 108439:c3622fa53abe |
|---|---|
| 194 (gnus-put-image image string 'smiley)))) | 194 (gnus-put-image image string 'smiley)))) |
| 195 images)))) | 195 images)))) |
| 196 | 196 |
| 197 ;;;###autoload | 197 ;;;###autoload |
| 198 (defun smiley-buffer (&optional buffer) | 198 (defun smiley-buffer (&optional buffer) |
| 199 "Run `smiley-region' at the buffer, specified in the argument or | 199 "Run `smiley-region' at the BUFFER, specified in the argument or |
| 200 interactively. If there's no argument, do it at the current buffer" | 200 interactively. If there's no argument, do it at the current buffer." |
| 201 (interactive "bBuffer to run smiley-region: ") | 201 (interactive "bBuffer to run smiley-region: ") |
| 202 (save-excursion | 202 (save-excursion |
| 203 (if buffer | 203 (if buffer |
| 204 (set-buffer (get-buffer buffer))) | 204 (set-buffer (get-buffer buffer))) |
| 205 (smiley-region (point-min) (point-max)))) | 205 (smiley-region (point-min) (point-max)))) |