From: Stefan Kangas <stefan@marxist.se>
Date: Sun, 31 Jul 2022 08:56:35 +0000 (+0200)
Subject: Delete aliases obsolete since 21.1 and 22.1
X-Git-Tag: emacs-29.0.90~1447^2~624
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a4cf4893d179d9eed774284ce1b427767da66730;p=emacs.git

Delete aliases obsolete since 21.1 and 22.1

* lisp/ls-lisp.el (ls-lisp-dired-ignore-case):
* lisp/files.el (find-file-not-found-hooks): Delete variable aliases,
obsolete since 21.1 and 22.1 respectively.
---

diff --git a/etc/NEWS b/etc/NEWS
index 489948214df..a6b95cd88f6 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -2456,6 +2456,10 @@ but switching to `ash` is generally much preferable.
 'unify-8859-on-decoding-mode', 'unify-8859-on-encoding-mode',
 'vc-arch-command', 'window-redisplay-end-trigger'.
 
+---
+** Some functions and variables obsolete since Emacs 21 or 22 have been removed:
+'find-file-not-found-hooks', 'ls-lisp-dired-ignore-case'.
+
 +++
 ** New generic function 'function-documentation'.
 Can dynamically generate a raw docstring depending on the type of
diff --git a/lisp/files.el b/lisp/files.el
index bea0c13d25f..b6d0a0013f4 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -577,8 +577,6 @@ location of point in the current buffer."
 
 ;;;It is not useful to make this a local variable.
 ;;;(put 'find-file-not-found-functions 'permanent-local t)
-(define-obsolete-variable-alias 'find-file-not-found-hooks
-    'find-file-not-found-functions "22.1")
 (defvar find-file-not-found-functions nil
   "List of functions to be called for `find-file' on nonexistent file.
 These functions are called as soon as the error is detected.
diff --git a/lisp/ls-lisp.el b/lisp/ls-lisp.el
index 6d1f449568a..3e50b0dcc87 100644
--- a/lisp/ls-lisp.el
+++ b/lisp/ls-lisp.el
@@ -100,14 +100,6 @@ update the dependent variables."
 	   (ls-lisp-set-options)))
   :group 'ls-lisp)
 
-;; Only made an obsolete alias in 23.3.  Before that, the initial
-;; value was set according to:
-;;  (or (memq ls-lisp-emulation '(MS-Windows MacOS))
-;;      (and (boundp 'ls-lisp-dired-ignore-case) ls-lisp-dired-ignore-case))
-;; Which isn't the right thing to do.
-(define-obsolete-variable-alias 'ls-lisp-dired-ignore-case
-  'ls-lisp-ignore-case "21.1")
-
 (defcustom ls-lisp-ignore-case
   (memq ls-lisp-emulation '(MS-Windows MacOS))
   "Non-nil causes ls-lisp alphabetic sorting to ignore case."