master 0add6a29c7 1/2: ; * lisp/ffap.el: Delete code commented out since 1997.

[Stefan Kangas]

branch: master
commit 0add6a29c789c3c3f03c7ae1e5420df57885f5c6
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    ; * lisp/ffap.el: Delete code commented out since 1997.
---
 lisp/ffap.el | 12 ------------
 1 file changed, 12 deletions(-)

diff --git a/lisp/ffap.el b/lisp/ffap.el
index 93c5c1faa9..a81d913014 100644
--- a/lisp/ffap.el
+++ b/lisp/ffap.el
@@ -640,18 +640,6 @@ Looks at `ffap-ftp-default-user', returns \"\" for 
\"localhost\"."
 
 
 ;;; File Name Handling:
-;;
-;; The upcoming ffap-alist actions need various utilities to prepare
-;; and search directories.  Too many features here.
-
-;; (defun ffap-last (l) (while (cdr l) (setq l (cdr l))) l)
-;; (defun ffap-splice (func inlist)
-;;  "Equivalent to (apply 'nconc (mapcar FUNC INLIST)), but less consing."
-;;  (let* ((head (cons 17 nil)) (last head))
-;;    (while inlist
-;;      (setcdr last (funcall func (car inlist)))
-;;      (setq last (ffap-last last) inlist (cdr inlist)))
-;;    (cdr head)))
 
 (defun ffap-list-env (env &optional empty)
   "Return a list of strings parsed from environment variable ENV.