branch: master
commit 4f9c5f4151e6fab1f6e4f10fdacfadd28eb92a3c
Author: Stefan Monnier <monn...@iro.umontreal.ca>
Commit: Stefan Monnier <monn...@iro.umontreal.ca>
* cl-lib/cl-lib.el: Make it work for Emacs-21. Bump version to 0.6
(var aliases): Don't assume `defvaralias' is available.
---
packages/cl-lib/cl-lib.el | 12 ++++++++----
1 file changed, 8 insertions(+), 4 deletions(-)
diff --git a/packages/cl-lib/cl-lib.el b/packages/cl-lib/cl-lib.el
index cf13c56..ed63391 100644
--- a/packages/cl-lib/cl-lib.el
+++ b/packages/cl-lib/cl-lib.el
@@ -1,10 +1,11 @@
;;; cl-lib.el --- Properly prefixed CL functions and macros -*- coding: utf-8
-*-
-;; Copyright (C) 2012, 2013, 2014 Free Software Foundation, Inc.
+;; Copyright (C) 2012, 2013, 2014, 2017 Free Software Foundation, Inc.
;; Author: Stefan Monnier <monn...@iro.umontreal.ca>
;; vcomment: Emacs-24.3's version is 1.0 so this has to stay below.
-;; Version: 0.5
+;; Version: 0.6
+;; Package-Requires: ((emacs "21"))
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
@@ -23,7 +24,7 @@
;; This is a forward compatibility package, which provides (a subset of) the
;; features of the cl-lib package introduced in Emacs-24.3, for use on
-;; previous emacsen.
+;; previous emacsen (it should work on Emacsā„21 as well as XEmacs).
;; Make sure this is installed *late* in your `load-path`, i.e. after Emacs's
;; built-in .../lisp/emacs-lisp directory, so that if/when you upgrade to
@@ -100,7 +101,10 @@
;; custom-print-functions
))
(let ((new (intern (format "cl-%s" var))))
- (unless (boundp new) (defvaralias new var))))
+ (if (fboundp 'defvaralias)
+ (unless (boundp new) (defvaralias new var))
+ (if (fboundp 'cl-float-limits) (cl-float-limits))
+ (eval `(defvar ,new ,var ,(format "`cl-lib' alias of `%s'" var))))))
;; The following cl-lib functions were already defined in the old cl.el,
;; with a different meaning:
