Mercurial > hg > xemacs-beta

comparison lisp/code-process.el @ 371:cc15677e0335 r21-2b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b1
author cvs
date Mon, 13 Aug 2007 11:03:08 +0200
parents 972bbb6d6ca2
children 8626e4521993
comparison
equal deleted inserted replaced
370:bd866891f083 371:cc15677e0335
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))
141 ((find-coding-system ret) 138 ((find-coding-system ret)
142 (setq cs-r ret 139 (setq cs-r ret
143 cs-w ret)))) 140 cs-w ret))))
144 (let ((coding-system-for-read 141 (let ((coding-system-for-read
145 (or coding-system-for-read cs-r)) 142 (or coding-system-for-read cs-r))