branch: externals/shell-command+
commit 7b47ed86edc12a943a58a93a84674437355cdac3
Author: Philip Kaludercic <phil...@posteo.net>
Commit: Philip Kaludercic <phil...@posteo.net>
Add a FIXME comment to 'shell-command+-command-substitution'
---
shell-command+.el | 3 +++
1 file changed, 3 insertions(+)
diff --git a/shell-command+.el b/shell-command+.el
index 8b2ff42c07..25f4562cb6 100644
--- a/shell-command+.el
+++ b/shell-command+.el
@@ -307,6 +307,9 @@ PARSE, FORM and CONTEXT see `shell-command+-features'."
(pcase-let ((`(,_ ,mode ,name ,_) parse))
(list parse
(let ((fn (assoc name shell-command+-substitute-alist)))
+ ;; FIXME: It might be that `name' is modified in such a
+ ;; way that this check fails and. Currently no function
+ ;; in `shell-command+-features' does this.
(if (and fn (not (eq mode 'literal)))
(lambda (command _beg _end)
(funcall (cdr fn) command))
