   (ignore-errors
     (let ((info (zomp-symbol-info symbol)))
       (if info
-          (format "%s\n%s\n\n%s:%s"
+          (format "%s - %s\n\n%s\n\n%s:%s"
                   (plist-get info :name)
                   (plist-get info :short-doc)
+                  (or
+                   (ignore-errors
+                     (zomp-fetch-doc-string symbol))
+                   "Not documented")
                   (or (plist-get info :file) "unknown")
                   (or (plist-get info :line) 0))
         (format "no help for %s" symbol)))))

                (plist-get info :name)
                (plist-get info :short-doc))))))

(defvar zomp-ac-testsuite-directives-source-on nil
  "Flag whether testsuite directives should be offered.")


  (local-set-key [(?:)] 'zomp-electric-colon)

  (local-set-key [(meta ?.)] 'zomp-goto-definition)
  (local-set-key [(meta ??)] 'zomp-show-doc-for-current-symbol)

  ;; create zomp menu. order of the zomp-add-action commands is reversed order in menu
  (local-set-key [menu-bar zomp] (cons "Zomp" (make-sparse-keymap "Zomp")))
