Mercurial > emacs

changeset 34503:00d3d092888c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Info-suffix-list): Change format for a command that requires arguments. (info-insert-file-contents): Adjusted for the above change.
author Kenichi Handa <handa@m17n.org>
date Wed, 13 Dec 2000 00:14:52 +0000
parents 1e95dcc56171
children ccae7889416d
files lisp/info.el
diffstat 1 files changed, 15 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/info.el	Wed Dec 13 00:14:26 2000 +0000
+++ b/lisp/info.el	Wed Dec 13 00:14:52 2000 +0000
@@ -174,7 +174,7 @@
   (if (eq system-type 'ms-dos)
       '( (".gz"      . "gunzip")
 	 (".z"       . "gunzip")
-	 (".bz2"     . "bzip2 -dc")
+	 (".bz2"     . ("bzip2" "-dc"))
 	 (".inz"     . "gunzip")
 	 (".igz"     . "gunzip")
 	 (".info.Z"  . "gunzip")
@@ -192,29 +192,34 @@
        (".info.Y".    "unyabba")
        (".info.gz".   "gunzip")
        (".info.z".    "gunzip")
-       (".info.bz2" . "bzip2 -dc")
+       (".info.bz2" . ("bzip2" "-dc"))
        (".info".      nil)
        ("-info.Z".   "uncompress")
        ("-info.Y".   "unyabba")
        ("-info.gz".  "gunzip")
-       ("-info.bz2" . "bzip2 -dc")
+       ("-info.bz2" . ("bzip2" "-dc"))
        ("-info.z".   "gunzip")
        ("-info".     nil)
        ("/index.Z".   "uncompress")
        ("/index.Y".   "unyabba")
        ("/index.gz".  "gunzip")
        ("/index.z".   "gunzip")
-       ("/index.bz2". "bzip2 -dc")
+       ("/index.bz2". ("bzip2" "-dc"))
        ("/index".     nil)
        (".Z".         "uncompress")
        (".Y".         "unyabba")
        (".gz".        "gunzip")
        (".z".         "gunzip")
-       (".bz2" .      "bzip2 -dc")
+       (".bz2" .      ("bzip2" "-dc"))
        ("".           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.
+the command as standard input.
+
+STRING may be a list of strings.  In that case, the first element is
+the command name, and the rest are arguments to that command.
+
+If STRING is nil, no decoding is done.
 Because the SUFFIXes are tried in order, the empty string should
 be last in the list.")
 
@@ -284,7 +289,10 @@
 		(coding-system-for-write 'no-conversion)
 		(default-directory (or (file-name-directory fullname)
 				       default-directory)))
-	    (call-process-region (point-min) (point-max) decoder t t)))
+	    (or (consp decoder)
+		(setq decoder (list decoder)))
+	    (apply 'call-process-region (point-min) (point-max)
+		   (car decoder) t t nil (cdr decoder))))
       (insert-file-contents fullname visit))))
 
 (defun info-initialize ()