projects
/
riece
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fixed.
[riece]
/
lisp
/
riece-url.el
diff --git
a/lisp/riece-url.el
b/lisp/riece-url.el
index
73c7e02
..
c502328
100644
(file)
--- a/
lisp/riece-url.el
+++ b/
lisp/riece-url.el
@@
-51,7
+51,7
@@
For example:
'((\"\\\\bBug#\\\\([0-9]+\\\\)\\\\b\" .
\"http://bugs.debian.org/\\\\1\")))
'((\"\\\\bBug#\\\\([0-9]+\\\\)\\\\b\" .
\"http://bugs.debian.org/\\\\1\")))
-This
will map
a string \"Bug#12345\" to a URL
+This
maps
a string \"Bug#12345\" to a URL
\"http://bugs.debian.org/12345\"."
:type 'alist
:group 'riece-url)
\"http://bugs.debian.org/12345\"."
:type 'alist
:group 'riece-url)
@@
-95,7
+95,8
@@
This will map a string \"Bug#12345\" to a URL
(save-excursion
(goto-char start)
(while (re-search-forward (car (car alist)) end t)
(save-excursion
(goto-char start)
(while (re-search-forward (car (car alist)) end t)
- (let ((url (riece-url-replace-match (cdr (car alist)))))
+ (let ((url (save-match-data
+ (riece-url-replace-match (cdr (car alist))))))
(if (memq 'riece-highlight riece-addons)
(widget-convert-button
'url-link (match-beginning 0) (match-end 0) url))
(if (memq 'riece-highlight riece-addons)
(widget-convert-button
'url-link (match-beginning 0) (match-end 0) url))