Mercurial > emacs

comparison lisp/paths.el @ 3214:7fb1204b22de

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix up previous change.
author Richard M. Stallman <rms@gnu.org>
date Fri, 28 May 1993 19:46:06 +0000
parents 1fdd5c6dc6ba
children 4728125f5873
comparison
equal deleted inserted replaced
3213:1fdd5c6dc6ba 3214:7fb1204b22de
31 31
32 ;;; Code: 32 ;;; Code:
33 33
34 (defvar Info-default-directory-list 34 (defvar Info-default-directory-list
35 (let ((start (list "/usr/local/info/" 35 (let ((start (list "/usr/local/info/"
36 "/usr/local/lib/info/" 36 "/usr/local/lib/info/"))
37 configure-info-directory))) 37 (configdir (file-name-as-directory configure-info-directory)))
38 (or (member configure-info-directory start) 38 (or (member configdir start)
39 (setq start (nconc start (list configure-info-directory)))) 39 (setq start (nconc start (list configdir))))
40 (or (member (expand-file-name "../info/" data-directory) start) 40 (or (member (expand-file-name "../info/" data-directory) start)
41 (setq start 41 (setq start
42 (nconc start 42 (nconc start
43 (list (expand-file-name "../info/" data-directory))))) 43 (list (expand-file-name "../info/" data-directory)))))
44 start) 44 start)