Mercurial > emacs
comparison lisp/apropos.el @ 39669:149659ed7eca
(apropos-next-label-button): Update arguments to `next-button'.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Mon, 08 Oct 2001 06:10:29 +0000 |
| parents | 7edeec63e660 |
| children | 05b7a0e7b426 |
comparison
equal
deleted
inserted
replaced
| 39668:1666965880cc | 39669:149659ed7eca |
|---|---|
| 154 | 154 |
| 155 (defun apropos-next-label-button (pos) | 155 (defun apropos-next-label-button (pos) |
| 156 "Returns the next `apropos-label' button after POS, or nil if there's none. | 156 "Returns the next `apropos-label' button after POS, or nil if there's none. |
| 157 Will also return nil if more than one `apropos-symbol' button is encountered | 157 Will also return nil if more than one `apropos-symbol' button is encountered |
| 158 before finding a label." | 158 before finding a label." |
| 159 (let* ((button (next-button pos 1 nil t)) | 159 (let* ((button (next-button pos t)) |
| 160 (already-hit-symbol nil) | 160 (already-hit-symbol nil) |
| 161 (button-type (and button (button-get button 'type)))) | 161 (button-type (and button (button-get button 'type)))) |
| 162 (while (and button | 162 (while (and button |
| 163 (not (eq button-type 'apropos-label)) | 163 (not (eq button-type 'apropos-label)) |
| 164 (or (not (eq button-type 'apropos-symbol)) | 164 (or (not (eq button-type 'apropos-symbol)) |