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

[Juri Linkov]

>> +(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.