Mercurial > hg > xemacs-beta

comparison lisp/code-process.el @ 280:7df0dd720c89 r21-0b38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b38
author cvs
date Mon, 13 Aug 2007 10:32:22 +0200
parents ca9a9ec9c1c1
children 972bbb6d6ca2
comparison
equal deleted inserted replaced
279:c20b2fb5bb0a 280:7df0dd720c89
75 ))) 75 )))
76 (if (functionp ret) 76 (if (functionp ret)
77 (setq ret (funcall ret 'call-process program)) 77 (setq ret (funcall ret 'call-process program))
78 ) 78 )
79 (cond ((consp ret) (car ret)) 79 (cond ((consp ret) (car ret))
80 ((not ret) 'undecided)
80 ((find-coding-system ret) ret) 81 ((find-coding-system ret) ret)
81 ) 82 )
82 )))) 83 ))))
83 (apply 'call-process-internal program infile buffer displayp args) 84 (apply 'call-process-internal program infile buffer displayp args)
84 )) 85 ))