Mercurial > hg > xemacs-beta

comparison lisp/code-process.el @ 363:972bbb6d6ca2 r21-1-11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-11
author cvs
date Mon, 13 Aug 2007 10:59:28 +0200
parents 7df0dd720c89
children cc15677e0335
comparison
equal deleted inserted replaced
362:1e474c183006 363:972bbb6d6ca2
133 (if (functionp ret) 133 (if (functionp ret)
134 (setq ret (funcall ret 'call-process-region program))) 134 (setq ret (funcall ret 'call-process-region program)))
135 (cond ((consp ret) 135 (cond ((consp ret)
136 (setq cs-r (car ret) 136 (setq cs-r (car ret)
137 cs-w (cdr ret))) 137 cs-w (cdr ret)))
138 ((null ret)
139 (setq cs-r buffer-file-coding-system
140 cs-w buffer-file-coding-system))
138 ((find-coding-system ret) 141 ((find-coding-system ret)
139 (setq cs-r ret 142 (setq cs-r ret
140 cs-w ret)))) 143 cs-w ret))))
141 (let ((coding-system-for-read 144 (let ((coding-system-for-read
142 (or coding-system-for-read cs-r)) 145 (or coding-system-for-read cs-r))