obsoleting a function.
This commit is contained in:
parent
36e32ab1b2
commit
067d3b7535
@ -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))
|
||||
|
Loading…
Reference in New Issue
Block a user