obsoleting a function.

This commit is contained in:
Kazu Yamamoto 2014-04-21 17:37:41 +09:00
parent 36e32ab1b2
commit 067d3b7535

View File

@ -73,17 +73,6 @@
(read (current-buffer))
(error ()))))
(defun ghc-read-lisp-list (func n)
(with-temp-buffer
(funcall func)
(goto-char (point-min))
(condition-case nil
(let ((m (set-marker (make-marker) 1 (current-buffer)))
ret)
(dotimes (i n (nreverse ret))
(ghc-add ret (read m))))
(error ()))))
(defun ghc-read-lisp-list-this-buffer (n)
(save-excursion
(goto-char (point-min))