Mercurial > hg > xemacs-beta

comparison lisp/code-process.el @ 857:b5278486690c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-05-31 07:14:51 by michaels] 2002-05-30 Michael Sperber [Mr. Preprocessor] <sperber@informatik.uni-tuebingen.de> * code-process.el (call-process): Ensure that the argument to `symbol-value-in-buffer' is a buffer even if `buffer' is a string.
author michaels
date Fri, 31 May 2002 07:14:52 +0000
parents 2b6fa2618f76
children 0288e82c84b3
comparison
equal deleted inserted replaced
856:b27b70c1252a 857:b5278486690c
121 (or coding-system-for-read cs-r 121 (or coding-system-for-read cs-r
122 (let ((thebuf (if (consp buffer) (car buffer) buffer))) 122 (let ((thebuf (if (consp buffer) (car buffer) buffer)))
123 (and (or (bufferp thebuf) (stringp thebuf)) 123 (and (or (bufferp thebuf) (stringp thebuf))
124 (get-buffer thebuf) 124 (get-buffer thebuf)
125 (symbol-value-in-buffer 125 (symbol-value-in-buffer
126 'buffer-file-coding-system-for-read thebuf))) 126 'buffer-file-coding-system-for-read (get-buffer thebuf))))
127 (car default-process-coding-system) 127 (car default-process-coding-system)
128 'undecided)) 128 'undecided))
129 (coding-system-for-write 129 (coding-system-for-write
130 (or coding-system-for-write cs-w 130 (or coding-system-for-write cs-w
131 (and (consp infile) 131 (and (consp infile)