This commit is contained in:
Kazu Yamamoto 2014-03-25 15:59:53 +09:00
parent a6f6dbffe4
commit e9b3b44631

View File

@ -58,6 +58,8 @@
(let ((case-fold-search nil)) (let ((case-fold-search nil))
(goto-char (point-min)) (goto-char (point-min))
(while (not (eolp)) (while (not (eolp))
;; qualified modlues are not merged at this moment.
;; fixme if it is improper.
(if (looking-at "^import *\\([A-Z][^ \n]+\\) *(\\(.*\\))$") (if (looking-at "^import *\\([A-Z][^ \n]+\\) *(\\(.*\\))$")
(let ((mod (match-string-no-properties 1)) (let ((mod (match-string-no-properties 1))
(syms (match-string-no-properties 2)) (syms (match-string-no-properties 2))