fixing strange usage of defstruct.

This commit is contained in:
Kazu Yamamoto 2014-03-19 15:02:29 +09:00
parent 31ce0999a1
commit b05f308d3c

View File

@ -273,7 +273,9 @@ unloaded modules are loaded")
(ghc-defstruct buffer name file)
(defun ghc-buffer-name-file (buf)
(ghc-make-buffer (buffer-name buf) (buffer-file-name buf)))
(ghc-make-buffer
:name (buffer-name buf)
:file (buffer-file-name buf)))
(defun ghc-gather-import-modules-all-buffers ()
(let ((bufs (mapcar 'ghc-buffer-name-file (buffer-list)))