Mercurial > emacs
comparison lisp/gnus/smiley-ems.el @ 34493:3e2309d79ff3
(smiley-regexp-alist): Make regexps match
at the end of the buffer.
(smiley-region): In the loop, move to the end of the submatch
matching the smiley instead of using the end of the match
of the whole regexp.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Tue, 12 Dec 2000 16:54:45 +0000 |
| parents | ce1470fa2100 |
| children | e223a51dca47 |
comparison
equal
deleted
inserted
replaced
| 34492:c0363a97e5cb | 34493:3e2309d79ff3 |
|---|---|
| 50 :group 'smiley) | 50 :group 'smiley) |
| 51 | 51 |
| 52 ;; The XEmacs version has a baroque, if not rococo, set of these. | 52 ;; The XEmacs version has a baroque, if not rococo, set of these. |
| 53 (defcustom smiley-regexp-alist | 53 (defcustom smiley-regexp-alist |
| 54 ;; Perhaps :-) should be distinct -- it does appear in the Jargon File. | 54 ;; Perhaps :-) should be distinct -- it does appear in the Jargon File. |
| 55 '(("\\([:;]-?)\\)\\W" 1 "smile.pbm") | 55 '(("\\([:;]-?)\\)\\(\\W\\|\\'\\)" 1 "smile.pbm") |
| 56 ("\\(:-[/\\]\\)\\W" 1 "wry.pbm") | 56 ("\\(:-[/\\]\\)\\(\\W\\|\\'\\)" 1 "wry.pbm") |
| 57 ("\\(:-[({]\\)\\W" 1 "frown.pbm")) | 57 ("\\(:-[({]\\)\\(\\W\\|\\'\\)" 1 "frown.pbm")) |
| 58 "*A list of regexps to map smilies to images. | 58 "*A list of regexps to map smilies to images. |
| 59 The elements are (REGEXP MATCH FILE), where MATCH is the submatch in | 59 The elements are (REGEXP MATCH FILE), where MATCH is the submatch in |
| 60 rgexp to replace with IMAGE. IMAGE is the name of a PBM file in | 60 rgexp to replace with IMAGE. IMAGE is the name of a PBM file in |
| 61 `smiley-data-directory' or the normal image search path." | 61 `smiley-data-directory' or the normal image search path." |
| 62 :type '(repeat (list regexp | 62 :type '(repeat (list regexp |
| 121 'display `(when smiley-active ,@image)) | 121 'display `(when smiley-active ,@image)) |
| 122 (overlay-put overlay 'mouse-face 'highlight) | 122 (overlay-put overlay 'mouse-face 'highlight) |
| 123 (overlay-put overlay 'smiley t) | 123 (overlay-put overlay 'smiley t) |
| 124 (overlay-put overlay | 124 (overlay-put overlay |
| 125 'help-echo "mouse-2: toggle smilies in buffer") | 125 'help-echo "mouse-2: toggle smilies in buffer") |
| 126 (overlay-put overlay 'keymap smiley-mouse-map)))))) | 126 (overlay-put overlay 'keymap smiley-mouse-map) |
| 127 (goto-char (match-end group))))))) | |
| 127 (setq smiley-active t))) | 128 (setq smiley-active t))) |
| 128 | 129 |
| 129 (defun smiley-toggle-buffer (&optional arg) | 130 (defun smiley-toggle-buffer (&optional arg) |
| 130 "Toggle displaying smiley faces. | 131 "Toggle displaying smiley faces. |
| 131 With arg, turn displaying on if and only if arg is positive." | 132 With arg, turn displaying on if and only if arg is positive." |