Require 'cl when compiling.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e0bd01cf0cb4cf9dec6e912fe5190d3d29e6dc9e..d369eb8cbf4e300238dfbfa7b86d07950ff69143 100644 (file)
--- 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 88e62b4ec85e4b9709f7ca7ab0799795de8829b7..5273c685a17e3c5636d522b4940d226baf4bb7f0 100644 (file)
--- 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)))))