Mercurial > hg > xemacs-beta

comparison lisp/setup-paths.el @ 355:182f72e8cd0d r21-1-7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-7
author cvs
date Mon, 13 Aug 2007 10:56:21 +0200
parents 33bdb3d4b97f
children 4711e16a8e49
comparison
equal deleted inserted replaced
354:3729bef672e0 355:182f72e8cd0d
105 (paths-directories-which-exist configure-info-path) 105 (paths-directories-which-exist configure-info-path)
106 (paths-directories-which-exist paths-default-info-directories)))))) 106 (paths-directories-which-exist paths-default-info-directories))))))
107 107
108 (defun paths-find-doc-directory (roots) 108 (defun paths-find-doc-directory (roots)
109 "Find the documentation directory." 109 "Find the documentation directory."
110 (paths-find-architecture-directory roots "lib-src")) 110 (paths-find-architecture-directory roots "lib-src" nil configure-doc-directory))
111 111
112 (defun paths-find-lock-directory (roots) 112 (defun paths-find-lock-directory (roots)
113 "Find the lock directory." 113 "Find the lock directory."
114 (paths-find-site-directory roots "lock" "EMACSLOCKDIR" configure-lock-directory)) 114 (paths-find-site-directory roots "lock" "EMACSLOCKDIR" configure-lock-directory))
115 115