Function: apropos--documentation-add

apropos--documentation-add is a byte-compiled function defined in apropos.el.gz.

Signature

(apropos--documentation-add SYMBOL DOC POS)

Source Code

;; Defined in /usr/src/emacs/lisp/apropos.el.gz
(defun apropos--documentation-add (symbol doc pos)
  (when (setq doc (apropos-documentation-internal doc))
    (let ((score (apropos-score-doc doc))
          (item (cdr (assq symbol apropos-accumulator))))
      (unless item
        (push (cons symbol
                    (setq item (list (apropos-score-symbol symbol 2)
                                     nil nil)))
              apropos-accumulator))
      (setf (nth pos item) doc)
      (setcar item (+ (car item) score)))))