comparison lisp/packages/apropos.el @ 22:8fc7fe29b841 r19-15b94

Import from CVS: tag r19-15b94
author cvs
date Mon, 13 Aug 2007 08:50:29 +0200
parents 49a24b4fd526
children 8d2a9b52c682
comparison
equal deleted inserted replaced
21:b88636d63495 22:8fc7fe29b841
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)