19 lines
576 B
EmacsLisp
19 lines
576 B
EmacsLisp
|
|
;; TODO: Do this later
|
|
|
|
(add-hook! 'hs-minor-mode-hook (when hs-minor-mode (hs-hide-level 3)))
|
|
|
|
;; [pedantry intensifies]
|
|
(defadvice emacs-lisp-mode (after emacs-lisp-mode-rename-modeline activate)
|
|
(setq mode-name "Elisp"))
|
|
|
|
;; Real go-to-definition for elisp
|
|
(bind :motion :map emacs-lisp-mode-map
|
|
"gd" (λ (let ((func (function-called-at-point)))
|
|
(if func (find-function func))))
|
|
"gD" (λ (let ((func (function-called-at-point)))
|
|
(if func (find-function-other-window func)))))
|
|
|
|
|
|
(provide 'init-lisp)
|
|
;;; init-lisp.el ends here
|