From: ueno <ueno>
Date: Wed, 12 Apr 2000 13:39:28 +0000 (+0000)
Subject: * liece-url.el: Don't require browse-url when compiling.
X-Git-Tag: liece-1_4_4-1~69
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b26e1b9f6a37ffff4d48182ac30b3ab5075cf94a;p=elisp%2Fliece.git

* liece-url.el: Don't require browse-url when compiling.
(liece-url-browser-name): Abolish.
(liece-url-prepare-browser-function): Abolish.
(liece-url-mail-regexp): Abolish.
(liece-url-browser-function): Abolish.
(liece-url-link-action): Use browse-url directly.
(liece-command-browse-url): Ditto.
(liece-url-add-buttons): Remove local variable `url-start',
`url-end' and `url'.
Suggested by: Kenichi OKADA <okada@opaopa.org>
---

diff --git a/lisp/liece-url.el b/lisp/liece-url.el
index 11568c6..c02065b 100644
--- a/lisp/liece-url.el
+++ b/lisp/liece-url.el
@@ -32,10 +32,9 @@
 (eval-when-compile
   (require 'liece-inlines)
   (require 'liece-intl)
-  (require 'browse-url)
   (require 'liece-menu))
 
-(defvar-maybe browse-url-browser-function nil)
+(defvar browse-url-browser-function)
 
 (defgroup liece-url nil
   "URL Browsing in IRC buffer."
@@ -46,42 +45,8 @@
   :group 'liece-url
   :type 'regexp)
 
-(defcustom liece-url-mail-regexp "\\bmailto:\\([-a-zA-Z0-9_=?#$@~`%&*+|\\/.,]*[-a-zA-Z0-9_=#$@~`%&*+|\\/]\\)"
-  "Regular expression that matches mailto:."
-  :group 'liece-url
-  :type 'regexp)
-
-(defcustom liece-url-browser-name
-  (let (url-func url-prog len)
-    (if (featurep 'browse-url)
-	(and (setq url-func browse-url-browser-function)
-	     (setq url-prog (symbol-name url-func))
-	     (stringp url-prog)
-	     (setq len (length url-prog))
-	     (setq url-prog (substring url-prog 11 len)))
-      "netscape"))
-  "Default URL Browser Name.
-netscape   Netscape    1.1b1
-mosaic     XMosaic     <= 2.4
-cci        XMosaic     2.5
-w3         w3          0
-iximosaic  IXI Mosaic  ?
-lynx-*     Lynx        0
-grail      Grail       0.3b1"
-  :type 'string
-  :group 'liece-url)
-
-(defvar liece-url-add-hook nil)
-
-(defmacro liece-url-prepare-browser-function ()
-  (if (featurep 'browse-url)
-      '(intern (concat "browse-url-" liece-url-browser-name))
-    '(intern (concat "liece-url-browser-" liece-url-browser-name))))
-
-(defcustom liece-url-browser-function
-  (liece-url-prepare-browser-function)
+(defcustom liece-url-browser-function browse-url-browser-function
   "Default URL Browser."
-  :type 'function
   :group 'liece-url)
 
 (defcustom liece-url-alist nil
@@ -95,24 +60,22 @@ grail      Grail       0.3b1"
   :action 'liece-url-link-action)
 
 (defun liece-url-link-action (widget &optional event)
-  (let ((func (liece-url-prepare-browser-function)))
-    (if (fboundp func)
-        (setq liece-url-browser-function func)
-      (setq func liece-url-browser-function))
-    (funcall func (widget-value widget))))
+  (let ((browse-url-browser-function liece-url-browser-function))
+    (browse-url (widget-value widget))))
+
+(defvar liece-url-add-hook nil)
 
 (defun liece-url-add-buttons (start end)
   (save-excursion
     (goto-char start)
     (while (re-search-forward liece-url-regexp end t)
-      (let* ((url-start (match-beginning 0))
-	     (url-end (match-end 0))
-	     (url (buffer-substring url-start url-end)))
-	(if liece-highlight-mode
-	    (liece-widget-convert-button 'url-link url-start url-end url))
-	(unless (assoc url liece-url-alist)
-	  (push (list url) liece-url-alist)
-	  (run-hook-with-args 'liece-url-add-hook url))))))
+      (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)))))
 
 (defun liece-command-browse-url (&optional url)
   (interactive
@@ -122,11 +85,8 @@ grail      Grail       0.3b1"
        (setq url (liece-minibuffer-completing-default-read
 		  (_ "Open URL:") liece-url-alist)))
      (list url)))
-  (let ((func (liece-url-prepare-browser-function)))
-    (if (fboundp func)
-	(setq liece-url-browser-function func)
-      (setq func liece-url-browser-function))
-    (funcall func url)))
+  (let ((browse-url-browser-function liece-url-browser-function))
+    (browse-url url)))
 
 (defun url-irc-liece (host port channel user password)
   (let ((liece-server