From: Stefan Kangas <stefankangas@gmail.com>
Date: Wed, 27 Jul 2022 22:17:53 +0000 (+0200)
Subject: ; * lisp/ffap.el: Delete code commented out since 1997.
X-Git-Tag: emacs-29.0.90~1447^2~713
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0add6a29c789c3c3f03c7ae1e5420df57885f5c6;p=emacs.git

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

diff --git a/lisp/ffap.el b/lisp/ffap.el
index 93c5c1faa96..a81d9130148 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.