Fix .emacs and .emacs.d/init file recursion problem for NaCl

* files.el (file-truename): Add NaCl to the exception list ms-dos uses.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 694b34691de369ddb5a69a9f0923c7b4409af3cf..7fa39b467275b91b40af4569755d6eaf3240c2b6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2015-04-05  Pete Williamson  <petewil@chromium.org>  (tiny-change)
+
+       Fix .emacs and .emacs.d/init file recursion problem for NaCl
+       * files.el (file-truename): Add NaCl to the exception list ms-dos uses.
+
 2015-04-04  Alan Mackenzie  <acm@muc.de>
 
        * progmodes/cc-mode.el (c-font-lock-init): Revert 2015-02-01 change

diff --git a/lisp/files.el b/lisp/files.el
index 42b00accbd8403c3d13c42cab4a6549b9abcd55f..0fdf0048ac45553082cf8051d8813f2bbfb4d3c6 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1192,7 +1192,7 @@ containing it, until no links are left at any level.
            (setq dirfile (directory-file-name dir))
            ;; If these are equal, we have the (or a) root directory.
            (or (string= dir dirfile)
-               (and (memq system-type '(windows-nt ms-dos cygwin))
+               (and (memq system-type '(windows-nt ms-dos cygwin nacl))
                     (eq (compare-strings dir 0 nil dirfile 0 nil t) t))
                ;; If this is the same dir we last got the truename for,
                ;; save time--don't recalculate.