[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/compat 08c77ed 33/99: Declare variable for gensym
From: |
ELPA Syncer |
Subject: |
[elpa] externals/compat 08c77ed 33/99: Declare variable for gensym |
Date: |
Sun, 17 Oct 2021 05:57:52 -0400 (EDT) |
branch: externals/compat
commit 08c77ed267c8f0ded5c214d0b3ff76c6d1729987
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>
Declare variable for gensym
Older versions of Emacs do not handle the let-over-lambda as should be
expected, so an explicit variable has to be declared.
---
compat-26.1.el | 13 ++++++++-----
1 file changed, 8 insertions(+), 5 deletions(-)
diff --git a/compat-26.1.el b/compat-26.1.el
index 90e07bf..b85d6ac 100644
--- a/compat-26.1.el
+++ b/compat-26.1.el
@@ -250,13 +250,16 @@ TRIM-LEFT and TRIM-RIGHT default to \"[ \\t\\n\\r]+\"."
(declare (pure t))
(cdr (cdr (cdr (cdr x)))))
-(let ((counter 0))
- (compat-defun gensym (&optional prefix)
- "Return a new uninterned symbol.
+(defvar compat--gensym-counter 0)
+
+(compat-defun gensym (&optional prefix)
+ "Return a new uninterned symbol.
The name is made by appending `gensym-counter' to PREFIX.
PREFIX is a string, and defaults to \"g\"."
- (let ((num (prog1 counter (setq counter (1+ counter)))))
- (make-symbol (format "%s%d" (or prefix "g") num)))))
+ (let ((num (prog1 compat--gensym-counter
+ (setq compat--gensym-counter
+ (1+ compat--gensym-counter)))))
+ (make-symbol (format "%s%d" (or prefix "g") num))))
;;;; Defined in files.el
- [elpa] externals/compat eafe584 15/99: Remove unnecessary eval-and-compile block from compat-tests, (continued)
- [elpa] externals/compat eafe584 15/99: Remove unnecessary eval-and-compile block from compat-tests, ELPA Syncer, 2021/10/17
- [elpa] externals/compat c7d1615 06/99: Remove elisp-shorthands from compat-tests.el, ELPA Syncer, 2021/10/17
- [elpa] externals/compat 5936773 08/99: Fix installation check, ELPA Syncer, 2021/10/17
- [elpa] externals/compat d77b31f 11/99: Reorder files to byte compile in Makefile, ELPA Syncer, 2021/10/17
- [elpa] externals/compat 12e36f7 12/99: Check if actual name is fbound before binding a function or macro, ELPA Syncer, 2021/10/17
- [elpa] externals/compat 5846fbe 13/99: Pull compatibility definition out of eval-after-load block, ELPA Syncer, 2021/10/17
- [elpa] externals/compat b3d1100 17/99: Prepend font-lock-preprocessor-face to compatibility symbols, ELPA Syncer, 2021/10/17
- [elpa] externals/compat c626917 18/99: Add a named-let test, ELPA Syncer, 2021/10/17
- [elpa] externals/compat 4c6c31b 29/99: Replace :force with more general :cond, ELPA Syncer, 2021/10/17
- [elpa] externals/compat a983e8c 30/99: Install advice using advice instead of nadvice for Emacs 24.3, ELPA Syncer, 2021/10/17
- [elpa] externals/compat 08c77ed 33/99: Declare variable for gensym,
ELPA Syncer <=
- [elpa] externals/compat 56ad375 40/99: Declare macrop for macroexpand-1, ELPA Syncer, 2021/10/17
- [elpa] externals/compat e4b57d2 28/99: Increase base version to 24.3, ELPA Syncer, 2021/10/17
- [elpa] externals/compat 1430aaa 09/99: Add highlighting for compatibility code, ELPA Syncer, 2021/10/17
- [elpa] externals/compat 79d4778 23/99: Use compat--string-trim-left in file-name-with-extension, ELPA Syncer, 2021/10/17
- [elpa] externals/compat 156b5f5 27/99: Ensure substring is passed two arguments in string-width advise, ELPA Syncer, 2021/10/17
- [elpa] externals/compat 14a3bce 39/99: Remove NonGNU ELPA installation code, ELPA Syncer, 2021/10/17
- [elpa] externals/compat 6445814 51/99: Use compatibility functions in file-name-with-extension definition, ELPA Syncer, 2021/10/17
- [elpa] externals/compat fa1d0df 55/99: Use names of compatibility functions in ert docstrings, ELPA Syncer, 2021/10/17
- [elpa] externals/compat 1d0f6db 56/99: Add compat-if-let* tests, ELPA Syncer, 2021/10/17
- [elpa] externals/compat c0c1889 57/99: Add compat-and-let* tests, ELPA Syncer, 2021/10/17