Преглед изворни кода

etangle: check for file readability

So now ignore if there are missing/unreable files in USEROPTS.
master
Mitch Tishmack пре 8 година
родитељ
комит
7bcf1bf5d2
1 измењених фајлова са 2 додато и 1 уклоњено
  1. +2
    -1
      etangle

+ 2
- 1
etangle Прегледај датотеку

@@ -10,7 +10,8 @@
(if (getenv "USEROPTS") (if (getenv "USEROPTS")
(dolist (fnam (split-string (getenv "USEROPTS") ":")) (dolist (fnam (split-string (getenv "USEROPTS") ":"))
(if (not (member fnam '("" nil))) (if (not (member fnam '("" nil)))
(load-file (concat "./options/" fnam ".el"))
(if (file-readable-p (concat "./options/" fnam ".el"))
(load-file (concat "./options/" fnam ".el")))
)) ))
) )




Loading…
Откажи
Сачувај