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 a81d9130148a2114ec04197f4176f0f9d2286d9d..d490cd434aa901b537d5b898a4b7ef3648d464bc 100644 (file)
--- 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: