# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 911687090 0
# Node ID 8c57752f8e9cfba68d5060e10107df8a32068b8f
# Parent  0146ed131b2a535b30a54a939861fed36f2d77d4
(describe-mode): Don't avoid loop indirecting thru value of INDICATOR.

diff -r 0146ed131b2a -r 8c57752f8e9c lisp/help.el
--- a/lisp/help.el	Sat Nov 21 03:19:52 1998 +0000
+++ b/lisp/help.el	Sat Nov 21 22:24:50 1998 +0000
@@ -349,7 +349,9 @@
 			  (capitalize
 			   (substring (symbol-name minor-mode)
 				      0 (match-beginning 0)))))
-		(while (and indicator (symbolp indicator))
+		(while (and indicator (symbolp indicator)
+			    (boundp indicator)
+			    (not (eq indicator (symbol-value indicator))))
 		  (setq indicator (symbol-value indicator)))
 		(if first
 		    (princ "The minor modes are described first,