Re: master d4ae640: * lisp/help-fns.el (help--symbol-class): New function.

[Dmitry Gutov]

On 03.06.2021 23:41, Juri Linkov wrote:
> +(defun help--symbol-class (s)
> +  "Return symbol class characters for symbol S."
> +  (when (stringp s)
> +    (setq s (intern-soft s)))
> +  (cond ((commandp s)
> +         "c")                           ; command
> +        ((eq (car-safe (symbol-function s)) 'macro)
> +         "m")                           ; macro
> +        ((fboundp s)
> +         "f")                           ; function
> +        ((custom-variable-p s)
> +         "u")                           ; user option
> +        ((boundp s)
> +         "v")                           ; variable
> +        ((facep s)
> +         "a")                           ; fAce
> +        ((and (fboundp 'cl-find-class)
> +              (cl-find-class s))
> +         "t")                           ; CL type
> +        (" ")                           ; something else
> +        ))

Looks awfully similar to elisp--company-kind.