Mercurial > emacs
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) |