comparison lisp/code-process.el @ 274:ca9a9ec9c1c1 r21-0b35

Import from CVS: tag r21-0b35
author cvs
date Mon, 13 Aug 2007 10:29:42 +0200
parents 727739f917cb
children 7df0dd720c89
comparison
equal deleted inserted replaced
273:411aac7253ef 274:ca9a9ec9c1c1
182 cs-w (cdr ret))) 182 cs-w (cdr ret)))
183 ((find-coding-system ret) 183 ((find-coding-system ret)
184 (setq cs-r ret 184 (setq cs-r ret
185 cs-w ret)))) 185 cs-w ret))))
186 (let ((coding-system-for-read 186 (let ((coding-system-for-read
187 (or coding-system-for-read cs-r)) 187 (or coding-system-for-read cs-r 'undecided))
188 (coding-system-for-write 188 (coding-system-for-write
189 (or coding-system-for-write cs-w))) 189 (or coding-system-for-write cs-w)))
190 (apply 'start-process-internal name buffer program program-args) 190 (apply 'start-process-internal name buffer program program-args)
191 ))) 191 )))
192 192