* lisp/startup.el (command-line): Remove pointless attempt to avoid statting fs

; which expand-file-name doesn't even do.

* lisp/startup.el (command-line): Remove pointless attempt to avoid statting fs
; which expand-file-name doesn't even do.
b77b9254 · Glenn Morris · b6a74742 · b77b9254 · b77b9254
Commit b77b9254 authored Oct 30, 2014 by Glenn Morris
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 5 deletions

lisp/ChangeLog lisp/ChangeLog +5 -0

lisp/startup.el lisp/startup.el +0 -5

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+2014-10-30  Glenn Morris  <rgm@gnu.org>
+
+	* startup.el (command-line): Remove pointless attempt to avoid
+	statting the file-system (which expand-file-name doesn't do).
+
 2014-10-30  Alan Mackenzie  <acm@muc.de>
  
 	Add "enum classs" support to C++ mode.

--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1286,11 +1286,6 @@ the `--debug-init' option to view a complete error backtrace."
  (let (warned)
    (dolist (dir load-path)
      (and (not warned)
-	   (string-match-p
-	    (format "/%s/?\\'"
-		    (regexp-quote
-		     (file-name-nondirectory
-		      (directory-file-name user-emacs-directory)))) dir)
 	   (string-equal (file-name-as-directory (expand-file-name dir))
 			 (expand-file-name user-emacs-directory))
 	   (setq warned t)