From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 24 May 1997 21:27:29 +0000 (+0000)
Subject: (Info-suffix-list): Accept -info as suffix;
X-Git-Tag: emacs-20.1~2004
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a70dc410becded06617df35ec41231f06c0c069a;p=emacs.git

(Info-suffix-list): Accept -info as suffix;
also accept a subdir with a file called `index'.
---

diff --git a/lisp/info.el b/lisp/info.el
index d6a42819799..0ff0741c358 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -151,16 +151,26 @@ Marker points nowhere if file has no tag table.")
 	 (".z"       . "gunzip")
 	 (".inf"     . nil)
 	 (""         . nil))
-    '( (".info.Z"  . "uncompress")
-       (".info.Y"  . "unyabba")
-       (".info.gz" . "gunzip")
-       (".info.z"  . "gunzip")
-       (".info"    . nil)
-       (".Z"       . "uncompress")
-       (".Y"       . "unyabba")
-       (".gz"      . "gunzip")
-       (".z"       . "gunzip")
-       (""         . nil)))
+    '( (".info.Z".    "uncompress")
+       (".info.Y".    "unyabba")
+       (".info.gz".   "gunzip")
+       (".info.z".    "gunzip")
+       (".info".      nil)
+       ("-info.Z".   "uncompress")
+       ("-info.Y".   "unyabba")
+       ("-info.gz".  "gunzip")
+       ("-info.z".   "gunzip")
+       ("-info".     nil)
+       ("/index.Z".   "uncompress")
+       ("/index.Y".   "unyabba")
+       ("/index.gz".  "gunzip")
+       ("/index.z".   "gunzip")
+       ("/index".     nil)
+       (".Z".         "uncompress")
+       (".Y".         "unyabba")
+       (".gz".        "gunzip")
+       (".z".         "gunzip")
+       ("".           nil)))
   "List of file name suffixes and associated decoding commands.
 Each entry should be (SUFFIX . STRING); the file is given to
 the command as standard input.  If STRING is nil, no decoding is done.