procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(smiley-regexp-alist): Make regexps match

Browse source 
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.
This commit is contained in:
Gerd Moellmann 2000-12-12 16:54:45 +00:00
parent 06507d30fa
commit d6a1d28906
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/gnus/smiley-ems.el
View file

@ -52,9 +52,9 @@ This is in addition to the normal image search path."
;; The XEmacs version has a baroque, if not rococo, set of these.
(defcustom smiley-regexp-alist
;; Perhaps :-) should be distinct -- it does appear in the Jargon File.
'(("\\([:;]-?)\\)\\W" 1 "smile.pbm")
("\\(:-[/\\]\\)\\W" 1 "wry.pbm")
("\\(:-[({]\\)\\W" 1 "frown.pbm"))
'(("\\([:;]-?)\\)\\(\\W\\|\\'\\)" 1 "smile.pbm")
("\\(:-[/\\]\\)\\(\\W\\|\\'\\)" 1 "wry.pbm")
("\\(:-[({]\\)\\(\\W\\|\\'\\)" 1 "frown.pbm"))
"*A list of regexps to map smilies to images.
The elements are (REGEXP MATCH FILE), where MATCH is the submatch in
rgexp to replace with IMAGE. IMAGE is the name of a PBM file in
@ -123,7 +123,8 @@ which smileys to operate on and which images to use for them."
(overlay-put overlay 'smiley t)
(overlay-put overlay
'help-echo "mouse-2: toggle smilies in buffer")
(overlay-put overlay 'keymap smiley-mouse-map))))))
(overlay-put overlay 'keymap smiley-mouse-map)
(goto-char (match-end group)))))))
(setq smiley-active t)))
(defun smiley-toggle-buffer (&optional arg)