BUFFER should be the buffer that the output originally came from."
(if (stringp method)
(let ((error-buff (get-buffer-create "*Format Errors*"))
- (coding-system-for-write 'no-conversion)
+ (coding-system-for-read 'no-conversion)
format-alist)
(with-current-buffer error-buff
(widen)
a Lisp function. Decoding is done for the given BUFFER."
(if (stringp method)
(let ((error-buff (get-buffer-create "*Format Errors*"))
- (coding-system-for-read 'no-conversion) ; like jka-compr
+ (coding-system-for-write 'no-conversion)
format-alist)
(with-current-buffer error-buff
(widen)
(if end (narrow-to-region (point-min) end))
(while alist
(let ((from (if reverse (cdr (car alist)) (car (car alist))))
- (to (if reverse (car (cdr alist)) (cdr (car alist)))))
+ (to (if reverse (car (car alist)) (cdr (car alist)))))
(goto-char beg)
(while (search-forward from nil t)
(goto-char (match-beginning 0))