Mercurial > hg > xemacs-beta

comparison lisp/packages/man.el @ 149:538048ae2ab8 r20-3b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b1
author cvs
date Mon, 13 Aug 2007 09:36:16 +0200
parents 318232e2a3f0
children 0132846995bd
comparison
equal deleted inserted replaced
148:f659db2a1f73 149:538048ae2ab8
241 (if (string-match "\\`\\([^ \t/]*/\\)+" args-string) 241 (if (string-match "\\`\\([^ \t/]*/\\)+" args-string)
242 (setq args-string 242 (setq args-string
243 (substring args-string (match-end 0)))) 243 (substring args-string (match-end 0))))
244 244
245 (message "%s (running...)" args-string) 245 (message "%s (running...)" args-string)
246 (apply 'call-process Manual-program nil t nil args) 246 (apply 'call-process Manual-program nil '(t nil) nil args)
247 247
248 (if (< (buffer-size) 200) 248 (if (< (buffer-size) 200)
249 (progn 249 (progn
250 (goto-char (point-min)) 250 (goto-char (point-min))
251 (error (buffer-substring (point) 251 (error (buffer-substring (point)