From: ueno <ueno>
Date: Wed, 30 Jan 2002 12:24:07 +0000 (+0000)
Subject: * lisp/liece-url.el (liece-url-browser-function): Use delegate.el.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a904ddf49286a54357fa249a77934b67a822e9e3;p=elisp%2Fliece.git

* lisp/liece-url.el (liece-url-browser-function): Use delegate.el.
---

diff --git a/lisp/liece-url.el b/lisp/liece-url.el
index 664614e..bac5ce7 100644
--- a/lisp/liece-url.el
+++ b/lisp/liece-url.el
@@ -34,7 +34,7 @@
   (require 'liece-intl)
   (require 'liece-menu))
 
-(defvar browse-url-browser-function)
+(require 'delegate)
 
 (defgroup liece-url nil
   "URL Browsing in IRC buffer."
@@ -45,7 +45,11 @@
   :group 'liece-url
   :type 'regexp)
 
-(defcustom liece-url-browser-function browse-url-browser-function
+(define-delegated-variable-alias 'browse-url-browser-function
+    'liece-url-browser-function
+  "browse-url")
+(defcustom liece-url-browser-function
+  (delegated-variable-get-safe 'liece-url-browser-function)
   "Default URL Browser."
   :group 'liece-url)