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

[Dmitry Gutov <dgutov@yandex.ru>]

On 03.06.2021 23:51, 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.
> Feel free to improve it, taking into account wishes expressed by
> Daniel and Jens.

I think it calls for more design discussion up front, to satisfy all 
parties.