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

[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)



reply via email to

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