diff options
author | Matt Simmons <simmonmt@acm.org> | 1997-10-26 05:03:49 +0000 |
---|---|---|
committer | Matt Simmons <simmonmt@acm.org> | 1997-10-26 05:03:49 +0000 |
commit | 8b1794b23f8cf366e96d7a0ad6d46e0dfb4efc09 (patch) | |
tree | 896541a8d55debfa5b8e069f2df72f4d49827e3d /lisp/bbdb-w3.el | |
parent | d0106ba0e49dc117adad69f0b8e67815298da58c (diff) |
Use browse-url-browser-function rather than a funcall
Diffstat (limited to 'lisp/bbdb-w3.el')
-rw-r--r-- | lisp/bbdb-w3.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/bbdb-w3.el b/lisp/bbdb-w3.el index 7852859..f9b651d 100644 --- a/lisp/bbdb-w3.el +++ b/lisp/bbdb-w3.el @@ -20,6 +20,9 @@ ;; $Id$ ;; ;; $Log$ +;; Revision 1.4 1997/10/26 05:03:49 simmonmt +;; Use browse-url-browser-function rather than a funcall +;; ;; Revision 1.3 1997/10/12 00:18:50 simmonmt ;; Added bbdb-insinuate-w3 to set keyboard map correctly. Merged ;; bbdb-www-netscape into bbdb-www using browse-url-browser-function to @@ -47,8 +50,9 @@ Non-interactively, do all records if arg is nonnil." (list (bbdb-current-record))))) (got-one nil)) (while urls - (if (car urls) - (funcall browse-url-browser-function (setq got-one (car urls)))) + (cond ((car urls) + (or (fboundp 'browse-url) (autoload 'browse-url "browse-url")) + (browse-url (setq got-one (car urls))))) (setq urls (cdr urls))) (if (not got-one) (error "No WWW field!")))) |