From b7fb8caa2485e1322f0dc5f73e05f71b978efb36 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Fri, 3 Feb 2017 19:22:18 -0500 Subject: [PATCH] emacs-lisp: refactor autoloads --- modules/lang/emacs-lisp/autoload.el | 17 ++++++++++++----- 1 file changed, 12 insertions(+), 5 deletions(-) diff --git a/modules/lang/emacs-lisp/autoload.el b/modules/lang/emacs-lisp/autoload.el index 8a795d95c..5c1dc5751 100644 --- a/modules/lang/emacs-lisp/autoload.el +++ b/modules/lang/emacs-lisp/autoload.el @@ -2,22 +2,29 @@ ;; ---- emacs-lisp --------------------------------------------------- -;;;###autoload (autoload 'doom:byte-compile "lang/emacs-lisp/autoload" nil t) +;;;###autoload (autoload '+emacs-lisp:byte-compile "lang/emacs-lisp/autoload" nil t) (evil-define-command +emacs-lisp:byte-compile (&optional bang) + "Byte compile the current file, or if BANG, the entire emacs configuration." (interactive "") (if bang (doom-byte-compile) (byte-compile-file buffer-file-name))) ;;;###autoload -(defun +emacs-lisp/find-function-at-pt () +(defun +emacs-lisp/find-function () + "Jump to the definition of the function at point." (interactive) (let ((func (function-called-at-point))) (if func (find-function func)))) ;;;###autoload -(defun +emacs-lisp/find-function-at-pt-other-window () +(defun +emacs-lisp/find-function-other-window () + "Jump to the definition of the function at point in a popup window." (interactive) - (let ((func (function-called-at-point))) - (if func (find-function-other-window func)))) + (let ((fn (function-called-at-point))) + (when fn + (find-function-do-it + fn nil + (lambda (buffer) + (select-window (doom-popup-buffer buffer :size 30))))))) ;;;###autoload (defun +emacs-lisp/repl ()