emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

lang/emacs-lisp: remove +emacs-lisp/find-function (use xref now)

Browse source
This commit is contained in:
Henrik Lissner 2017-03-15 22:46:33 -04:00
parent 8b2ae30c35
commit 75d8ee079d
2 changed files with 0 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

16
modules/lang/emacs-lisp/autoload.el
View file

@ -2,22 +2,6 @@
;; ---- emacs-lisp --------------------------------------------------- ;; ---- emacs-lisp ---------------------------------------------------
;;;###autoload
(defun +emacs-lisp/find-function (&optional arg)
"Jump to the definition of the function at point. If ARG (the prefix) is
non-nil, the function will be revealed in another window. If ARG is 16 (C-u
C-u), then reveal the function in a popup window."
(interactive "p")
(when-let (func (function-called-at-point))
(cond ((= arg 16)
(let ((buf (find-function-noselect func t)))
(doom-popup-buffer (car buf) :align t :size 30 :select t)
(goto-char (cdr buf))))
((> arg 1)
(find-function-other-window func))
(t
(find-function func)))))
;;;###autoload ;;;###autoload
(defun +emacs-lisp/repl () (defun +emacs-lisp/repl ()
"Open the Emacs Lisp REPL (`ielm')." "Open the Emacs Lisp REPL (`ielm')."

3
modules/lang/emacs-lisp/config.el
View file

@ -19,9 +19,6 @@
;; Don't affect lisp indentation (only `tab-width') ;; Don't affect lisp indentation (only `tab-width')
(set! :editorconfig :remove 'emacs-lisp-mode) (set! :editorconfig :remove 'emacs-lisp-mode)
(map! :map emacs-lisp-mode-map
:m "gd" '+emacs-lisp/find-function)
(defun +emacs-lisp|hook () (defun +emacs-lisp|hook ()
(setq mode-name "Elisp") ; [pedantry intensifies] (setq mode-name "Elisp") ; [pedantry intensifies]
(add-hook 'before-save-hook 'delete-trailing-whitespace nil t) (add-hook 'before-save-hook 'delete-trailing-whitespace nil t)