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

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

[elpa] externals/buffer-env f213017cc6: Remove obsolete variable buffer-


From: ELPA Syncer
Subject: [elpa] externals/buffer-env f213017cc6: Remove obsolete variable buffer-env-command
Date: Wed, 4 May 2022 12:57:18 -0400 (EDT)

branch: externals/buffer-env
commit f213017cc64017a3ed4197a6528272679c0c0612
Author: Augusto Stoffel <arstoffel@gmail.com>
Commit: Augusto Stoffel <arstoffel@gmail.com>

    Remove obsolete variable buffer-env-command
---
 buffer-env.el | 17 +++++------------
 1 file changed, 5 insertions(+), 12 deletions(-)

diff --git a/buffer-env.el b/buffer-env.el
index f21a324a2f..13783df83b 100644
--- a/buffer-env.el
+++ b/buffer-env.el
@@ -61,12 +61,6 @@
   "File name of the script to produce environment variables."
   :type 'string)
 
-(defcustom buffer-env-command ">&2 . \"$0\" && env -0"
-  "Command to produce environment variables.
-This variable is obsolete.  Use `buffer-env-commands' instead."
-  :type 'string)
-(make-obsolete-variable 'buffer-env-command 'buffer-env-commands "0.3" 'set)
-
 (defcustom buffer-env-commands
   '((".env" . "set -a && >&2 . \"$0\" && env -0")
     ("guix.scm" . ">&2 guix shell -D -f \"$0\" -- env -0")
@@ -168,12 +162,11 @@ When called interactively, ask for a FILE."
                        (expand-file-name file)
                      (buffer-env--locate-script)))
              ((buffer-env--authorize file))
-             (command (or buffer-env-command
-                          (seq-some (pcase-lambda (`(,patt . ,command))
-                                      (when (string-match-p 
(wildcard-to-regexp patt)
-                                                            
(file-name-nondirectory file))
-                                        command))
-                                    buffer-env-commands)))
+             (command (seq-some (pcase-lambda (`(,patt . ,command))
+                                  (when (string-match-p (wildcard-to-regexp 
patt)
+                                                        
(file-name-nondirectory file))
+                                    command))
+                                buffer-env-commands))
              (vars (with-temp-buffer
                      (let* ((default-directory (file-name-directory file))
                             (message-log-max nil)



reply via email to

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