Add 'minibuffer-action' to byte compilation commands

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 07736fff0a0862390ba11bc31755bb8c474d83ea..fa44b0bc78925a1db932be58b39c73318f2a997e 100644 (file)
--- 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)