Mercurial > hg > xemacs-beta
comparison lisp/ChangeLog @ 4919:9c6ea1581159
Remove a couple of XEmacs-specific duplicate functions, find-paths.el
2010-02-03 Aidan Kehoe <kehoea@parhasard.net>
Delete a couple of XEmacs-specific functions that duplicate CL
functions.
* find-paths.el (paths-filter, paths-uniq-append):
Remove #'paths-filter, a reimplementation of #'remove-if-not, and
#'paths-uniq-append, a reimplementation of #'union with test
#'equal.
(paths-decode-directory-path): Don't use #'path-filter here.
* packages.el (packages-package-hierarchy-directory-names):
Don't use #'path-filter here.
(packages-find-installation-package-directories):
Use #'union, not #'paths-uniq-append here.
* setup-paths.el (paths-find-invocation-roots)
(paths-find-emacs-roots, paths-construct-info-path)
(paths-construct-info-path):
Replace #'paths-filter with #'remove-if-not, #'paths-uniq-append
with #'union.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Wed, 03 Feb 2010 09:04:35 +0000 |
| parents | bedf3747a6d7 |
| children | cbe181529c34 c17c857e20bf |
comparison
equal
deleted
inserted
replaced
| 4915:bedf3747a6d7 | 4919:9c6ea1581159 |
|---|---|
| 1 2010-02-03 Aidan Kehoe <kehoea@parhasard.net> | |
| 2 | |
| 3 Delete a couple of XEmacs-specific functions that duplicate CL | |
| 4 functions. | |
| 5 | |
| 6 * find-paths.el (paths-filter, paths-uniq-append): | |
| 7 Remove #'paths-filter, a reimplementation of #'remove-if-not, and | |
| 8 #'paths-uniq-append, a reimplementation of #'union with test | |
| 9 #'equal. | |
| 10 (paths-decode-directory-path): Don't use #'path-filter here. | |
| 11 * packages.el (packages-package-hierarchy-directory-names): | |
| 12 Don't use #'path-filter here. | |
| 13 (packages-find-installation-package-directories): | |
| 14 Use #'union, not #'paths-uniq-append here. | |
| 15 * setup-paths.el (paths-find-invocation-roots) | |
| 16 (paths-find-emacs-roots, paths-construct-info-path) | |
| 17 (paths-construct-info-path): | |
| 18 Replace #'paths-filter with #'remove-if-not, #'paths-uniq-append | |
| 19 with #'union. | |
| 20 | |
| 1 2010-02-01 Aidan Kehoe <kehoea@parhasard.net> | 21 2010-02-01 Aidan Kehoe <kehoea@parhasard.net> |
| 2 | 22 |
| 3 * loadhist.el (symbol-file): | 23 * loadhist.el (symbol-file): |
| 4 If #'built-in-symbol-file returns a Lisp file name, and | 24 If #'built-in-symbol-file returns a Lisp file name, and |
| 5 source-lisp is readable, construct a full pathname to include | 25 source-lisp is readable, construct a full pathname to include |