[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/setup 8acf431: Delete setup--quit-sym
From: |
ELPA Syncer |
Subject: |
[elpa] externals/setup 8acf431: Delete setup--quit-sym |
Date: |
Sun, 12 Sep 2021 18:57:19 -0400 (EDT) |
branch: externals/setup
commit 8acf43122c32648a5c17a5df3e9b0da0829e11a5
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>
Delete setup--quit-sym
---
setup.el | 7 ++-----
1 file changed, 2 insertions(+), 5 deletions(-)
diff --git a/setup.el b/setup.el
index 51aecf6..71503e1 100644
--- a/setup.el
+++ b/setup.el
@@ -83,12 +83,9 @@
(require 'elisp-mode)
-(defconst setup--quit-sym (gensym)
- "Symbol thrown on an early exit.")
-
(defvar setup--need-quit) ;see `setup-quit'
-(defvar setup-opts `((quit . ,setup--quit-sym))
+(defvar setup-opts `((quit . ,(make-symbol "setup-quit")))
"Alist defining context-specific options.
Values are extracted using `setup-get'.")
@@ -140,7 +137,7 @@ NAME may also be a macro, if it can provide a symbol."
(macroexp-progn body))
(append setup-macros macroexpand-all-environment))))
(if setup--need-quit
- `(catch ',setup--quit-sym ,@(macroexp-unprogn res))
+ `(catch ',(setup-get 'quit) ,@(macroexp-unprogn res))
res)))
;;;###autoload
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/setup 8acf431: Delete setup--quit-sym,
ELPA Syncer <=