procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

lisp/info.el: Fix bug#8258.

Browse source 
* info (info-initialize): Replace all uses of `:' with path-separator for
  compatibility with non-Unix systems.  Cache quoting of path-separator.
This commit is contained in:
Ralph Schleicher 2011-03-16 01:00:58 +01:00 • committed by Juanma Barranquero
parent 46dcfee46c
commit e6ce307c50
2 changed files with 11 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2011-03-15 Ralph Schleicher <rs@ralph-schleicher.de>
* info.el (info-initialize): Replace all uses of `:' with
path-separator for compatibility with non-Unix systems.
Cache quoting of path-separator. (Bug#8258)
2011-03-12 Juanma Barranquero <lekktu@gmail.com>
* avoid.el (mouse-avoidance-mode, mouse-avoidance-nudge-dist)

10
lisp/info.el
View file

@ -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