diff --git a/latex.el b/latex.el
index ae13f2eb078..a8dd6adad44 100644
--- a/latex.el
+++ b/latex.el

@@ -7987,7 +7987,7 @@ or `LaTeX-environment-list' and returns it."

;; cases, but will also fail for example in hyperref.el. This

;; decision should revisited at a later stage:

(when (assq 'TeX-arg-conditional arg-list)

- (cl-letf (((symbol-function 'y-or-n-p) #'TeX-always))

+ (cl-letf (((symbol-function 'y-or-n-p) #'always))

(while (and arg-list

(setq arg (car arg-list)))

(if (and (listp arg) (eq (car arg) 'TeX-arg-conditional))

diff --git a/tex.el b/tex.el
index 93a1f2c66c2..c095e9c5063 100644
--- a/tex.el
+++ b/tex.el

@@ -4891,16 +4891,6 @@ Return nil if ELT is not a member of LIST."

(make-obsolete 'TeX-assoc

"use (assoc-string KEY LIST t) instead." "AUCTeX 13.0")

-(if (>= emacs-major-version 28)

- (defalias 'TeX-always #'always)

- (defun TeX-always (&rest _arguments)

- "Ignore ARGUMENTS, do nothing and return t.

-This function accepts any number of arguments in ARGUMENTS.

-Also see `ignore'.

-

-This is a compatibility function for Emacs versions prior to v.28."

- t))

-

;; COMPATIBILITY for Emacs<30

(if (fboundp 'derived-mode-add-parents)

(defalias 'TeX-derived-mode-add-parents #'derived-mode-add-parents)