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

[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



reply via email to

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