# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 910886080 0
# Node ID e441cd61a9aa5a988b5e24e6c0f0481e86b4800b
# Parent  2069e879bec5214d4e04e50986d6c89fd5900da4
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.

diff -r 2069e879bec5 -r e441cd61a9aa lisp/browse-url.el
--- 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)))