comparison lisp/apropos.el @ 2946:1f24ead69a2f

(apropos-print-matches): Bind tem.
author Richard M. Stallman <rms@gnu.org>
date Sat, 22 May 1993 04:19:14 +0000
parents e38ff71093b5
children 804e4f30b7ce
comparison
equal deleted inserted replaced
2945:2c1f0215fcc3 2946:1f24ead69a2f
194 (setq matches (sort matches (function 194 (setq matches (sort matches (function
195 (lambda (a b) 195 (lambda (a b)
196 (string-lessp (car a) (car b)))))) 196 (string-lessp (car a) (car b))))))
197 (let ((p matches) 197 (let ((p matches)
198 (old-buffer (current-buffer)) 198 (old-buffer (current-buffer))
199 item keys-done symbol) 199 item keys-done symbol tem)
200 (save-excursion 200 (save-excursion
201 (set-buffer standard-output) 201 (set-buffer standard-output)
202 (or matches (princ "No matches found.")) 202 (or matches (princ "No matches found."))
203 (while (consp p) 203 (while (consp p)
204 (setq item (car p) 204 (setq item (car p)