From 067d3b7535080b2d846ad1f8a3ab94673aef6fcb Mon Sep 17 00:00:00 2001 From: Kazu Yamamoto Date: Mon, 21 Apr 2014 17:37:41 +0900 Subject: [PATCH] obsoleting a function. --- elisp/ghc-func.el | 11 ----------- 1 file changed, 11 deletions(-) diff --git a/elisp/ghc-func.el b/elisp/ghc-func.el index 852d5a0..541ce71 100644 --- a/elisp/ghc-func.el +++ b/elisp/ghc-func.el @@ -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))