Require 'cl when compiling.

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e0bd01cf0cb..d369eb8cbf4 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-04-13  Andreas Schwab  <schwab@suse.de>
+
+        * progmodes/etags.el: Require 'cl when compiling.
+
 2008-04-12  Nick Roberts  <nickrob@snap.net.nz>
 
         * progmodes/gud.el (gud-menu-map): Expand tooltip.
diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 88e62b4ec85..5273c685a17 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -29,6 +29,8 @@
 
 ;;; Code:
 
+(eval-when-compile
+  (require 'cl))
 (require 'ring)
 (require 'button)
 
@@ -775,7 +777,7 @@ tags table and its (recursively) included tags tables."
                   (setq combined-table current-table))))
             (message "Making tags completion table for %s...done"
                      buffer-file-name)
-            ;; Cache the result a buffer-local variable.
+            ;; Cache the result in a buffer-local variable.
             (setq tags-completion-table combined-table))
         (quit (message "Tags completion table construction aborted.")
               (setq tags-completion-table nil)))))