Merge pull request #2350 from Janfel/patch-1
Fix #2349: Make +format-completing-read return symbol
This commit is contained in:
commit
a6d81dda4e
1 changed files with 1 additions and 1 deletions
|
@ -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)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue