diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2022-07-28 00:17:53 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2022-07-28 00:17:53 +0200 |
| commit | 0add6a29c789c3c3f03c7ae1e5420df57885f5c6 (patch) | |
| tree | 159db3c112a779be9fec54550e8c2d4b13c55016 /lisp/ffap.el | |
| parent | fcaad9905360264140d451dac5085dd4552a1e8f (diff) | |
| download | emacs-0add6a29c789c3c3f03c7ae1e5420df57885f5c6.tar.gz | |
; * lisp/ffap.el: Delete code commented out since 1997.
Diffstat (limited to 'lisp/ffap.el')
| -rw-r--r-- | lisp/ffap.el | 12 |
1 files changed, 0 insertions, 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. |