# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1157239821 0
# Node ID 82f0fddf878e6d0ce87dea90fa5e43f3ece60690
# Parent  70dd4b1e1dafd117302091413ac25716825a1977
(shell-filter-ctrl-a-ctrl-b): Check if `comint-last-output-start' is
a marker by using `markerp' and check if it has a position by using
`marker-position', and use this position for `goto-char'.

diff -r 70dd4b1e1daf -r 82f0fddf878e lisp/shell.el
--- a/lisp/shell.el	Sat Sep 02 23:29:18 2006 +0000
+++ b/lisp/shell.el	Sat Sep 02 23:30:21 2006 +0000
@@ -483,7 +483,9 @@
 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)))
+      (goto-char (or (and (markerp comint-last-output-start)
+			  (marker-position comint-last-output-start))
+		     (point-min)))
       (while (re-search-forward "[\C-a\C-b]" pmark t)
         (replace-match "")))))