comparison lisp/packages/apropos.el @ 98:0d2f883870bc r20-1b1

Import from CVS: tag r20-1b1
author cvs
date Mon, 13 Aug 2007 09:13:56 +0200
parents c0c698873ce1
children 9f59509498e1
comparison
equal deleted inserted replaced
97:498bf5da1c90 98:0d2f883870bc
561 do-keys) 561 do-keys)
562 (apropos-print-doc 'describe-variable 2 562 (apropos-print-doc 'describe-variable 2
563 "Variable" do-keys) 563 "Variable" do-keys)
564 (apropos-print-doc 'apropos-describe-plist 3 564 (apropos-print-doc 'apropos-describe-plist 3
565 "Plist" nil)))) 565 "Plist" nil))))
566 (shrink-window-if-larger-than-buffer (get-buffer-window "*Apropos*"))) 566 (when temp-buffer-shrink-to-fit
567 (shrink-window-if-larger-than-buffer (get-buffer-window "*Apropos*"))))
567 (prog1 apropos-accumulator 568 (prog1 apropos-accumulator
568 (setq apropos-accumulator ()))) ; permit gc 569 (setq apropos-accumulator ()))) ; permit gc
569 570
570 571
571 (defun apropos-macrop (symbol) 572 (defun apropos-macrop (symbol)