# HG changeset patch
# User Lute Kamstra <lute@gnu.org>
# Date 1054814242 0
# Node ID 8eb767cf729581fe3489a68dab2e4ea6ae8db73d
# Parent  61e9f97f476ad1d897605c1d36538e84b52536d8
(shell-mode): Put `shell-filter-ctrl-a-ctrl-b' on
`comint-output-filter-functions' when bash is used as the inferior
shell.
(shell-filter-ctrl-a-ctrl-b): New function.

diff -r 61e9f97f476a -r 8eb767cf7295 lisp/shell.el
--- a/lisp/shell.el	Thu Jun 05 11:55:20 2003 +0000
+++ b/lisp/shell.el	Thu Jun 05 11:57:22 2003 +0000
@@ -454,9 +454,31 @@
       (setq shell-dirstack-query
 	    (cond ((string-equal shell "sh") "pwd")
 		  ((string-equal shell "ksh") "echo $PWD ~-")
-		  (t "dirs"))))
+		  (t "dirs")))
+      ;; Bypass a bug in certain versions of bash.
+      (when (string-equal shell "bash")
+        (add-hook 'comint-output-filter-functions
+                  'shell-filter-ctrl-a-ctrl-b nil t)))
     (comint-read-input-ring t)))
 
+(defun shell-filter-ctrl-a-ctrl-b (string)
+  "Remove `^A' and `^B' characters from comint output.
+
+Bash uses these characters as internal quoting characters in its
+prompt.  Due to a bug in some bash versions (including 2.03,
+2.04, and 2.05b), they may erroneously show up when bash is
+started with the `--noediting' option and Select Graphic
+Rendition (SGR) control sequences (formerly known as ANSI escape
+sequences) are used to color the prompt.
+
+This function can be put on `comint-output-filter-functions'.
+The argument STRING is ignored."
+  (let ((pmark (process-mark (get-buffer-process (current-buffer)))))
+    (save-excursion
+      (goto-char (or comint-last-output-start (point-min)))
+      (while (re-search-forward "[\C-a\C-b]" pmark t)
+        (replace-match "")))))
+
 (defun shell-write-history-on-exit (process event)
   "Called when the shell process is stopped.