mirror of
https://github.com/doomemacs/doomemacs
synced 2025-08-19 13:43:36 -05:00
Fix #2349: Make +format-completing-read return symbol
Currently `+format-completing-read` returns a cons cell like `(symbol . t)`, where `+format/buffer` expects a symbol. This commit makes `+format-completing-read` return a symbol instead. Fixes #2349.
This commit is contained in:
@@ -95,7 +95,7 @@ Stolen shamelessly from go-mode"
|
|||||||
(require 'format-all)
|
(require 'format-all)
|
||||||
(let* ((fmtlist (mapcar #'symbol-name (hash-table-keys format-all--format-table)))
|
(let* ((fmtlist (mapcar #'symbol-name (hash-table-keys format-all--format-table)))
|
||||||
(fmt (completing-read "Formatter: " fmtlist)))
|
(fmt (completing-read "Formatter: " fmtlist)))
|
||||||
(if fmt (cons (intern fmt) t))))
|
(if fmt (intern fmt))))
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(defun +format-probe-a (orig-fn)
|
(defun +format-probe-a (orig-fn)
|
||||||
|
Reference in New Issue
Block a user