fixing strange usage of defstruct.

2014-03-19 15:02:29 +09:00 · 2014-03-19 15:02:29 +09:00 · b05f308d3c
parent 31ce0999a1
commit b05f308d3c
1 changed files with 3 additions and 1 deletions
--- a/elisp/ghc-comp.el
+++ b/elisp/ghc-comp.el
@ -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)))