comment.
This commit is contained in:
parent
47f95149e3
commit
f9a8361bca
@ -65,6 +65,7 @@
|
|||||||
(funcall func)
|
(funcall func)
|
||||||
(ghc-read-lisp-this-buffer)))
|
(ghc-read-lisp-this-buffer)))
|
||||||
|
|
||||||
|
;; OK/NG are ignored.
|
||||||
(defun ghc-read-lisp-this-buffer ()
|
(defun ghc-read-lisp-this-buffer ()
|
||||||
(save-excursion
|
(save-excursion
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
|
@ -91,6 +91,6 @@
|
|||||||
(defun ghc-ins-mod-callback ()
|
(defun ghc-ins-mod-callback ()
|
||||||
(let ((mods (ghc-read-lisp-this-buffer)))
|
(let ((mods (ghc-read-lisp-this-buffer)))
|
||||||
(setq ghc-ins-mod-rendezvous t)
|
(setq ghc-ins-mod-rendezvous t)
|
||||||
(setq ghc-ins-mod-results mods))) ;; fixme -- OK
|
(setq ghc-ins-mod-results mods)))
|
||||||
|
|
||||||
(provide 'ghc-ins-mod)
|
(provide 'ghc-ins-mod)
|
||||||
|
Loading…
Reference in New Issue
Block a user