Commit 1e18b5a7 authored by Stephen Leake's avatar Stephen Leake

Add tests for uniquify-files, fix bug

* lisp/uniquify-files.el (uniq-file--hilit): Remove previously applied
faces.

* test/lisp/progmodes/uniquify-files-resources/: New directory.

* test/lisp/progmodes/uniquify-files-test.el: New file.
parent 640c2a3b
Pipeline #1356 failed with stage
in 59 minutes and 27 seconds
......@@ -225,6 +225,9 @@ character after each completion field."
(mapcar
(lambda (str)
;; First remove previously applied face; `str' may be a reference
;; to a list used in a previous completion.
(remove-text-properties 0 (length str) '(face completions-first-difference) str)
(when (string-match regex str)
(cl-loop
for i from 1 to field-count
......
This file name is a strict extension of foo-file3.text, to test a corner case
This diff is collapsed.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment