[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/jinx 410271e802: More compact mouse menu, delete duplic
From: |
ELPA Syncer |
Subject: |
[elpa] externals/jinx 410271e802: More compact mouse menu, delete duplicates |
Date: |
Thu, 14 Dec 2023 09:57:58 -0500 (EST) |
branch: externals/jinx
commit 410271e802f9678ac3d0f2c0d94791b15379680a
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
More compact mouse menu, delete duplicates
---
jinx.el | 8 +++-----
1 file changed, 3 insertions(+), 5 deletions(-)
diff --git a/jinx.el b/jinx.el
index 4ab8e00132..5ef65a86fc 100644
--- a/jinx.el
+++ b/jinx.el
@@ -991,13 +991,11 @@ This command dispatches to the following commands:
(suggestions (jinx--mod-suggest dict word)))
(push `[,(concat (car desc) " - " (cdr desc)) :active nil] menu)
(cl-loop for w in suggestions repeat 10 do
- (push `[,w (jinx--correct-replace ,ov ,w)] menu))
- (push "--" menu)))
+ (push `[,w (jinx--correct-replace ,ov ,w)] menu))))
(when-let ((suggestions (jinx--session-suggestions word)))
(push ["Session" :active nil] menu)
(cl-loop for w in suggestions repeat 10 do
- (push `[,w (jinx--correct-replace ,ov ,w)] menu))
- (push "--" menu))
+ (push `[,w (jinx--correct-replace ,ov ,w)] menu)))
(push ["Accept and save" :active nil] menu)
(cl-loop for (key . fun) in jinx--save-keys
for actions = (funcall fun nil key word) do
@@ -1009,7 +1007,7 @@ This command dispatches to the following commands:
menu)))
(popup-menu (easy-menu-create-menu
(format "Correct `%s'" word)
- (nreverse menu))
+ (delete-dups (nreverse menu)))
event))))
;;;###autoload
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/jinx 410271e802: More compact mouse menu, delete duplicates,
ELPA Syncer <=