;;;###autoload
(defun find-function-or-variable-at-point ()
  "Locate function or variable at point."
  (interactive)
  (let* ((f-o-v (substring-no-properties (thing-at-point 'symbol)))
     (f-o-v-symb (intern f-o-v)))
    (cond
     ((fboundp f-o-v-symb)
      (find-function-other-window f-o-v-symb))
     ((boundp f-o-v-symb)
      (find-variable-other-window f-o-v-symb))
     (t
      (message "No definition found for %S" f-o-v)))))