Function: help--describe-command

help--describe-command is a byte-compiled function defined in help.el.gz.

Signature

(help--describe-command DEFINITION)

Source Code

;; Defined in /usr/src/emacs/lisp/help.el.gz
(defun help--describe-command (definition)
  ;; Converted from describe_command in keymap.c.
  ;; If column 16 is no good, go to col 32;
  ;; but don't push beyond that--go to next line instead.
  (let* ((column (current-column))
         (description-column (cond ((> column 30)
                                    (insert "\n")
                                    32)
                                   ((or (> column 14)
                                        (and (> column 10)
                                             (= help--previous-description-column 32)))
                                    32)
                                   (t 16))))
    ;; Avoid using the `help-keymap' face.
    (let ((op (point)))
      (indent-to description-column 1)
      (set-text-properties op (point) '( face nil
                                         font-lock-face nil)))
    (setq help--previous-description-column description-column)
    (cond ((symbolp definition)
           (insert (symbol-name definition) "\n"))
          ((or (stringp definition) (vectorp definition))
           (insert "Keyboard Macro\n"))
          ((keymapp definition)
           (insert "Prefix Command\n"))
          (t (insert "??\n")))))