Mercurial > hg > xemacs-beta
comparison lisp/setup-paths.el @ 408:501cfd01ee6d r21-2-34
Import from CVS: tag r21-2-34
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 11:18:11 +0200 |
| parents | 74fd4e045ea6 |
| children | 697ef44129c6 |
comparison
equal
deleted
inserted
replaced
| 407:ed6218a7d4d3 | 408:501cfd01ee6d |
|---|---|
| 141 | 141 |
| 142 (defun paths-find-doc-directory (roots) | 142 (defun paths-find-doc-directory (roots) |
| 143 "Find the documentation directory." | 143 "Find the documentation directory." |
| 144 (paths-find-architecture-directory roots "lib-src" nil configure-doc-directory)) | 144 (paths-find-architecture-directory roots "lib-src" nil configure-doc-directory)) |
| 145 | 145 |
| 146 (defun paths-find-lock-directory (roots) | |
| 147 "Find the lock directory." | |
| 148 (defvar configure-lock-directory) | |
| 149 (paths-find-site-directory roots "lock" "EMACSLOCKDIR" configure-lock-directory)) | |
| 150 | |
| 151 (defun paths-find-superlock-file (lock-directory) | |
| 152 "Find the superlock file." | |
| 153 ;; #### There is no such variable configure-superlock-file! | |
| 154 (cond | |
| 155 ((null lock-directory) | |
| 156 nil) | |
| 157 ((and configure-superlock-file | |
| 158 (file-directory-p (file-name-directory configure-superlock-file))) | |
| 159 configure-superlock-file) | |
| 160 (t | |
| 161 (expand-file-name "!!!SuperLock!!!" lock-directory)))) | |
| 162 | |
| 163 (defun paths-find-exec-directory (roots) | 146 (defun paths-find-exec-directory (roots) |
| 164 "Find the binary directory." | 147 "Find the binary directory." |
| 165 (paths-find-architecture-directory roots "lib-src" | 148 (paths-find-architecture-directory roots "lib-src" |
| 166 nil configure-exec-directory)) | 149 nil configure-exec-directory)) |
| 167 | 150 |