From: Eshel Yaron <me@eshelyaron.com>
Date: Thu, 6 Jun 2024 08:33:36 +0000 (+0200)
Subject: Add 'minibuffer-action' to byte compilation commands
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=17f9d71ce5d9f4bded6b37cfbd24f73644e89304;p=emacs.git

Add 'minibuffer-action' to byte compilation commands
---

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 07736fff0a0..fa44b0bc789 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1975,6 +1975,8 @@ Files in subdirectories of DIRECTORY are processed also."
   (interactive "DByte force recompile (directory): ")
   (byte-recompile-directory directory nil t))
 
+(put 'byte-force-recompile 'minibuffer-action "recompile")
+
 (defvar byte-compile-ignore-files nil
   "List of regexps for files to ignore during byte compilation.")
 
@@ -2069,6 +2071,8 @@ also be compiled."
 	       (if (> dir-count 1)
                    (format " in %d directories" dir-count) "")))))
 
+(put 'byte-recompile-directory 'minibuffer-action "recompile")
+
 (defvar no-byte-compile nil
   "Non-nil to prevent byte-compiling of Emacs Lisp code.
 This is normally set in local file variables at the end of the elisp file:
@@ -2127,6 +2131,8 @@ If compilation is needed, this functions returns the result of
       (when load
         (load (if (and dest (file-exists-p dest)) dest filename))))))
 
+(put 'byte-recompile-file 'minibuffer-action "recompile")
+
 (defun byte-compile--load-dynvars (file)
   (and file (not (equal file ""))
        (with-temp-buffer
@@ -2364,6 +2370,8 @@ See also `emacs-lisp-byte-compile-and-load'."
             (load target-file))
 	t))))
 
+(put 'byte-compile-file 'minibuffer-action "compile")
+
 ;;; compiling a single function
 ;;;###autoload
 (defun compile-defun (&optional arg)