Do not insert a list element if no insert prompt is needed
This commit is contained in:
parent
6996098c1d
commit
e409be20b4
1 changed files with 5 additions and 5 deletions
6
kagi.el
6
kagi.el
|
@ -529,11 +529,11 @@ defined in `kagi--summarizer-engines'."
|
||||||
Not all commands need to insert a summary, so only prompt for
|
Not all commands need to insert a summary, so only prompt for
|
||||||
this when PROMPT-INSERT-P is non-nil."
|
this when PROMPT-INSERT-P is non-nil."
|
||||||
(append
|
(append
|
||||||
|
(when prompt-insert-p
|
||||||
(list
|
(list
|
||||||
(and prompt-insert-p
|
(and (equal current-prefix-arg '(4))
|
||||||
(equal current-prefix-arg '(4))
|
|
||||||
(not buffer-read-only)
|
(not buffer-read-only)
|
||||||
(y-or-n-p "Insert summary at point?")))
|
(y-or-n-p "Insert summary at point?"))))
|
||||||
(list
|
(list
|
||||||
(when (equal current-prefix-arg '(4))
|
(when (equal current-prefix-arg '(4))
|
||||||
(let ((language-table (mapcar (lambda (lang)
|
(let ((language-table (mapcar (lambda (lang)
|
||||||
|
|
Loading…
Reference in a new issue