[gnus git] branch master updated: m0-11-100-g0a4cd14 =1= registry.el (cl-remf, cl-loop, cl-subseq): Alias to remf, loop, and subseq respectively for old Emacsen

Katsumi <[email protected]> Sat, 20 Dec 2014 12:19:39 +0100
Newsgroups gmane.emacs.gnus.cvs
Message-ID <[email protected]>
       via  0a4cd14e60d05f51a0fb3dd65aa722884a9f5eaa (commit)
      from  1d113068206db537f062ef9a1c3f38de98797200 (commit)


- Log -----------------------------------------------------------------
commit 0a4cd14e60d05f51a0fb3dd65aa722884a9f5eaa
Author: Katsumi Yamaoka <[email protected]>
Date:   Sat Dec 20 11:19:30 2014 +0000

    registry.el (cl-remf, cl-loop, cl-subseq): Alias to remf, loop, and subseq respectively for old Emacsen

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5f25801..786ee1b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-12-20  Katsumi Yamaoka  <[email protected]>
+
+	* registry.el (cl-remf, cl-loop, cl-subseq):
+	Alias to remf, loop, and subseq respectively for old Emacsen.
+
 2014-12-18  Paul Eggert  <[email protected]>
 
 	* registry.el (registry-db): Set default slot later.
diff --git a/lisp/registry.el b/lisp/registry.el
index f0b3154..ab1e37b 100644
--- a/lisp/registry.el
+++ b/lisp/registry.el
@@ -95,6 +95,12 @@
       (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

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog   |    5 +++++
 lisp/registry.el |    6 ++++++
 2 files changed, 11 insertions(+)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project