procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

; Fix previous change

Browse source 
* lisp/woman.el (woman-parse-man.conf, woman-manpath-add-locales)
(woman-cached-data): Use :test #'equal for instances of cl-pushnew.
This commit is contained in:
Mark Oteiza 2016-09-27 13:34:29 -04:00
parent 739c538cf8
commit 329e0274ec
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/woman.el
View file

@ -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 ()