From 0a4cd14e60d05f51a0fb3dd65aa722884a9f5eaa Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Sat, 20 Dec 2014 11:19:30 +0000 Subject: [PATCH] registry.el (cl-remf, cl-loop, cl-subseq): Alias to remf, loop, and subseq respectively for old Emacsen --- lisp/ChangeLog | 5 +++++ lisp/registry.el | 6 ++++++ 2 files changed, 11 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5f2580199..786ee1bfa 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2014-12-20 Katsumi Yamaoka + + * registry.el (cl-remf, cl-loop, cl-subseq): + Alias to remf, loop, and subseq respectively for old Emacsen. + 2014-12-18 Paul Eggert * registry.el (registry-db): Set default slot later. diff --git a/lisp/registry.el b/lisp/registry.el index f0b315420..ab1e37be6 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 -- 2.25.1