Function: apropos-next-label-button

apropos-next-label-button is a byte-compiled function defined in apropos.el.gz.

Signature

(apropos-next-label-button POS)

Documentation

Return 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.

Source Code

;; Defined in /usr/src/emacs/lisp/apropos.el.gz
(defun apropos-next-label-button (pos)
  "Return 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)
	 (label (and button (button-get button 'apropos-label)))
	 (type (and button (button-get button 'type))))
    (while (and button
		(not label)
		(or (not (eq type 'apropos-symbol))
		    (not already-hit-symbol)))
      (when (eq type 'apropos-symbol)
	(setq already-hit-symbol t))
      (setq button (next-button (button-start button)))
      (when button
	(setq label (button-get button 'apropos-label))
	(setq type (button-get button 'type))))
    (and label button)))