Allow 'find-elisp-thing-at-point to jump to not-yet-loaded elisp libr…

…aries
fgeller · Jun 29, 2011 · cee8f79 · cee8f79
1 parent a2d1234
commit cee8f79
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/init-lisp.el b/init-lisp.el
@@ -124,7 +124,12 @@ variable or library."
       (cond
        ((fboundp sym) (find-function sym))
        ((boundp sym) (find-variable sym))
-       ((featurep sym) (find-library (symbol-name sym)))))))
+       ((or (featurep sym) (locate-library (symbol-name sym)))
+        (find-library (symbol-name sym)))
+       (:else
+        (progn
+          (pop-tag-mark)
+          (error "Don't know how to find '%s'" sym)))))))
 
 (define-key emacs-lisp-mode-map (kbd "M-.") 'find-elisp-thing-at-point)
 (define-key emacs-lisp-mode-map (kbd "M-,") 'pop-tag-mark)