(toplevel): Require cl at compile time.

Remove conditional definitions of `ignore-errors' and `caddar'
because they occur at run time.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bfec23fb22adb5e8998cd67884185c2f349ff097..c3ab8ad0f4b5a371d62e323931c61c640a4d1e3d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2004-04-29  John Paul Wallington  <jpw@gnu.org>
+
+       * thumbs.el (toplevel): Require cl at compile time.
+       Remove conditional definitions of `ignore-errors' and `caddar'
+       because they occur at run time.
+
 2004-04-28  Nick Roberts  <nickrob@gnu.org>
 
        * progmodes/gdb-ui.el (gdb-frame-breakpoints-buffer)

diff --git a/lisp/thumbs.el b/lisp/thumbs.el
index 9458f0351ab88ad3f6421c1b62da08e6ff08550a..206492dee08bcc72133e2465d11e559bebbbd5bd 100644 (file)
--- a/lisp/thumbs.el
+++ b/lisp/thumbs.el
@@ -56,6 +56,8 @@
 
 ;;; Code:
 
+(eval-when-compile
+  (require 'cl))
 (require 'dired)
 
 ;; Abort if in-line imaging isn't supported (i.e. Emacs-20.7)
@@ -182,18 +184,6 @@ see some of your images."
     (make-directory thumbs-thumbsdir)
     (message "Creating thumbnails directory")))
 
-(when (not (fboundp 'ignore-errors))
-  (defmacro ignore-errors (&rest body)
-    "Execute FORMS; if anz error occurs, return nil.
-Otherwise, return result of last FORM."
-    (let ((err (thumbs-gensym)))
-      (list 'condition-case err (cons 'progn body) '(error nil)))))
-
-(when (not (fboundp 'caddar))
-  (defun caddar (x)
-    "Return the `car' of the `cdr' of the `cdr' of the `car' of X."
-    (car (cdr (cdr (car x))))))
-
 (defvar thumbs-gensym-counter 0)
 
 (defun thumbs-gensym (&optional arg)