Mercurial > hg > xemacs-beta

comparison lisp/setup-paths.el @ 380:8626e4521993 r21-2-5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-5
author cvs
date Mon, 13 Aug 2007 11:07:10 +0200
parents 6240c7796c7a
children aabb7f5b1c81
comparison
equal deleted inserted replaced
379:76b7d63099ad 380:8626e4521993
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"))
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 (defvar configure-lock-directory)
114 (paths-find-site-directory roots "lock" "EMACSLOCKDIR" configure-lock-directory)) 115 (paths-find-site-directory roots "lock" "EMACSLOCKDIR" configure-lock-directory))
115 116
116 (defun paths-find-superlock-file (lock-directory) 117 (defun paths-find-superlock-file (lock-directory)
117 "Find the superlock file." 118 "Find the superlock file."
119 ;; #### There is no such variable configure-superlock-file!
118 (cond 120 (cond
119 ((null lock-directory) 121 ((null lock-directory)
120 nil) 122 nil)
121 ((and configure-superlock-file 123 ((and configure-superlock-file
122 (file-directory-p (file-name-directory configure-superlock-file))) 124 (file-directory-p (file-name-directory configure-superlock-file)))