Mercurial > emacs
comparison lisp/apropos.el @ 20508:16f1fd128350
(apropos-print): Pass t instead of DO-KEYS
when calling apropos-print-doc.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 22 Dec 1997 07:39:09 +0000 |
parents | 048c8ad9bcaa |
children | 7f104a4fc567 |
comparison
equal
deleted
inserted
replaced
20507:07a8c7f7cfe8 | 20508:16f1fd128350 |
---|---|
568 (if (commandp symbol) | 568 (if (commandp symbol) |
569 "Command" | 569 "Command" |
570 (if (apropos-macrop symbol) | 570 (if (apropos-macrop symbol) |
571 "Macro" | 571 "Macro" |
572 "Function")) | 572 "Function")) |
573 do-keys) | 573 t) |
574 (if (get symbol 'custom-type) | 574 (if (get symbol 'custom-type) |
575 (apropos-print-doc 'customize-variable-other-window 2 | 575 (apropos-print-doc 'customize-variable-other-window 2 |
576 "User Option" do-keys) | 576 "User Option" t) |
577 (apropos-print-doc 'describe-variable 2 | 577 (apropos-print-doc 'describe-variable 2 |
578 "Variable" do-keys)) | 578 "Variable" t)) |
579 (apropos-print-doc 'customize-group-other-window 6 "Group" do-keys) | 579 (apropos-print-doc 'customize-group-other-window 6 "Group" t) |
580 (apropos-print-doc 'customize-face-other-window 5 "Face" do-keys) | 580 (apropos-print-doc 'customize-face-other-window 5 "Face" t) |
581 (apropos-print-doc 'widget-browse-other-window 4 "Widget" do-keys) | 581 (apropos-print-doc 'widget-browse-other-window 4 "Widget" t) |
582 (apropos-print-doc 'apropos-describe-plist 3 | 582 (apropos-print-doc 'apropos-describe-plist 3 |
583 "Plist" nil))))) | 583 "Plist" nil))))) |
584 (prog1 apropos-accumulator | 584 (prog1 apropos-accumulator |
585 (setq apropos-accumulator ()))) ; permit gc | 585 (setq apropos-accumulator ()))) ; permit gc |
586 | 586 |