 (geiser-custom--defface autodoc-current-arg
   'bold geiser-autodoc "highlighting current argument in autodoc messages")
 
-(geiser-custom--defface autodoc-procedure-name
+(geiser-custom--defface autodoc-identifier
   'font-lock-function-name-face
   geiser-autodoc "highlighting procedure name in autodoc messages")
 

      (save-current-buffer
        (set-buffer (geiser-syntax--font-lock-buffer))
        (erase-buffer)
        (insert (format "(%s" (geiser-autodoc--proc-name proc module)))
        (let ((pos (or (cadr desc) 0))
              (prev (caddr desc)))
          (dolist (a args)

      (insert "]"))
    (when opts (insert "]"))))

(defsubst geiser-autodoc--id-name (proc module)
  (let ((str (if module
                 (format geiser-autodoc-identifier-format module proc)
               (format "%s" proc))))
    (propertize str 'face 'geiser-font-lock-autodoc-identifier)))

(defun geiser-autodoc--str* (full-signature)
  (geiser-autodoc--str (list (car full-signature)) full-signature))

(defsubst geiser-autodoc--value-str (proc module value)
  (let ((name (geiser-autodoc--id-name proc module)))
    (if value (format "%s => %s" name value) name)))

(defun geiser-autodoc--str (desc signature)
