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