; * lisp/ffap.el: Delete code commented out since 1997.

diff --git a/lisp/ffap.el b/lisp/ffap.el
index 93c5c1faa96a9c4ccd21f24baff5f0fa8717fe20..a81d9130148a2114ec04197f4176f0f9d2286d9d 100644 (file)
--- a/lisp/ffap.el
+++ b/lisp/ffap.el
@@ -640,18 +640,6 @@ Looks at `ffap-ftp-default-user', returns \"\" for \"localhost\"."
 
 \f
 ;;; 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.