procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(apropos-next-label-button): Use the presence of a

Browse source 
`apropos-label' property to detect label buttons.
This commit is contained in:
Miles Bader 2001-10-08 16:37:44 +00:00
parent e6b3ceb61d
commit 3b8c60f18c
2 changed files with 14 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2001-10-09 Miles Bader <miles@gnu.org>
* apropos.el (apropos-next-label-button): Use the presence of a
`apropos-label' property to detect label buttons.
2001-10-08 Miles Bader <miles@gnu.org>
* button.el (next-button, previous-button): Remove N and WRAP

17
lisp/apropos.el
View file

@ -197,23 +197,24 @@ for the regexp; the part that matches gets displayed in this font."
(apropos-describe-plist (button-get button 'apropos-symbol))))
(defun apropos-next-label-button (pos)
"Returns the next `apropos-label' button after POS, or nil if there's none.
"Returns the next apropos label button after POS, or nil if there's none.
Will also return nil if more than one `apropos-symbol' button is encountered
before finding a label."
(let* ((button (next-button pos t))
(already-hit-symbol nil)
(button-type (and button (button-get button 'type))))
(label (and button (button-get button 'apropos-label)))
(type (and button (button-get button 'type))))
(while (and button
(not (eq button-type 'apropos-label))
(or (not (eq button-type 'apropos-symbol))
(not label)
(or (not (eq type 'apropos-symbol))
(not already-hit-symbol)))
(when (eq button-type 'apropos-symbol)
(when (eq type 'apropos-symbol)
(setq already-hit-symbol t))
(setq button (next-button (button-start button)))
(when button
(setq button-type (button-get button 'type))))
(and (eq button-type 'apropos-label)
button)))
(setq label (button-get button 'apropos-label))
(setq type (button-get button 'type))))
(and label button)))
;;;###autoload