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

(top-level): Require cl when compiling.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2e5f1d5fb58fa7c8cc84e0c4fbd3e23fef7a59d5..a77a51a2839ff05100dcffce70ccb033ae135e59 100644 (file)
--- 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 9c42ab05c43115a63757cdfe0aef6c839b9a8280..0263a620f314deb375776c1314c26853ed9a2024 100644 (file)
--- 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)