Re: ^M chars in *Async Command Output*

[Andreas Politz <politza@fh-trier.de>]

Sebastian Tennant wrote:
> Quoth Sebastian Tennant <sebyte@smolny.plus.com>:
>> A function; (comint-carriage-motion), and a variable;
>> comint-inhibit-carriage-motion, exist precisely for this purpose.
>>
>> How best to apply them to buffer *Async Command Output* is something I'm
>> still working on.
> 
> And it turns out neither of these are any help!
> 
> The best (shortest) solution I can find is this:
> 
>  (add-hook 'shell-mode-hook
>            (lambda ()
>              (when (equal (buffer-name (current-buffer)) "*Async Shell Command*")
>                (set-process-filter proc 'comint-output-filter))))
> 
> It's ugly, (proc is a local variable!), but short of patching
> shell-command it does the trick for now.
> 
> Sebastian

It's better than what I first came up with.
Anyway, the local variable is not nessecary.

(defun shell-command-filter-hook nil
   "Filter all shell command output via `comint-output-filter'."
   (let ((proc (get-buffer-process "*Async Shell Command*")))
     (when proc
       (set-process-filter proc 'comint-output-filter))))

-ap