diff --git a/racket-custom.el b/racket-custom.el
index 967bb15c..8d28d485 100644
--- a/racket-custom.el
+++ b/racket-custom.el
@@ -11,12 +11,6 @@
 ;;; All `defcustom's and `defface's go here.
 ;;; This makes it easier to provide a consistent UI.
 
-;; NOTE: `:prefix` is disabled as of Emacs 24.3, so I'm using explicit
-;; `:tag`s. But also note that options are sorted (by default; user
-;; can turn that off) based on the identifier name not the `:tag`. As
-;; a result, I'm defining `:tag`s AS IF `:prefix "racket-"` did work.
-;; In other words defcustom of racket-foo-bar has a :tag "Foo Bar".
-
 (require 'rx)
 (require 'sh-script) ;for sh-heredoc face
 (require 'comint) ;for comint-simple-send in racket-shell-or-terminal
@@ -43,7 +37,6 @@
 Note that a back end configuration can override this with a
 non-nil `racket-program` property list value. See
 `racket-add-back-end'."
-  :tag "Racket Program"
   :type '(file :must-match t)
   :risky t)
 
@@ -58,7 +51,6 @@ Note: This is mostly obsolete, fortunately, because it applies
 only to commands that must block the Emacs UI until they get a
 response. Instead most Racket Mode commands these days receive
 their response asychronously."
-  :tag "Command Timeout"
   :type 'integer
   :risky t)
 
@@ -74,7 +66,6 @@ their response asychronously."
 
 Defaults to `racket-browse-url-using-temporary-file' on macOS and
 `browse-url' on other platforms."
-  :tag "Browse URL Function"
   :type 'function
   :risky t)
 
@@ -91,7 +82,6 @@ and `racket-repl-documentation' should look for the search page.
   \"%s\" at the point at which to insert the user's search text
   after applying `url-hexify-string'. Apart from \"%s\", the
   string should be a properly encoded URL."
-  :tag "Documentation Search Location"
   :type '(choice (string :tag "URL")
                  (const :tag "Local" local))
   :safe (lambda (val) (or (stringp val) (eq val 'local))))
@@ -105,7 +95,6 @@ send a newline or enter.
 
 Predefined choices include `racket-shell', `racket-term',
 `racket-ansi-term', and `racket-vterm'."
-  :tag "Shell or Terminal"
   :type 'function
   :options '(racket-shell
              racket-term
@@ -118,14 +107,12 @@ Predefined choices include `racket-shell', `racket-term',
 
 (defgroup racket-xp nil
   "`racket-xp-mode' options"
-  :tag "Xp Mode"
   :group 'racket)
 
 (defcustom racket-xp-after-change-refresh-delay 1
   "Seconds to wait before refreshing `racket-xp-mode' annotations.
 
 Set to nil to disable automatic refresh and manually use `racket-xp-annotate'."
-  :tag "Racket XP Mode After Change Refresh Delay"
   :type '(choice (integer :tag "Seconds")
                  (const :tag "Off" nil))
   :safe #'integerp)
@@ -135,7 +122,6 @@ Set to nil to disable automatic refresh and manually use `racket-xp-annotate'."
   "Mode line lighter for `racket-xp-mode'.
 
 Set to nil to disable the mode line completely."
-  :tag "Racket Xp Mode Lighter"
   :type 'sexp
   :risky t)
 
@@ -144,7 +130,6 @@ Set to nil to disable the mode line completely."
 
 The default is to highlight identifiers that do not start with
 an underline, which is a common convention."
-  :tag "Racket Xp Mode Do Not Highlight Unused Regexp"
   :type 'regexp
   :safe #'stringp)
 
@@ -164,7 +149,6 @@ A \\='font-lock-face property is added for bindings from:
 
 This has a visible effect only when there is /not/ also a
 \\='face property applied by the major mode's fontification."
-  :tag "Racket Xp Mode Binding Font Lock Face Modes"
   :type '(repeat symbol)
   :safe #'listp)
 
@@ -173,7 +157,6 @@ This has a visible effect only when there is /not/ also a
 
 (defgroup racket-hash-lang nil
   "`racket-hash-lang-mode' options"
-  :tag "Hash Lang"
   :group 'racket)
 
 (defcustom racket-hash-lang-token-face-alist
@@ -208,7 +191,6 @@ sometimes blended with other faces. Parenthesis tokens use the
 face `parenthesis' if defined, as by the paren-face package.
 String tokens use `font-lock-string-face'. Text tokens, e.g.
 Scribble text, use the face `default'"
-  :tag "Hash Lang Token Face Association List"
   :type '(alist :key-type symbol :value-type face)
   :safe #'listp)
 
@@ -239,7 +221,6 @@ Any such function takes no arguments, should look at the variable
 `racket-repl-mode' buffer name. As a result, `racket-run'
 commands will use a buffer of that name, creating it if
 necessary."
-  :tag "REPL Buffer Name Function"
   :type '(choice (const :tag "One REPL buffer for all edit buffers" nil)
                  (const :tag "One REPL buffer for all project edit buffers" racket-repl-buffer-name-project)
                  (const :tag "One REPL buffer for each edit buffer" racket-repl-buffer-name-unique)
@@ -264,7 +245,6 @@ It is NOT used by commands that run one specific module, such as:
  - `racket-run-module-at-point' \\[racket-run-module-at-point]
  - `racket-test' \\[racket-test]
  - `racket-profile'"
-  :tag "Submodules to Run"
   :type '(repeat (repeat :tag "Module path" symbol))
   :safe #'listp)
 
@@ -278,7 +258,6 @@ Caveat: This uses Racket's `custodian-limit-memory`, which does
 not enforce the limit exactly. Instead, the program will be
 terminated upon the first garbage collection where memory exceeds
 the limit (maybe by a significant amount)."
-  :tag "Memory Limit"
   :type 'integer
   :safe #'integerp)
 
@@ -304,7 +283,6 @@ for a specific `racket-run' or `racket-run-module-at-point' by
 using \\[universal-argument]. This lets you normally run with a
 lower, faster setting, and re-run when desired to get a
 more-helpful error message."
-  :tag "Error Context"
   :type '(radio (const :tag "Low" low)
                 (const :tag "Medium (better context but slower)" medium)
                 (const :tag "High (best context but slowest)" high))
@@ -315,19 +293,16 @@ more-helpful error message."
 (defcustom racket-repl-history-directory
   (locate-user-emacs-file (file-name-as-directory "racket-mode"))
   "Directory for `racket-repl-mode' history files."
-  :tag "REPL History Directory"
   :type 'file)
 
 (defcustom racket-history-filter-regexp "\\`\\s *\\'"
   "Input matching this regexp are NOT saved on the history list.
 Default value is a regexp to ignore input that is all whitespace."
-  :tag "History Filter Regexp"
   :type 'regexp
   :safe #'stringp)
 
 (defcustom racket-images-inline t
   "Whether to display inline images in the REPL."
-  :tag "Images Inline"
   :type 'boolean
   :safe #'booleanp)
 
@@ -341,7 +316,6 @@ ImageMagick support -- then `create-image' is called with
 
 For example, to scale images whose width is larger than 500
 pixels, supply (:max-width 500)."
-  :tag "ImageMagick Props"
   :type '(plist :key-type symbol
                 :value-type (choice number string))
   :options '((:max-width integer)
@@ -354,7 +328,6 @@ pixels, supply (:max-width 500)."
 
 (defcustom racket-images-keep-last 100
   "How many images to keep in the image cache."
-  :tag "Images Keep Last"
   :type 'integer
   :safe #'integerp)
 
@@ -362,13 +335,11 @@ pixels, supply (:max-width 500)."
                                            "open"
                                          "display")
   "The image viewer program to use for `racket-view-image'."
-  :tag "Images System Viewer"
   :type 'string
   :risky t)
 
 (defcustom racket-pretty-print t
   "Use pretty-print instead of print in REPL?"
-  :tag "Pretty Print"
   :type 'boolean
   :safe #'booleanp)
 
@@ -378,7 +349,6 @@ pixels, supply (:max-width 500)."
 A language can provide such a predicate, for example when the
 language syntax is not s-expressions. When t `racket-repl-submit'
 will use this to decide whether to submit your input, yet."
-  :tag "Use REPL Submit Predicate"
   :type 'boolean
   :safe #'booleanp)
 
@@ -392,7 +362,6 @@ When hook functions are called, `current-buffer' is that of the
 edit buffer when the run command was issued. If a hook function
 instead needs the `racket-repl-mode' buffer, it should get that
 from the variable `racket-repl-buffer-name'."
-  :tag "Before Run Hook"
   :type 'hook
   :risky t)
 
@@ -406,7 +375,6 @@ When hook functions are called, `current-buffer' is that of the
 buffer when the run command was issued. If a hook function
 instead needs the `racket-repl-mode' buffer, it should get that
 from the variable `racket-repl-buffer-name'."
-  :tag "After Run Hook"
   :type 'hook
   :risky t)
 
@@ -414,7 +382,6 @@ from the variable `racket-repl-buffer-name'."
   (expand-file-name "repl.rkt"
                     (locate-user-emacs-file (file-name-as-directory "racket-mode")))
   "Name of the file used by `racket-repl'."
-  :tag "REPL Command File"
   :type 'file)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -422,7 +389,6 @@ from the variable `racket-repl-buffer-name'."
 
 (defgroup racket-other nil
   "Other Options"
-  :tag "Other"
   :group 'racket)
 
 (defcustom racket-indent-curly-as-sequence t
@@ -430,7 +396,6 @@ from the variable `racket-repl-buffer-name'."
 
 This is indirectly disabled if `racket-indent-sequence-depth' is 0.
 This is safe to set as a file-local variable."
-  :tag "Indent Curly As Sequence"
   :type 'boolean
   :safe #'booleanp)
 
@@ -444,7 +409,6 @@ normal indent behavior of DrRacket or Emacs `lisp-mode' derived
 modes like `scheme-mode'. Setting this to a high value can make
 indentation noticeably slower. This is safe to set as a
 file-local variable."
-  :tag "Indent Sequence Depth"
   :type 'integer
   :safe #'integerp)
 
@@ -453,7 +417,6 @@ file-local variable."
 
 Instead use `prettify-symbols-mode' in newer verisons of Emacs,
 or, use `racket-insert-lambda' to insert actual λ characters."
-  :tag "Pretty Lambda"
   :type 'boolean
   :safe #'booleanp)
 
@@ -463,7 +426,6 @@ or, use `racket-insert-lambda' to insert actual λ characters."
 Instead of using this variable, you may bind the `[` key to the
 `racket-smart-open-bracket' command in the `racket-mode-map'
 and/or `racket-repl-mode-map' keymaps."
-  :tag "Smart Open Bracket Enable"
   :type 'boolean
   :safe #'booleanp)
 
@@ -475,7 +437,6 @@ and/or `racket-repl-mode-map' keymaps."
 
 Affects what `beginning-of-defun' will move to. This is safe to
 set as a file-local variable."
-  :tag "Top Level Forms"
   :type 'string
   :safe #'stringp)
 
@@ -503,7 +464,6 @@ For more information see:
 The default value sets some known \"noisy\" topics to be one
 level quieter. That way you can set the \"*\" topic to a level
 like \"debug\" and not get overhwelmed by these noisy topics."
-  :tag "Logger Configuration"
   :type '(alist :key-type symbol :value-type symbol)
   :safe (lambda (xs)
           (cl-every (lambda (x)
@@ -545,7 +505,6 @@ the span, i.e. below and/or right of POS. Examples:
 A function that shows STR in a fixed location may of course
 ignore POS. Examples: `racket-show-echo-area' and
 `racket-show-header-line'"
-  :tag "Racket Show Functions"
   :type '(repeat function)
   :options '(racket-show-pseudo-tooltip
              racket-show-echo-area
@@ -555,7 +514,6 @@ ignore POS. Examples: `racket-show-echo-area' and
 
 (defcustom racket-expand-hiding 'standard
   "The macro hiding policy for commands like `racket-expand-file'."
-  :tag "Racket Expand Hiding"
   :type '(choice
           (const :tag "Disable" disable)
           (const :tag "Standard" standard)
@@ -596,97 +554,82 @@ ignore POS. Examples: `racket-show-echo-area' and
 
 (defgroup racket-faces nil
   "Racket Faces"
-  :tag "Racket Faces"
   :group 'faces
   :group 'racket)
 
-(defmacro defface-racket (id facespec docstr tag)
+(defmacro defface-racket (id facespec docstr)
   `(progn
      (defconst ,id ',id)
      (defface ,id
        ,facespec
-       ,docstr
-       :tag ,tag)))
+       ,docstr)))
 
 (defface-racket racket-xp-def-face
   '((t (:inherit match :underline (:style line))))
-  "Face `racket-xp-mode' uses when point is on a definition."
-  "Definition Face")
+  "Face `racket-xp-mode' uses when point is on a definition.")
 
 (defface-racket racket-xp-use-face
   '((t (:inherit match)))
-  "Face `racket-xp-mode' uses when point is on a use."
-  "Use Face")
+  "Face `racket-xp-mode' uses when point is on a use.")
 
 (defface-racket racket-xp-binding-lang-face
   '((t (:inherit font-lock-doc-face)))
   "Face `racket-xp-mode' gives to the module language name.
 
-See the variable `racket-xp-binding-font-lock-face-modes'."
-  "Binding Lang Face")
+See the variable `racket-xp-binding-font-lock-face-modes'.")
 
 (defface-racket racket-xp-binding-lang-use-face
   '((t (:inherit font-lock-keyword-face)))
   "Face `racket-xp-mode' gives uses of bindings imported from the module language.
 
-See the variable `racket-xp-binding-font-lock-face-modes'."
-  "Binding Lang Use Face")
+See the variable `racket-xp-binding-font-lock-face-modes'.")
 
 (defface-racket racket-xp-binding-import-face
   '((t (:inherit default)))
   "Face `racket-xp-mode' gives to imported module names.
 
-See the variable `racket-xp-binding-font-lock-face-modes'."
-  "Binding Import Face")
+See the variable `racket-xp-binding-font-lock-face-modes'.")
 
 (defface-racket racket-xp-binding-import-use-face
   '((t (:inherit font-lock-keyword-face)))
   "Face `racket-xp-mode' gives uses of imported bindings.
 
-See the variable `racket-xp-binding-font-lock-face-modes'."
-  "Binding Import Use Face")
+See the variable `racket-xp-binding-font-lock-face-modes'.")
 
 (defface-racket racket-xp-binding-local-face
   '((t (:inherit font-lock-variable-name-face)))
   "Face `racket-xp-mode' gives to local definitions.
 
-See the variable `racket-xp-binding-font-lock-face-modes'."
-  "Binding Local Face")
+See the variable `racket-xp-binding-font-lock-face-modes'.")
 
 (defface-racket racket-xp-binding-local-use-face
   '((t (:inherit default)))
   "Face `racket-xp-mode' gives to uses of local definitions.
 
-See the variable `racket-xp-binding-font-lock-face-modes'."
-  "Binding Local Use Face")
+See the variable `racket-xp-binding-font-lock-face-modes'.")
 
 (defface-racket racket-xp-error-face
   '((t (:underline (:color "red" :style wave))))
-  "Face `racket-xp-mode' uses to highlight errors."
-  "Error Face")
+  "Face `racket-xp-mode' uses to highlight errors.")
 
 (defface-racket racket-xp-unused-face
   '((t (:strike-through t)))
-  "Face `racket-xp-mode' uses to highlight unused requires or definitions."
-  "Unused Face")
+  "Face `racket-xp-mode' uses to highlight unused requires or definitions.")
 
 (defface-racket racket-xp-tail-target-face
   '((t (:inherit match :underline (:style wave))))
-  "Face `racket-xp-mode' uses to highlight targets of a tail position."
-  "Tail Target Face")
+  "Face `racket-xp-mode' uses to highlight targets of a tail position.")
 
 (defface-racket racket-xp-tail-position-face
   '((t (:inherit match)))
-  "Face `racket-xp-mode' uses to highlight expressions in a tail position."
-  "Tail Position Face")
+  "Face `racket-xp-mode' uses to highlight expressions in a tail position.")
 
 (defface-racket racket-keyword-argument-face
   '((((background dark))
      (:foreground "IndianRed"))
     (((background light))
      (:foreground "Red3")))
-  "Face for `#:keyword` arguments."
-  "Keyword Argument Face")
+  "Face for `#:keyword` arguments.")
 
 ;; Note: Don't use `define-obsolete-face-alias'; see issue #583.
 (defface racket-paren-face nil
@@ -708,8 +651,7 @@ Instead customize the face `font-lock-constant-face'.")
 This face is given only to symbols directly quoted using the
 reader shorthands \\=' or \\=`. All other directly quoted values,
 including symbols quoted using \"quote\" or \"quasiquote\", get
-the face `font-lock-constant-face'."
-  "Reader Quoted Symbol Face")
+the face `font-lock-constant-face'.")
 
 (defface-racket racket-reader-syntax-quoted-symbol-face
   '((t (:inherit default)))
@@ -718,132 +660,107 @@ the face `font-lock-constant-face'."
 This face is given only to symbols directly quoted using the
 reader shorthands #\\=' or #\\=`. All other directly quoted
 values, including symbols quoted using \"syntax\" or
-\"quasisyntax\", get the face `font-lock-constant-face'."
-  "Reader Syntax Quoted Symbol Face")
+\"quasisyntax\", get the face `font-lock-constant-face'.")
 
 (defface-racket racket-here-string-face
   '((t (:inherit sh-heredoc)))
-  "Face for here strings."
-  "Here String Face")
+  "Face for here strings.")
 
 (defface-racket racket-logger-config-face
   '((t (:inherit font-lock-comment-face :slant italic)))
-  "Face for `racket-logger-mode' configuration."
-  "Racket Logger Config Face")
+  "Face for `racket-logger-mode' configuration.")
 
 (defface-racket racket-logger-topic-face
   '((t (:inherit font-lock-function-name-face :slant italic)))
-  "Face for `racket-logger-mode' topics."
-  "Racket Logger Config Face")
+  "Face for `racket-logger-mode' topics.")
 
 (defface-racket racket-logger-fatal-face
   '((t (:inherit error :weight bold)))
-  "Face for `racket-logger-mode' fatal level."
-  "Racket Logger Fatal Face")
+  "Face for `racket-logger-mode' fatal level.")
 
 (defface-racket racket-logger-error-face
   '((t (:inherit error)))
-  "Face for `racket-logger-mode' error level."
-  "Racket Logger Error Face")
+  "Face for `racket-logger-mode' error level.")
 
 (defface-racket racket-logger-warning-face
   '((t (:inherit warning)))
-  "Face for `racket-logger-mode' warning level."
-  "Racket Logger Warning Face")
+  "Face for `racket-logger-mode' warning level.")
 
 (defface-racket racket-logger-info-face
   '((t (:inherit font-lock-string-face)))
-  "Face for `racket-logger-mode' info level."
-  "Racket Logger Info Face")
+  "Face for `racket-logger-mode' info level.")
 
 (defface-racket racket-logger-debug-face
   '((t (:inherit font-lock-constant-face)))
-  "Face for `racket-logger-mode' debug level."
-  "Racket Logger Debug Face")
+  "Face for `racket-logger-mode' debug level.")
 
 (defface-racket racket-debug-break-face
   '((t (:background "red")))
-  "Face for `racket-debug-mode' break position."
-  "Racket Debug Break Face")
+  "Face for `racket-debug-mode' break position.")
 
 (defface-racket racket-debug-breakpoint-face
   '((t (:foreground "red" :weight bold)))
-  "Face for `racket-debug-mode' breakpoint overlays."
-  "Racket Debug Breakpoint Face")
+  "Face for `racket-debug-mode' breakpoint overlays.")
 
 (defface-racket racket-debug-locals-face
   '((t (:inherit font-lock-constant-face :box (:line-width -1) :slant italic)))
-  "Face for `racket-debug-mode' local variables."
-  "Racket Debug Locals Face")
+  "Face for `racket-debug-mode' local variables.")
 
 (defface-racket racket-debug-result-face
   '((t (:inherit font-lock-constant-face :box (:line-width -1) :slant italic :weight bold)))
-  "Face for `racket-debug-mode' result values."
-  "Racket Debug Result Face")
+  "Face for `racket-debug-mode' result values.")
 
 (defface-racket racket-doc-link-face
   '((t (:underline (:color "gray" :style line))))
   "Face `racket-describe-mode' uses for links within documentation.
 Note: When some special face is already specified by the
 documentation, then to avoid visual clutter this face is NOT also
-added."
-  "Racket Doc Link Face")
+added.")
 
 (defface-racket racket-ext-link-face
   '((t (:underline (:style wave) :slant italic :weight bold)))
   "Face `racket-describe-mode' uses for external links.
-See the variable `racket-browse-url-function'."
-  "Racket Ext Link Face")
+See the variable `racket-browse-url-function'.")
 
 (defface-racket racket-doc-output-face
   '((t (:inherit fixed-pitch-serif)))
-  "Face `racket-describe-mode' uses for Scribble @example or @interactions output."
-  "Racket Doc Output Face")
+  "Face `racket-describe-mode' uses for Scribble @example or @interactions output.")
 
 (defface-racket racket-doc-litchar-face
   '((t (:foreground "dark red" :background "gray")))
-  "Face `racket-describe-mode' uses for Scribble @litchar."
-  "Racket Doc Litchar Face")
+  "Face `racket-describe-mode' uses for Scribble @litchar.")
 
 (defface-racket racket-repl-message
   '((t (:inherit font-lock-comment-face :slant italic)))
-  "Face `racket-repl-mode' uses for messages from the back end."
-  "Racket REPL Message")
+  "Face `racket-repl-mode' uses for messages from the back end.")
 
 (defface-racket racket-repl-prompt
   '((t (:inherit bold)))
-  "Face `racket-repl-mode' uses for prompts."
-  "Racket REPL Prompt")
+  "Face `racket-repl-mode' uses for prompts.")
 
 (defface-racket racket-repl-value
   '((t (:inherit font-lock-constant-face)))
-  "Face `racket-repl-mode' uses for values output by current-print."
-  "Racket REPL Value")
+  "Face `racket-repl-mode' uses for values output by current-print.")
 
 (defface-racket racket-repl-error-message
   '((t (:inherit error)))
-  "Face `racket-repl-mode' uses for error messages."
-  "Racket REPL Error Message")
+  "Face `racket-repl-mode' uses for error messages.")
 
 (defface-racket racket-repl-error-location
   '((t (:inherit underline)))
-  "Face `racket-repl-mode' uses for error locations."
-  "Racket REPL Error Location")
+  "Face `racket-repl-mode' uses for error locations.")
 
 (defface-racket racket-repl-error-label
   '((t (:inherit font-lock-variable-name-face)))
-  "Face `racket-repl-mode' uses for error labels."
-  "Racket REPL Error Label")
+  "Face `racket-repl-mode' uses for error labels.")
 
 (defface-racket racket-repl-stdout
   '((t (:inherit default)))
-  "Face `racket-repl-mode' uses for output to current-output-port."
-  "Racket REPL Stdout")
+  "Face `racket-repl-mode' uses for output to current-output-port.")
 
 (defface-racket racket-repl-stderr
   '((t (:inherit error)))
-  "Face `racket-repl-mode' uses for output to current-error-port."
-  "Racket REPL Stderr")
+  "Face `racket-repl-mode' uses for output to current-error-port.")
 
 (provide 'racket-custom)