From a70dc410becded06617df35ec41231f06c0c069a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 24 May 1997 21:27:29 +0000 Subject: [PATCH] (Info-suffix-list): Accept -info as suffix; also accept a subdir with a file called `index'. --- lisp/info.el | 30 ++++++++++++++++++++---------- 1 file changed, 20 insertions(+), 10 deletions(-) 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. -- 2.39.5