[MLton-commit] r6707

[Vesa Karvonen]

Check whether the files are readable before trying to parse them.

----------------------------------------------------------------------

U   mlton/trunk/ide/emacs/esml-mlb-mode.el

----------------------------------------------------------------------

Modified: mlton/trunk/ide/emacs/esml-mlb-mode.el
===================================================================
--- mlton/trunk/ide/emacs/esml-mlb-mode.el	2008-08-19 18:29:00 UTC (rev 6706)
+++ mlton/trunk/ide/emacs/esml-mlb-mode.el	2008-08-19 18:29:58 UTC (rev 6707)
@@ -215,10 +215,11 @@
                       (current-buffer))
                      (buffer-string))))
                 (loop for file in esml-mlb-mlb-path-map-files
-                  append (esml-mlb-parse-path-variables-from-string
-                          (with-temp-buffer
-                            (insert-file-contents file)
-                            (buffer-string)))))
+                  append (when (file-readable-p file)
+                           (esml-mlb-parse-path-variables-from-string
+                            (with-temp-buffer
+                              (insert-file-contents file)
+                              (buffer-string))))))
                (function
                 (lambda (a b)
                   (string-lessp (car a) (car b)))))