(browse-url-galeon): Fix last change.

(top-level): Require cl when compiling.

2 files changed, 8 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2e5f1d5fb58..a77a51a2839 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-09-08  Eli Zaretskii  <eliz@gnu.org>
+
+        * net/browse-url.el (browse-url-galeon): Fix last change.
+        (top-level): Require cl when compiling.
+
 2007-09-08  Carsten Dominik  <dominik@science.uva.nl>
 
         * textmodes/org-export-latex.el: arch-tag restored.
diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index 9c42ab05c43..0263a620f31 100644
--- a/lisp/net/browse-url.el
+++ b/lisp/net/browse-url.el
@@ -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 @@ new tab in an existing window instead.
 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)