This commit is contained in:
Kazu Yamamoto 2014-04-19 20:07:12 +09:00
parent 47f95149e3
commit f9a8361bca
2 changed files with 2 additions and 1 deletions

View File

@ -65,6 +65,7 @@
(funcall func)
(ghc-read-lisp-this-buffer)))
;; OK/NG are ignored.
(defun ghc-read-lisp-this-buffer ()
(save-excursion
(goto-char (point-min))

View File

@ -91,6 +91,6 @@
(defun ghc-ins-mod-callback ()
(let ((mods (ghc-read-lisp-this-buffer)))
(setq ghc-ins-mod-rendezvous t)
(setq ghc-ins-mod-results mods))) ;; fixme -- OK
(setq ghc-ins-mod-results mods)))
(provide 'ghc-ins-mod)