(liece-url-add-buttons): Fix local binding.

diff --git a/lisp/liece-url.el b/lisp/liece-url.el
index c02065b..3f478cf 100644 (file)
--- a/lisp/liece-url.el
+++ b/lisp/liece-url.el
@@ -69,13 +69,13 @@
   (save-excursion
     (goto-char start)
     (while (re-search-forward liece-url-regexp end t)
-      (if liece-highlight-mode
-         (liece-widget-convert-button 'url-link
-                                      (match-beginning 0)(match-end 0)
-                                      (match-string 0)))
-      (unless (assoc url liece-url-alist)
-       (push (list url) liece-url-alist)
-       (run-hook-with-args 'liece-url-add-hook url)))))
+      (let ((url (match-string 0)))
+       (if liece-highlight-mode
+           (liece-widget-convert-button
+            'url-link (match-beginning 0)(match-end 0) url))
+       (unless (assoc url liece-url-alist)
+         (push (list url) liece-url-alist)
+         (run-hook-with-args 'liece-url-add-hook url))))))
 
 (defun liece-command-browse-url (&optional url)
   (interactive