Mercurial > hg > xemacs-beta

comparison lisp/code-process.el @ 410:de805c49cfc1 r21-2-35

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-35
author cvs
date Mon, 13 Aug 2007 11:19:21 +0200
parents 74fd4e045ea6
children 697ef44129c6
comparison
equal deleted inserted replaced
409:301b9ebbdf3b 410:de805c49cfc1
123 (if (functionp ret) 123 (if (functionp ret)
124 (setq ret (funcall ret 'call-process-region program))) 124 (setq ret (funcall ret 'call-process-region program)))
125 (cond ((consp ret) 125 (cond ((consp ret)
126 (setq cs-r (car ret) 126 (setq cs-r (car ret)
127 cs-w (cdr ret))) 127 cs-w (cdr ret)))
128 ((null ret)
129 (setq cs-r buffer-file-coding-system
130 cs-w buffer-file-coding-system))
128 ((find-coding-system ret) 131 ((find-coding-system ret)
129 (setq cs-r ret 132 (setq cs-r ret
130 cs-w ret)))) 133 cs-w ret))))
131 (let ((coding-system-for-read 134 (let ((coding-system-for-read
132 (or coding-system-for-read cs-r)) 135 (or coding-system-for-read cs-r))