# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1098650112 0
# Node ID 5ee6ba47682f943eba0bb18e3fd92ac4e599a4a3
# Parent  9b1aeefdd189c632e3183d47f5f3aca4b3a61754
(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 -r 9b1aeefdd189 -r 5ee6ba47682f lisp/help.el
--- a/lisp/help.el	Sun Oct 24 20:34:49 2004 +0000
+++ b/lisp/help.el	Sun Oct 24 20:35:12 2004 +0000
@@ -651,7 +651,8 @@
 		 (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