diff options
| author | Mark Oteiza <mvoteiza@udel.edu> | 2016-09-27 13:34:29 -0400 |
|---|---|---|
| committer | Mark Oteiza <mvoteiza@udel.edu> | 2016-09-27 13:34:29 -0400 |
| commit | 329e0274ec6a4ae82f86905b8cf844971b943085 (patch) | |
| tree | 4f805f66173aa106b4c2cb1a84b757960ad8f355 | |
| parent | 739c538cf818c3884c07b6a9c7e8a5abe279cb1d (diff) | |
| download | emacs-329e0274ec6a4ae82f86905b8cf844971b943085.tar.gz | |
; Fix previous change
* lisp/woman.el (woman-parse-man.conf, woman-manpath-add-locales)
(woman-cached-data): Use :test #'equal for instances of cl-pushnew.
| -rw-r--r-- | lisp/woman.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/woman.el b/lisp/woman.el index 9c3fb2ab4cd..3822ce6f1a5 100644 --- a/lisp/woman.el +++ b/lisp/woman.el @@ -572,7 +572,7 @@ MANPATH_MAP[ \t]+\\(\\S-+\\)[ \t]+\\(\\S-+\\)\\)" nil t) (match-string 1) (cons (match-string 2) (match-string 3))) - manpath)) + manpath :test #'equal)) manpath)) )) (setq path (cdr path))) @@ -626,9 +626,9 @@ of `woman-expand-locale' on `woman-locale' added, where they exist." (cl-pushnew (if (consp elem) (cons (car elem) dir) dir) - lst))) + lst :test #'equal))) ;; Non-locale-specific has lowest precedence. - (cl-pushnew elem lst))))) + (cl-pushnew elem lst :test #'equal))))) (defcustom woman-manpath ;; Locales could also be added in woman-expand-directory-path. @@ -1197,7 +1197,8 @@ Called both to generate and to check the cache!" (setq path (split-string (getenv "PATH") path-separator t))) (setq dir (and (member (car dir) path) (cdr dir)))) - (when dir (cl-pushnew (substitute-in-file-name dir) lst)))) + (when dir + (cl-pushnew (substitute-in-file-name dir) lst :test #'equal)))) (mapcar 'substitute-in-file-name woman-path))) (defun woman-read-directory-cache () |