diff options
| author | Ralph Schleicher <rs@ralph-schleicher.de> | 2011-03-16 01:00:58 +0100 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2011-03-16 01:00:58 +0100 |
| commit | e6ce307c50e6413f1ba87a315e0f8beb1a8ddac8 (patch) | |
| tree | ec3973083064afaab170abd50767506a1fe21d2d /lisp/info.el | |
| parent | 46dcfee46cb241a0f8e34da679ca8b42e8ee8d46 (diff) | |
| download | emacs-e6ce307c50e6413f1ba87a315e0f8beb1a8ddac8.tar.gz | |
lisp/info.el: Fix bug#8258.
* info (info-initialize): Replace all uses of `:' with path-separator for
compatibility with non-Unix systems. Cache quoting of path-separator.
Diffstat (limited to 'lisp/info.el')
| -rw-r--r-- | lisp/info.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/info.el b/lisp/info.el index c6e20f827c1..8fd0fc70096 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -588,15 +588,15 @@ in `Info-file-supports-index-cookies-list'." (defun info-initialize () "Initialize `Info-directory-list', if that hasn't been done yet." (unless Info-directory-list - (let ((path (getenv "INFOPATH"))) + (let ((path (getenv "INFOPATH")) + (sep (regexp-quote path-separator))) (setq Info-directory-list (prune-directory-list (if path - (if (string-match ":\\'" path) - (append (split-string (substring path 0 -1) - (regexp-quote path-separator)) + (if (string-match-p (concat sep "\\'") path) + (append (split-string (substring path 0 -1) sep) (Info-default-dirs)) - (split-string path (regexp-quote path-separator))) + (split-string path sep)) (Info-default-dirs))))))) ;;;###autoload |