Re: ^M chars in *Async Command Output*

[Sebastian Tennant <sebyte@smolny.plus.com>]

Quoth Andreas Politz <politza@fh-trier.de>:
> [...] 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))))

The problem only afflicts asynchronous shell commands so better still
would be test this condition in the hook itself:

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

People can then simply do:

 (add-hook 'shell-mode-hook 'async-shell-command-filter-hook)


I filed a bug report against simple.el on this matter (a little
prematurely no doubt) but if we can get this hook added it will have
definitely been worthwhile.

Thanks for your help Andreas.

Sebastian
-- 
Emacs' AlsaPlayer - Music Without Jolts
Lightweight, full-featured and mindful of your idyllic happiness.
http://home.gna.org/eap