From 0add6a29c789c3c3f03c7ae1e5420df57885f5c6 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Thu, 28 Jul 2022 00:17:53 +0200 Subject: [PATCH] ; * 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 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. -- 2.39.5