(describe-mode): Fix 2004-10-13 change.

Copy pure "Auto Fill" string so it can be propertized later
without causing a read-only error.

diff --git a/lisp/help.el b/lisp/help.el
index 5a2867b..0ed9fe4 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -651,7 +651,8 @@ whose documentation describes the minor mode."
                 (push (list pretty-minor-mode mode indicator)
                       minor-modes))))
        (if auto-fill-function
-           (push '("Auto Fill" auto-fill-mode " Fill")
+           ;; copy pure string so we can add face property to it below.
+           (push (list (copy-sequence "Auto Fill") 'auto-fill-mode " Fill")
                  minor-modes))
        (setq minor-modes
              (sort minor-modes