Mercurial > emacs
comparison lisp/paths.el @ 3214:7fb1204b22de
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) |