From: Jim Blandy <jimb@redhat.com>
Date: Sun, 18 Jul 1993 06:20:47 +0000 (+0000)
Subject: * shell.el (shell-process-pushd): Fix syntax error in
X-Git-Tag: emacs-19.34~11720
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ac75ef20d218e61458b250211228f8737b17dfbd;p=emacs.git

* shell.el (shell-process-pushd): Fix syntax error in
	condition-case.

	* shell.el (shell-prompt-pattern): Don't match more than one line.
	Doc fix.
---

diff --git a/lisp/shell.el b/lisp/shell.el
index d404e46235d..ccd3bf9fd90 100644
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -144,12 +144,16 @@
 (require 'comint)
 
 ;;;###autoload
-(defvar shell-prompt-pattern "^[^#$%>]*[#$%>] *"
+(defvar shell-prompt-pattern "^[^#$%>\n]*[#$%>] *"
   "Regexp to match prompts in the inferior shell.
-Defaults to \"^[^#$%>]*[#$%>] *\", which works pretty well.
+Defaults to \"^[^#$%>\\n]*[#$%>] *\", which works pretty well.
 This variable is used to initialise `comint-prompt-regexp' in the 
 shell buffer.
 
+The pattern should probably not match more than one line.  If it does,
+shell-mode may become confused trying to distinguish prompt from input
+on lines which don't start with a prompt.
+
 This is a fine thing to set in your `.emacs' file.")
 
 (defvar shell-popd-regexp "popd"
@@ -414,7 +418,8 @@ Environment variables are expanded, see function `substitute-in-file-name'."
 				      (cons old (cdr shell-dirstack)))
 				(shell-dirstack-message))
 			      (message "Directory stack empty."))
-	(message "Couldn't cd."))
+	(error
+	 (message "Couldn't cd.")))
 
       (let ((num (shell-extract-num arg)))
 	(if num				; pushd +n