# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1189245190 0
# Node ID f12fc8e7482c51f679a768c06a86a308d8a1d5fa
# Parent  08ae730da9c4fee6391c7eae2d74f61aca22af24
(browse-url-galeon): Fix last change.
(top-level): Require cl when compiling.

diff -r 08ae730da9c4 -r f12fc8e7482c lisp/net/browse-url.el
--- a/lisp/net/browse-url.el	Sat Sep 08 09:12:05 2007 +0000
+++ b/lisp/net/browse-url.el	Sat Sep 08 09:53:10 2007 +0000
@@ -217,7 +217,8 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Variables
 
-(eval-when-compile (require 'thingatpt)
+(eval-when-compile (require 'cl)
+		   (require 'thingatpt)
                    (require 'term)
 		   (require 'dired)
                    (require 'executable)
@@ -1088,7 +1089,7 @@
 When called non-interactively, optional second argument NEW-WINDOW is
 used instead of `browse-url-new-window-flag'."
   (interactive (browse-url-interactive-arg "URL: "))
-  (setq url (browse-url-encode-url))
+  (setq url (browse-url-encode-url url))
   (let* ((process-environment (browse-url-process-environment))
          (process (apply 'start-process
 			 (concat "galeon " url)