Mercurial > hg > xemacs-beta
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 |