path: root/lang/erlang/files/patch-aq

--- lib/emacs/erlang.el.orig	Sun Mar 31 11:42:59 2002
+++ lib/emacs/erlang.el	Sun Mar 31 11:42:49 2002
@@ -5242,7 +5242,7 @@
       (let ((msg nil))
 	(while (save-excursion
 		 (goto-char (process-mark inferior-erlang-process))
-		 (beginning-of-line)
+		 (forward-line 0)
 		 (not (looking-at comint-prompt-regexp)))
 	  (if msg
 	      ()