Mercurial > hg > xemacs-beta

comparison lisp/info.el @ 1870:375ec21c9374

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-01-21 09:54:25 by stephent] npak fix Info Windows subprocess <87hdypzl0g.fsf_-_@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Wed, 21 Jan 2004 09:54:27 +0000
parents 74cb069b8417
children ab71ad6ff3dd
comparison
equal deleted inserted replaced
1869:11812ec0334c 1870:375ec21c9374
1526 (if (stringp (cdr (car suff))) 1526 (if (stringp (cdr (car suff)))
1527 (let ((command (if (string-match "%s" (cdr (car suff))) 1527 (let ((command (if (string-match "%s" (cdr (car suff)))
1528 (format (cdr (car suff)) file) 1528 (format (cdr (car suff)) file)
1529 (concat (cdr (car suff)) " < " file)))) 1529 (concat (cdr (car suff)) " < " file))))
1530 (message "%s..." command) 1530 (message "%s..." command)
1531 (call-process shell-file-name nil t nil "-c" command) 1531 (call-process shell-file-name nil t nil shell-command-switch command)
1532 (message "") 1532 (message "")
1533 (when visit 1533 (when visit
1534 (setq buffer-file-name file) 1534 (setq buffer-file-name file)
1535 (set-buffer-modified-p nil) 1535 (set-buffer-modified-p nil)
1536 (clear-visited-file-modtime))) 1536 (clear-visited-file-modtime)))