diff --git a/etc/NEWS b/etc/NEWS
index 01c522e1516..f65a3cab6ec 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -1823,6 +1823,10 @@ This function inserts the special EVENT into the input event queue.
 This event is sent when the device running Emacs enters or leaves the
 sleep state.
 
+** Variable aliases obsolete since Emacs 23.2 have been removed:
+'advertised-undo', 'advertised-widget-backward', and
+'dired-advertised-find-file'.
+
 
 * Changes in Emacs 31.1 on Non-Free Operating Systems
 
diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index d3f75090fab..28be1e9c617 100644
--- a/lisp/arc-mode.el
+++ b/lisp/arc-mode.el
@@ -444,7 +444,6 @@ be added."
     ;; Let mouse-1 follow the link.
     (define-key map [follow-link] 'mouse-face)
 
-    (define-key map [remap advertised-undo] #'archive-undo)
     (define-key map [remap undo] #'archive-undo)
 
     (define-key map [mouse-2] 'archive-extract)
diff --git a/lisp/dired.el b/lisp/dired.el
index aa766b6170e..24d76ae79be 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -2439,7 +2439,6 @@ Do so according to the former subdir alist OLD-SUBDIR-ALIST."
   "?"       #'dired-summary
   "DEL"     #'dired-unmark-backward
   "<remap> <undo>"             #'dired-undo
-  "<remap> <advertised-undo>"  #'dired-undo
   "<remap> <vc-next-action>"   #'dired-vc-next-action
   ;; thumbnail manipulation (image-dired)
   "C-t d"   #'image-dired-display-thumbs
@@ -3026,9 +3025,6 @@ directory in another window."
                 (concat "File no longer exists; type \\<dired-mode-map>"
                         "\\[revert-buffer] to update Dired buffer")))))))
 
-;; Force C-m keybinding rather than `f' or `e' in the mode doc:
-(define-obsolete-function-alias 'dired-advertised-find-file
-  #'dired-find-file "23.2")
 (defun dired-find-file ()
   "In Dired, visit the file or directory named on this line."
   (interactive nil dired-mode)
diff --git a/lisp/emacs-lisp/float-sup.el b/lisp/emacs-lisp/float-sup.el
index 7f8a4a78163..b5ee4e34dbb 100644
--- a/lisp/emacs-lisp/float-sup.el
+++ b/lisp/emacs-lisp/float-sup.el
@@ -30,7 +30,7 @@
 (with-suppressed-warnings ((lexical pi))
   (defconst pi float-pi
     "Obsolete since Emacs-23.3.  Use `float-pi' instead."))
-(make-obsolete-variable 'pi 'float-pi "23.3")
+(make-obsolete-variable 'pi 'float-pi "23.3") ; "28.1"
 (internal-make-var-non-special 'pi)
 
 (defconst float-e (exp 1) "The value of e (2.7182818...).")
diff --git a/lisp/obsolete/landmark.el b/lisp/obsolete/landmark.el
index 84939934812..b94f0dc424e 100644
--- a/lisp/obsolete/landmark.el
+++ b/lisp/obsolete/landmark.el
@@ -206,7 +206,6 @@
     (define-key map [remap beginning-of-line] #'landmark-beginning-of-line)
     (define-key map [remap end-of-line] #'landmark-end-of-line)
     (define-key map [remap undo] #'landmark-human-takes-back)
-    (define-key map [remap advertised-undo] #'landmark-human-takes-back)
     map)
   "Local keymap to use in Landmark mode.")
 
diff --git a/lisp/play/decipher.el b/lisp/play/decipher.el
index ebcd50e736d..a35e7592feb 100644
--- a/lisp/play/decipher.el
+++ b/lisp/play/decipher.el
@@ -150,8 +150,7 @@ the tail of the list."
   "R"   #'decipher-restore-checkpoint
   "U"   #'decipher-undo
   "SPC" #'decipher-keypress
-  "<remap> <undo>" #'decipher-undo
-  "<remap> <advertised-undo>" #'decipher-undo)
+  "<remap> <undo>" #'decipher-undo)
 (let ((key ?a))
   (while (<= key ?z)
     (keymap-set decipher-mode-map (char-to-string key) #'decipher-keypress)
diff --git a/lisp/play/gomoku.el b/lisp/play/gomoku.el
index 798b0db78f0..0c309358631 100644
--- a/lisp/play/gomoku.el
+++ b/lisp/play/gomoku.el
@@ -153,8 +153,7 @@ SHOULD be at least 2 (MUST BE at least 1).")
   "<remap> <next-line>"              #'gomoku-move-down
   "<remap> <move-beginning-of-line>" #'gomoku-beginning-of-line
   "<remap> <move-end-of-line>"       #'gomoku-end-of-line
-  "<remap> <undo>"                   #'gomoku-human-takes-back
-  "<remap> <advertised-undo>"        #'gomoku-human-takes-back)
+  "<remap> <undo>"                   #'gomoku-human-takes-back)
 
 
 (defvar gomoku-emacs-won ()
diff --git a/lisp/proced.el b/lisp/proced.el
index 7c605aaa192..51e6f3aca4d 100644
--- a/lisp/proced.el
+++ b/lisp/proced.el
@@ -655,7 +655,6 @@ Important: the match ends just after the marker.")
   "h"         #'describe-mode
   "?"         #'proced-help
   "<remap> <undo>"            #'proced-undo
-  "<remap> <advertised-undo>" #'proced-undo
   ;; Additional keybindings are inherited from `special-mode-map'
   )
 (put 'proced-mark :advertised-binding "m")
diff --git a/lisp/simple.el b/lisp/simple.el
index 1b7df13a2ac..e6a8e4c3b95 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -3379,9 +3379,6 @@ the minibuffer contents."
                                minibuffer-prompt-properties))))
 
 
-;Put this on C-x u, so we can force that rather than C-_ into startup msg
-(define-obsolete-function-alias 'advertised-undo 'undo "23.2")
-
 (defconst undo-equiv-table (make-hash-table :test 'eq :weakness t)
   "Table mapping redo records to the corresponding undo one.
 A redo record for an undo in region maps to `undo-in-region'.
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index bc6479413a5..db241ca914a 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -1094,12 +1094,6 @@ button end points."
 
 ;;; Keymap and Commands.
 
-;; This alias exists only so that one can choose in doc-strings (e.g.
-;; Custom-mode) which key-binding of widget-keymap one wants to refer to.
-;; https://lists.gnu.org/r/emacs-devel/2008-11/msg00480.html
-(define-obsolete-function-alias 'advertised-widget-backward
-  #'widget-backward "23.2")
-
 ;;;###autoload
 (defvar widget-keymap
   (let ((map (make-sparse-keymap)))