[Emacs-diffs] Changes to emacs/lisp/shell.el,v

[Juri Linkov]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Juri Linkov <jurta>     06/09/02 23:30:21

Index: shell.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/shell.el,v
retrieving revision 1.139
retrieving revision 1.140
diff -u -b -r1.139 -r1.140
--- shell.el    7 Jul 2006 14:34:02 -0000       1.139
+++ shell.el    2 Sep 2006 23:30:21 -0000       1.140
@@ -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 "")))))