Mercurial > emacs
comparison lisp/help.el @ 23742:8c57752f8e9c
(describe-mode): Don't avoid loop indirecting thru value of INDICATOR.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 21 Nov 1998 22:24:50 +0000 |
| parents | 0146ed131b2a |
| children | fb3963445995 |
comparison
equal
deleted
inserted
replaced
| 23741:0146ed131b2a | 23742:8c57752f8e9c |
|---|---|
| 347 (if (string-match "-mode$" (symbol-name minor-mode)) | 347 (if (string-match "-mode$" (symbol-name minor-mode)) |
| 348 (setq pretty-minor-mode | 348 (setq pretty-minor-mode |
| 349 (capitalize | 349 (capitalize |
| 350 (substring (symbol-name minor-mode) | 350 (substring (symbol-name minor-mode) |
| 351 0 (match-beginning 0))))) | 351 0 (match-beginning 0))))) |
| 352 (while (and indicator (symbolp indicator)) | 352 (while (and indicator (symbolp indicator) |
| 353 (boundp indicator) | |
| 354 (not (eq indicator (symbol-value indicator)))) | |
| 353 (setq indicator (symbol-value indicator))) | 355 (setq indicator (symbol-value indicator))) |
| 354 (if first | 356 (if first |
| 355 (princ "The minor modes are described first, | 357 (princ "The minor modes are described first, |
| 356 followed by the major mode, which is described on the last page.\n\f\n")) | 358 followed by the major mode, which is described on the last page.\n\f\n")) |
| 357 (setq first nil) | 359 (setq first nil) |