Function: cl--generic-describe

cl--generic-describe is a byte-compiled function defined in cl-generic.el.gz.

Signature

(cl--generic-describe FUNCTION)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/cl-generic.el.gz
(defun cl--generic-describe (function)
  (let ((generic (if (symbolp function) (cl--generic function))))
    (when generic
      (save-excursion
        ;; Ensure that we have two blank lines (but not more).
        (unless (looking-back "\n\n" (- (point) 2))
          (insert "\n"))
        (insert "This is a generic function.\n\n")
        (insert (propertize "Implementations:\n\n" 'face 'bold))
        ;; Loop over fanciful generics
        (cl--map-methods-documentation
         function
         (lambda (quals signature file doc)
           (insert (format "%s%S%s\n\n%s\n\n"
                           quals signature
                           (if file (format-message " in `%s'." file) "")
                           (or doc "Undocumented")))))))))