# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 864509249 0
# Node ID 2465a6a42a6056d00f4ff77f225eff76f85a4750
# Parent  0c90e4bd36616f0aaa7c8ff1ec278e757c23ca63
(Info-suffix-list): Accept -info as suffix;
also accept a subdir with a file called `index'.

diff -r 0c90e4bd3661 -r 2465a6a42a60 lisp/info.el
--- a/lisp/info.el	Sat May 24 21:18:25 1997 +0000
+++ b/lisp/info.el	Sat May 24 21:27:29 1997 +0000
@@ -151,16 +151,26 @@
 	 (".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.