Changeset 28647

Timestamp:

01/19/09 11:38:33 (4 years ago)

Author:

imakado

Message:

バイトコンパイルするとうまく動かない可能性があったので,cl関数のfirstをcarに置き換えた

Files:

• lang/elisp/init-loader/init-loader.el (modified) (1 diff)

lang/elisp/init-loader/init-loader.el

@@ -120 +120 @@
     (dolist (el (init-loader--re-load-files re dir sort))
       (condition-case e
-          (let ((time (first (benchmark-run (load (file-name-sans-extension el))))))
+          (let ((time (car (benchmark-run (load (file-name-sans-extension el))))))
             (init-loader-log (format "loaded %s. %s" (locate-library el) time)))
         (error