Function: apropos-documentation-internal

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

Signature

(apropos-documentation-internal DOC)

Source Code

;; Defined in /usr/src/emacs/lisp/apropos.el.gz
(defun apropos-documentation-internal (doc)
  ;; By the time we get here, refs to DOC or to .elc files should have
  ;; been converted into actual strings.
  (cl-assert (not (or (consp doc) (integerp doc))))
  (cond
   ((and ;; Sanity check in case bad data sneaked into the
         ;; documentation slot.
         (stringp doc)
         (string-match apropos-all-words-regexp doc)
         (apropos-true-hit-doc doc))
    (when apropos-match-face
      (setq doc (substitute-command-keys (copy-sequence doc)))
      (if (or (string-match apropos-pattern-quoted doc)
              (string-match apropos-all-words-regexp doc))
          (put-text-property (match-beginning 0)
                             (match-end 0)
                             'face apropos-match-face doc))
      doc))))