suggestion for documentation

[David]

;;; -*-Mode: emacs-lisp-*-

;;; It would be nice if this code produced "documentation" rather than
;;; "Keyboard macro."

(defconst  xxxx-macro  [?\M-x ?f ?o ?r ?w ?  ?c ?  return]  "documentation")

(message  (documentation  xxxx-macro))

;;; Code at line 334 in doc.c
;;;  else if (STRINGP (fun) || VECTORP (fun))
;;;    {
;;;      return build_string ("Keyboard macro.");
;;;    }