From: Stefan Kangas <stefankangas@gmail.com>
Date: Wed, 27 Jul 2022 22:25:33 +0000 (+0200)
Subject: Drop support for obsolete "Lisp Code Directory" from ffap
X-Git-Tag: emacs-29.0.90~1447^2~712
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9ad5421a62ab2780f1116bc4bbf88b32d4472d64;p=emacs.git

Drop support for obsolete "Lisp Code Directory" from ffap

Ref: https://flex.phys.tohoku.ac.jp/texi/faq/faq_146.html
Note also that the host "archive.cis.ohio-state.edu" is unknown.
* lisp/ffap.el (ffap-alist): Drop support for obsolete "Lisp Code
Directory".
(ffap-lcd): Make obsolete.
---

diff --git a/lisp/ffap.el b/lisp/ffap.el
index a81d9130148..d490cd434aa 100644
--- a/lisp/ffap.el
+++ b/lisp/ffap.el
@@ -778,7 +778,6 @@ This uses `ffap-file-exists-string', which may try adding suffixes from
     ("\\.\\(tex\\|sty\\|doc\\|cls\\)\\'" . ffap-tex)
     ("\\.bib\\'" . ffap-bib)		; search ffap-bib-path
     ("\\`\\." . ffap-home)		; .emacs, .bashrc, .profile
-    ("\\`~/" . ffap-lcd)		; |~/misc/ffap.el.Z|
     ;; This used to have a blank, but ffap-string-at-point doesn't
     ;; handle blanks.
     ;; https://lists.gnu.org/r/emacs-devel/2008-01/msg01058.html
@@ -1026,7 +1025,7 @@ out of NAME."
 
 ;; Maybe a "Lisp Code Directory" reference:
 (defun ffap-lcd (name)
-  ;; FIXME: Is this still in use?
+  (declare (obsolete nil "29.1"))
   (and
    (or
     ;; lisp-dir-apropos output buffer: