emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] master 4f9c5f4: * cl-lib/cl-lib.el: Make it work for Emacs-21. Bu


From: Stefan Monnier
Subject: [elpa] master 4f9c5f4: * cl-lib/cl-lib.el: Make it work for Emacs-21. Bump version to 0.6
Date: Wed, 4 Jan 2017 07:04:59 +0000 (UTC)

branch: master
commit 4f9c5f4151e6fab1f6e4f10fdacfadd28eb92a3c
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>

    * 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 <address@hidden>
 ;; 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:



reply via email to

[Prev in Thread] Current Thread [Next in Thread]