Subject: bug#8258: closed (Re: bug#8258: INFOPATH bug on Windows)

From: [email-masked] (GNU bug Tracking System)
Date: Wed, 16 Mar 2011 00:05:02 +0000

Your bug report

#8258: INFOPATH bug on Windows

which was filed against the emacs package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to [email-masked].

-- 
8258: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=8258
GNU Bug Tracking System
Contact [email-masked] with problems

Subject: Re: bug#8258: INFOPATH bug on Windows
From: Juanma Barranquero <[email-masked]>
To: Ralph Schleicher <[email-masked]>
Cc: [email-masked]
Date: Wed, 16 Mar 2011 01:04:05 +0100
List-Id: <debbugs-submit.debbugs.gnu.org>

> on Windows, Emacs 23.3 fails to parse INFOPATH due to a hard-coded
> colon as path separator.

In fact, the current code parses INFOPATH (quite by accident), but
fails to take into account the case where INFOPATH should be appended
to Info-default-directory-list.

So, yours is a valid fix and I've committed it to the emacs-23 branch.

Thanks,

    Juanma

Subject: INFOPATH bug on Windows
From: Ralph Schleicher <[email-masked]>
To: [email-masked]
Date: Tue, 15 Mar 2011 20:44:40 +0100
List-Id: <debbugs-submit.debbugs.gnu.org>

Hi,

on Windows, Emacs 23.3 fails to parse INFOPATH due to a hard-coded
colon as path separator.  Below is a patch together with a change
log entry.

2011-03-11  Ralph Schleicher  <[email-masked]>

	* info.el (info-initialize): Replace all uses of `:' with
	path-separator for compatibility with non-Unix systems.
	Cache quoting of path-separator.

--- emacs-23.3/lisp/info.el.orig	2011-01-08 12:45:14 +0100
+++ emacs-23.3/lisp/info.el	2011-03-11 11:45:14 +0100
@@ -588,15 +588,15 @@
 (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 (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

-- 
Ralph