registry.el (cl-remf, cl-loop, cl-subseq): Alias to remf, loop, and subseq respective...
authorKatsumi Yamaoka <yamaoka@jpl.org>
Sat, 20 Dec 2014 11:19:30 +0000 (11:19 +0000)
committerKatsumi Yamaoka <yamaoka@jpl.org>
Sat, 20 Dec 2014 11:19:30 +0000 (11:19 +0000)
lisp/ChangeLog
lisp/registry.el

index 5f25801..786ee1b 100644 (file)
@@ -1,3 +1,8 @@
+2014-12-20  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * registry.el (cl-remf, cl-loop, cl-subseq):
+       Alias to remf, loop, and subseq respectively for old Emacsen.
+
 2014-12-18  Paul Eggert  <eggert@cs.ucla.edu>
 
        * registry.el (registry-db): Set default slot later.
 2014-12-18  Paul Eggert  <eggert@cs.ucla.edu>
 
        * registry.el (registry-db): Set default slot later.
index f0b3154..ab1e37b 100644 (file)
       (error
        "eieio not found in `load-path' or gnus-fallback-lib/ directory.")))
 
       (error
        "eieio not found in `load-path' or gnus-fallback-lib/ directory.")))
 
+(eval-when-compile
+  (unless (fboundp 'cl-remf)
+    (defalias 'cl-remf 'remf)
+    (defalias 'cl-loop 'loop)
+    (defalias 'cl-subseq 'subseq)))
+
 ;; The version number needs to be kept outside of the class definition
 ;; itself.  The persistent-save process does *not* write to file any
 ;; slot values that are equal to the default :initform value.  If a
 ;; The version number needs to be kept outside of the class definition
 ;; itself.  The persistent-save process does *not* write to file any
 ;; slot values that are equal to the default :initform value.  If a