Mercurial > hg > xemacs-beta

comparison lisp/help.el @ 732:b9b8621c2439

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-01-22 14:16:38 by youngs] 2002-01-14 Björn Torkelsson <torkel@pdc.kth.se> * menubar-items.el (default-menubar): Open URLs menubar entries moved to mail-lib 2002-01-16 John Paul Wallington <jpw@shootybangbang.com> * cus-start.el: customize the builtin variable 'modifier-keys-sticky-time'. 2002-01-09 John Paul Wallington <jpw@shootybangbang.com> * help.el (describe-mode): synched with FSF 19.34; handle nil minor mode indicators.
author youngs
date Tue, 22 Jan 2002 14:16:39 +0000
parents 11502791fc1c
children 943eaba38521
comparison
equal deleted inserted replaced
731:46d76bae9921 732:b9b8621c2439
536 0 (match-beginning 0))))) 536 0 (match-beginning 0)))))
537 (while (and (consp indicator) (extentp (car indicator))) 537 (while (and (consp indicator) (extentp (car indicator)))
538 (setq indicator (cdr indicator))) 538 (setq indicator (cdr indicator)))
539 (while (and indicator (symbolp indicator)) 539 (while (and indicator (symbolp indicator))
540 (setq indicator (symbol-value indicator))) 540 (setq indicator (symbol-value indicator)))
541 (princ (format "%s minor mode (indicator%s):\n" 541 (princ (format "%s minor mode (%s):\n"
542 pretty-minor-mode indicator)) 542 pretty-minor-mode
543 (if indicator
544 (format "indicator%s" indicator)
545 "no indicator")))
543 (princ (documentation minor-mode)) 546 (princ (documentation minor-mode))
544 (princ "\n\n----\n\n")))) 547 (princ "\n\n----\n\n"))))
545 (setq minor-modes (cdr minor-modes))))) 548 (setq minor-modes (cdr minor-modes)))))
546 (format "%s mode" mode-name))) 549 (format "%s mode" mode-name)))
547 550