Fix void-function doom--menu-read error in byte-compiled Doom #427
The macro would be expanded, and then its helpers would never be loaded.
This commit is contained in:
parent
e6f58d3714
commit
fe81a501f3
1 changed files with 2 additions and 0 deletions
|
@ -11,11 +11,13 @@ PROMPT (a string) and COMMAND (a list of command plists; see `def-menu!').")
|
||||||
"Default method for displaying a completion-select prompt."
|
"Default method for displaying a completion-select prompt."
|
||||||
(completing-read prompt (mapcar #'car commands)))
|
(completing-read prompt (mapcar #'car commands)))
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
(defun doom--menu-read (prompt commands)
|
(defun doom--menu-read (prompt commands)
|
||||||
(if-let* ((choice (funcall doom-menu-display-fn prompt commands)))
|
(if-let* ((choice (funcall doom-menu-display-fn prompt commands)))
|
||||||
(cdr (assoc choice commands))
|
(cdr (assoc choice commands))
|
||||||
(user-error "Aborted")))
|
(user-error "Aborted")))
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
(defun doom--menu-exec (plist)
|
(defun doom--menu-exec (plist)
|
||||||
(let ((command (plist-get plist :exec))
|
(let ((command (plist-get plist :exec))
|
||||||
(cwd (plist-get plist :cwd)))
|
(cwd (plist-get plist :cwd)))
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue