From 405da5a7b32b37d510c30d3c5f27dd3ce01028ad Mon Sep 17 00:00:00 2001 From: plugd Date: Thu, 15 Jul 2021 10:11:50 +0200 Subject: [PATCH] Appended spaces to autocompletions. --- lurk.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lurk.el b/lurk.el index 42f4cdb..2a1bf3b 100644 --- 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)) - (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) - (mapcar (lambda (row) (string-join (list "/" (car row)))) + (mapcar (lambda (row) (concat "/" (car row) " ")) lurk-command-table))) (_ (let* ((end (max lurk-input-marker (point))) -- 2.20.1