diff options
| author | Simen Heggestøyl <simenheg@gmail.com> | 2016-04-24 19:57:42 +0200 |
|---|---|---|
| committer | Simen Heggestøyl <simenheg@gmail.com> | 2016-04-24 19:58:36 +0200 |
| commit | e6d6a99455183bca5074b7601ad11d424da6442e (patch) | |
| tree | 37d78fa65347b299f1fad95520ae9e5959220529 /lisp/textmodes/css-mode.el | |
| parent | 12846626bfae795a173fdedf2850dfbd24065534 (diff) | |
| download | emacs-e6d6a99455183bca5074b7601ad11d424da6442e.tar.gz emacs-e6d6a99455183bca5074b7601ad11d424da6442e.tar.bz2 emacs-e6d6a99455183bca5074b7601ad11d424da6442e.zip | |
Don't let `css--property-values' return duplicates
* lisp/textmodes/css-mode.el (css--property-values): Don't return
duplicate values.
* test/lisp/textmodes/css-mode-tests.el (css-test-property-values):
Take the above into account.
(css-test-property-values-no-duplicates): Test that duplicates aren't
returned by `css--property-values'.
Diffstat (limited to 'lisp/textmodes/css-mode.el')
| -rw-r--r-- | lisp/textmodes/css-mode.el | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/lisp/textmodes/css-mode.el b/lisp/textmodes/css-mode.el index 8a4daac353a..608462b36a6 100644 --- a/lisp/textmodes/css-mode.el +++ b/lisp/textmodes/css-mode.el @@ -793,13 +793,14 @@ Completion candidates are looked up in `css-property-alist' by the string PROPERTY." (or (gethash property css--property-value-cache) (let ((values - (seq-mapcat - (lambda (value) - (if (stringp value) - (list value) - (or (css--value-class-lookup value) - (css--property-values (symbol-name value))))) - (cdr (assoc property css-property-alist))))) + (seq-uniq + (seq-mapcat + (lambda (value) + (if (stringp value) + (list value) + (or (css--value-class-lookup value) + (css--property-values (symbol-name value))))) + (cdr (assoc property css-property-alist)))))) (puthash property values css--property-value-cache)))) (defun css--complete-property-value () |