# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 1188394482 0
# Node ID 63012e03e1d4b2c10bb3ae020bab01daccbf9f13
# Parent  c9fcdc0c370494d6dc6b1342b0a17bf4c105da11
(shell): Return correct value from interactive spec.

diff -r c9fcdc0c3704 -r 63012e03e1d4 lisp/shell.el
--- a/lisp/shell.el	Wed Aug 29 13:25:36 2007 +0000
+++ b/lisp/shell.el	Wed Aug 29 13:34:42 2007 +0000
@@ -542,15 +542,16 @@
   (interactive
    (list
     (and current-prefix-arg
-	 (read-buffer "Shell buffer: "
-		      (generate-new-buffer-name "*shell*"))
-	 (file-remote-p default-directory)
-	 ;; It must be possible to declare a local default-directory.
-	 (setq default-directory
-	       (expand-file-name
-		(read-file-name
-		 "Default directory: " default-directory default-directory
-		 t nil 'file-directory-p))))))
+	 (prog1
+	     (read-buffer "Shell buffer: "
+			  (generate-new-buffer-name "*shell*"))
+	   (if (file-remote-p default-directory)
+	       ;; It must be possible to declare a local default-directory.
+	       (setq default-directory
+		     (expand-file-name
+		      (read-file-name
+		       "Default directory: " default-directory default-directory
+		       t nil 'file-directory-p))))))))
   (setq buffer (get-buffer-create (or buffer "*shell*")))
   ;; Pop to buffer, so that the buffer's window will be correctly set
   ;; when we call comint (so that comint sets the COLUMNS env var properly).