From: Glenn Morris <rgm@gnu.org>
Date: Sat, 13 Jun 2015 23:41:55 +0000 (-0700)
Subject: * lisp/startup.el (command-line-1): Inform if skipping relative
X-Git-Tag: emacs-25.0.90~1773
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e5ab4d92ec404531b5fa9d8fcbce5979a46b220a;p=emacs.git

* lisp/startup.el (command-line-1): Inform if skipping relative

file names due to deleted PWD.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index b389648f678..ab5a3a4bfa5 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -2193,16 +2193,13 @@ A fancy display is used on graphic displays, normal otherwise."
                ;; to zero when `process-file-arg' returns.
                (process-file-arg
                 (lambda (name)
-		  ;; If a relative filename was specified and
-		  ;; command-line-default-directory is nil,
-		  ;; silently drop that argument.
 		  ;; This can only happen if PWD is deleted.
-		  ;; The warning about setting default-directory will
-		  ;; clue you in.
-		  (when (and (or dir (file-name-absolute-p name))
+		  (if (not (or dir (file-name-absolute-p name)))
+		      (message "Ignoring relative file name (%s) due to \
+nil default-directory" name)
 		    (let* ((file (expand-file-name
-                                (command-line-normalize-file-name name)
-                                dir))
+				  (command-line-normalize-file-name name)
+				  dir))
 			   (buf (find-file-noselect file)))
 		      (setq displayable-buffers (cons buf displayable-buffers))
 		      (with-current-buffer buf
@@ -2212,7 +2209,7 @@ A fancy display is used on graphic displays, normal otherwise."
 			(setq line 0)
 			(unless (< column 1)
 			  (move-to-column (1- column)))
-			(setq column 0))))))))
+			(setq column 0)))))))
 
           ;; Add the long X options to longopts.
           (dolist (tem command-line-x-option-alist)