Function: apropos-value-internal

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

Signature

(apropos-value-internal PREDICATE SYMBOL FUNCTION)

Source Code

;; Defined in /usr/src/emacs/lisp/apropos.el.gz
(defun apropos-value-internal (predicate symbol function)
  (when (funcall predicate symbol)
    (let ((print-escape-newlines t))
      (setq symbol (prin1-to-string
                    (if (memq symbol '(command-history minibuffer-history))
                        ;; The value we're looking for will always be in
                        ;; the first element of these two lists, so skip
                        ;; that value.
                        (cdr (funcall function symbol))
                      (funcall function symbol)))))
    (when (string-match apropos-regexp symbol)
      (if apropos-match-face
          (put-text-property (match-beginning 0) (match-end 0)
                             'face apropos-match-face
                             symbol))
      symbol)))