The Lambda Lab
/
projects
/
lurk.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
0d70a53
)
Appended spaces to autocompletions.
author
plugd
<plugd@thelambdalab.xyz>
Thu, 15 Jul 2021 08:11:50 +0000
(10:11 +0200)
committer
plugd
<plugd@thelambdalab.xyz>
Thu, 15 Jul 2021 08:11:50 +0000
(10:11 +0200)
lurk.el
patch
|
blob
|
history
diff --git
a/lurk.el
b/lurk.el
index
42f4cdb
..
2a1bf3b
100644
(file)
--- a/
lurk.el
+++ b/
lurk.el
@@
-1056,12
+1056,13
@@
in which case they match anything.")
(re-search-backward " " lurk-input-marker t)))
(table-row (assoc (upcase cmd-str) lurk-command-table #'equal)))
(if (and table-row (elt table-row 3))
(re-search-backward " " lurk-input-marker t)))
(table-row (assoc (upcase cmd-str) lurk-command-table #'equal)))
(if (and table-row (elt table-row 3))
- (let ((completions (funcall (elt table-row 3))))
+ (let* ((completions-nospace (funcall (elt table-row 3)))
+ (completions (mapcar (lambda (el) (concat el " ")) completions-nospace)))
(completion-in-region (+ 1 space-idx) (point) completions)))))
((rx (: "/" (* (not whitespace)) string-end))
(message (buffer-substring lurk-input-marker (point)))
(completion-in-region lurk-input-marker (point)
(completion-in-region (+ 1 space-idx) (point) completions)))))
((rx (: "/" (* (not whitespace)) string-end))
(message (buffer-substring lurk-input-marker (point)))
(completion-in-region lurk-input-marker (point)
- (mapcar (lambda (row) (
string-join (list "/" (car row))
))
+ (mapcar (lambda (row) (
concat "/" (car row) " "
))
lurk-command-table)))
(_
(let* ((end (max lurk-input-marker (point)))
lurk-command-table)))
(_
(let* ((end (max lurk-input-marker (point)))