Delete duplicates when extracting candidates. fixes #26

Author: szermatt

bash-completion.el

@@ -759,7 +759,7 @@ result. See `bash-completion-fix' for more details."
         (push (bash-completion-fix
                completion parsed-stub unparsed-stub open-quote completion-type nil)
               result))
-      (nreverse result))))
+      (delete-dups (nreverse result)))))
 
 (defun bash-completion-fix
     (str parsed-prefix unparsed-prefix open-quote completion-type single)

test/bash-completion-test.el

@@ -582,7 +582,15 @@ Return (const return-value new-buffer-content)"
        "hello world\nhello \n\n"
        (cl-letf (((symbol-function 'bash-completion-buffer)
                   (lambda () (current-buffer))))
-         (bash-completion-extract-candidates "hello" "hello" nil nil)))))))
+         (bash-completion-extract-candidates "hello" "hello" nil nil)))))
+    (should
+     (equal
+      '("hello" "hellish" "hellow")
+      (bash-completion-test-with-buffer
+       "hello\nhellish\nhello\nhellow\n"
+       (cl-letf (((symbol-function 'bash-completion-buffer)
+                  (lambda () (current-buffer))))
+         (bash-completion-extract-candidates "hell" "hell" nil nil)))))))
 
 (ert-deftest bash-completion-nonsep-test ()
   (should (equal "^ \t\n\r;&|'\"#"