mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-04 20:27:45 +00:00
Code Issues Releases Activity

(Info-default-directory-list): Don't attach ../info.

Browse Source 
So now configure-info-directory comes last.
Put /usr/local/info second.
This commit is contained in:
Richard M. Stallman 1994-05-30 11:50:27 +00:00
parent 5c11086b45
commit 9a49418b11
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lisp/paths.el
View File

@ -32,15 +32,16 @@
;;; Code:
(defvar Info-default-directory-list
(let ((start (list "/usr/local/info/"
"/usr/local/lib/info/"))
(let ((start (list "/usr/local/lib/info/"
;; This comes second so that, if it is the same
;; as configure-info-directory (which is usually true)
;; and Emacs has been installed (also usually true)
;; then the list will end with two copies of this;
;; which means that the last dir file Info-insert-dir
;; finds will be the one in this directory.
"/usr/local/info/"))
(configdir (file-name-as-directory configure-info-directory)))
(or (member configdir start)
(setq start (nconc start (list configdir))))
(or (member (expand-file-name "../info/" data-directory) start)
(setq start
(nconc start
(list (expand-file-name "../info/" data-directory)))))
(setq start (nconc start (list configdir)))
start)
"List of directories to search for Info documentation files.
They are searched in the order they are given in this list.