find at point

emacs.d/defunkt/helpers.el

@@ -93,4 +93,24 @@
      ((file-directory-p suffix) (add-to-list 'load-path suffix) (require library))
      ((file-exists-p suffix) (require library)))
     (when (file-exists-p (concat defunkt ".el"))
-      (load defunkt))))
+      (load defunkt))))
+
+(defun find-thing-at-point (&optional always-ask)
+  (interactive "P")
+  (let* ((at-point (thing-at-point 'symbol))
+         (s (and at-point (intern at-point)))
+         (v (or (variable-at-point)
+                (and s (boundp s) s)))
+         (f (or (function-called-at-point)
+                (and s (fboundp s) s))))
+    (push-mark (point) t)
+    (cond
+     (always-ask (call-interactively 'find-function))
+     ((and v (not (numberp v)))
+      (find-variable v))
+     ((and f (subrp (symbol-function f)))
+      (let ((buf-pos (find-function-search-for-symbol
+                      f nil (help-C-file-name (symbol-function f) 'subr))))
+        (and (car buf-pos) (pop-to-buffer (car buf-pos)))))
+     (f (find-function f))
+     (t (call-interactively 'find-function)))))