diff --git a/lisp/emacs-lisp/subr-x.el b/lisp/emacs-lisp/subr-x.el
index 7d1e1c9237a..fdcfa7091c4 100644
--- a/lisp/emacs-lisp/subr-x.el
+++ b/lisp/emacs-lisp/subr-x.el
@@ -219,7 +219,7 @@ The return value is the matching entry from the CHOICES list.
 Usage example:
 
 \(read-multiple-choice \"Continue connecting?\"
-                      '((?a \"always\")
+                      \\='((?a \"always\")
                         (?s \"session only\")
                         (?n \"no\")))"
   (let* ((altered-names nil)