Mercurial > emacs

changeset 23705:e441cd61a9aa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
1998-11-09 Sam Steingold <sds@goems.com> * browse-url.el (browse-url): handle the case when `browse-url-browser-function' is a lambda list.
author Dave Love <fx@gnu.org>
date Thu, 12 Nov 1998 15:54:40 +0000
parents 2069e879bec5
children cc0d47241404
files lisp/browse-url.el
diffstat 1 files changed, 6 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/browse-url.el	Thu Nov 12 11:44:53 1998 +0000
+++ b/lisp/browse-url.el	Thu Nov 12 15:54:40 1998 +0000
@@ -617,11 +617,12 @@
 `browse-url-browser-function' says which browser to use."
   (interactive (browse-url-interactive-arg "URL: "))
   (let ((bf browse-url-browser-function) re)
-    (while (consp bf)
-      (setq re (car (car bf))
-	    bf (if (string-match re url)
-		   (cdr (car bf))	; The function
-		 (cdr bf))))		; More pairs
+    (unless (functionp bf)
+      (while (consp bf)
+	(setq re (car (car bf))
+	      bf (if (string-match re url)
+		     (cdr (car bf))	; The function
+		   (cdr bf)))))		; More pairs
     (or bf (error "No browser in browse-url-browser-function matching URL %s"
                   url))
     (apply bf url args)))