From: ueno <ueno>
Date: Wed, 12 Apr 2000 13:52:05 +0000 (+0000)
Subject: (liece-url-add-buttons): Fix local binding.
X-Git-Tag: liece-1_4_4-1~66
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9e0f68e32f8ce8f5b2eae0b8f6b5a6aa0c783216;p=elisp%2Fliece.git

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

diff --git a/lisp/liece-url.el b/lisp/liece-url.el
index c02065b..3f478cf 100644
--- 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