17 lines
407 B
EmacsLisp
17 lines
407 B
EmacsLisp
|
;;; defuns-elisp.el
|
||
|
|
|
||
|
|
;;;###autoload
|
||
|
|
(defun narf/elisp-find-function-at-pt ()
|
||
|
|
(interactive)
|
||
|
|
(let ((func (function-called-at-point)))
|
||
|
|
(if func (find-function func))))
|
||
|
|
|
||
|
|
;;;###autoload
|
||
|
|
(defun narf/elisp-find-function-at-pt-other-window ()
|
||
|
|
(interactive)
|
||
|
|
(let ((func (function-called-at-point)))
|
||
|
|
(if func (find-function-other-window func))))
|
||
|
|
|
||
|
|
(provide 'defuns-elisp)
|
||
|
|
;;; defuns-elisp.el ends here
|