mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-21 18:23:59 +00:00
Code Issues Releases Activity

Don't mess with INFOPATH in ns builds

Browse Source 
It's not necessary, and would break if INFOPATH was already set (bug#2791).
Ref also
http://lists.gnu.org/archive/html/emacs-devel/2009-05/msg00035.html
http://lists.gnu.org/archive/html/emacs-devel/2005-06/msg00064.html

* lisp/paths.el (Info-default-directory-list):
* lisp/info.el (info-initialize): For self-contained NS builds, put the
included info/ directory at the front. 

* src/nsterm.m (ns_init_paths): Don't mess with INFOPATH.
This commit is contained in:
Glenn Morris 2012-05-26 14:23:28 -07:00
parent 04188bb9ad
commit eb7afdaddc
5 changed files with 27 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,5 +1,9 @@
2012-05-26 Glenn Morris <rgm@gnu.org>
* paths.el (Info-default-directory-list):
* info.el (info-initialize): For self-contained NS builds, put the
included info/ directory at the front. (Bug#2791)
* paths.el (Info-default-directory-list): Make it a defcustom,
mainly so that we can use custom-initialize-delay.

14
lisp/info.el
View File

@ -618,7 +618,19 @@ in `Info-file-supports-index-cookies-list'."
(append (split-string (substring path 0 -1) sep)
(Info-default-dirs))
(split-string path sep))
(Info-default-dirs)))))))
(Info-default-dirs))))
;; For a self-contained (ie relocatable) NS build, AFAICS we
;; always want the included info directory to be at the head of
;; the search path, unless it's already in INFOPATH somewhere.
;; It's at the head of Info-default-directory-list,
;; but there's no way to get it at the head of Info-directory-list
;; except by doing it here.
(and path
(featurep 'ns)
(let ((dir (expand-file-name "../info" data-directory)))
(and (file-directory-p dir)
(not (member dir (split-string path ":" t)))
(push dir Info-directory-list)))))))
;;;###autoload
(defun info-other-window (&optional file-or-node)

7
lisp/paths.el
View File

@ -37,7 +37,12 @@
;; call custom-initialize-delay on it.
(defcustom Info-default-directory-list
(let* ((config-dir
(file-name-as-directory configure-info-directory))
(file-name-as-directory
;; Self-contained NS build with info/ in the app-bundle.
(or (and (featurep 'ns)
(let ((dir (expand-file-name "../info" data-directory)))
(if (file-directory-p dir) dir)))
configure-info-directory)))
(prefixes
;; Directory trees in which to look for info subdirectories
(prune-directory-list '("/usr/local/" "/usr/" "/opt/" "/")))

4
src/ChangeLog
View File

@ -1,3 +1,7 @@
2012-05-26 Glenn Morris <rgm@gnu.org>
* nsterm.m (ns_init_paths): Don't mess with INFOPATH. (Bug#2791)
2012-05-26 Eli Zaretskii <eliz@gnu.org>
Extend mouse support on W32 text-mode console.

10
src/nsterm.m
View File

@ -379,16 +379,6 @@ Updated by Christian Limpach (chris@nice.ch)
setenv ("EMACSDOC", [resourcePath UTF8String], 1);
}
}
if (!getenv ("INFOPATH"))
{
resourcePath = [resourceDir stringByAppendingPathComponent: @"info"];
if ([fileManager fileExistsAtPath: resourcePath isDirectory: &isDir])
if (isDir)
setenv ("INFOPATH", [[resourcePath stringByAppendingString: @":"]
UTF8String], 1);
/* Note, extra colon needed to cause merge w/later user additions. */
}
}