[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/buffer-env 180df340f7: Use format-prompt (via compat.el
From: |
ELPA Syncer |
Subject: |
[elpa] externals/buffer-env 180df340f7: Use format-prompt (via compat.el) |
Date: |
Wed, 20 Jul 2022 15:57:19 -0400 (EDT) |
branch: externals/buffer-env
commit 180df340f77954aace8a41192d502bb378283c87
Author: Augusto Stoffel <arstoffel@gmail.com>
Commit: Augusto Stoffel <arstoffel@gmail.com>
Use format-prompt (via compat.el)
---
buffer-env.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/buffer-env.el b/buffer-env.el
index 9da63c8811..50d69c6335 100644
--- a/buffer-env.el
+++ b/buffer-env.el
@@ -5,7 +5,7 @@
;; Author: Augusto Stoffel <arstoffel@gmail.com>
;; URL: https://github.com/astoff/buffer-env
;; Keywords: processes, tools
-;; Package-Requires: ((emacs "27.1"))
+;; Package-Requires: ((emacs "27.1") (compat "28.1"))
;; Version: 0.3
;; This program is free software; you can redistribute it and/or modify
@@ -50,6 +50,7 @@
;;; Code:
+(require 'compat)
(require 'seq)
(eval-when-compile (require 'subr-x))
@@ -175,8 +176,8 @@ suitable for use in a normal hook.
When called interactively, ask for a FILE."
(interactive
(list (let ((file (buffer-env--locate-script)))
- (read-file-name (format "Environment script (default %s): "
- (when file (file-relative-name file)))
+ (read-file-name (format-prompt "Environment script"
+ (when file (file-relative-name
file)))
nil file t))))
(when-let ((file (if file
(expand-file-name file)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/buffer-env 180df340f7: Use format-prompt (via compat.el),
ELPA Syncer <=