diff options
Diffstat (limited to 'emacs')
| -rw-r--r-- | emacs/elisp/ap-functions.el | 11 | ||||
| -rw-r--r-- | emacs/init.el | 7 |
2 files changed, 1 insertions, 17 deletions
diff --git a/emacs/elisp/ap-functions.el b/emacs/elisp/ap-functions.el index 4c300015..19f63320 100644 --- a/emacs/elisp/ap-functions.el +++ b/emacs/elisp/ap-functions.el @@ -26,17 +26,6 @@ (insert (current-kill 0))))) ;;;###autoload -(defun ap/byte-compile-get-dest (filename) - (let ((basename (file-name-nondirectory filename)) - (dirname (file-name-directory filename))) - (cond - ((string-equal basename "init.el") - (if (file-exists-p (concat user-emacs-directory "init.el")) - (concat user-emacs-directory "init.elc"))) - (t (let (byte-compile-dest-file-function) - (byte-compile-dest-file filename)))))) - -;;;###autoload (defun shell-execute (to-current-buffer) (interactive "P") (let ((file-buffer (if (buffer-file-name) diff --git a/emacs/init.el b/emacs/init.el index fd54684b..76a6ac90 100644 --- a/emacs/init.el +++ b/emacs/init.el @@ -877,8 +877,7 @@ Also returns nil if pid is nil." ("M-Z" . zap-to-char))) (use-package ap-functions - :commands (ap/remove-extra-cr - ap/byte-compile-get-dest) + :commands (ap/remove-extra-cr) :bind (("C-x r M-w" . copy-rectangle) ("M-!" . shell-execute))) @@ -984,10 +983,6 @@ Also returns nil if pid is nil." (add-hook 'lisp-mode-hook #'ap/lisp-setup) (add-hook 'lisp-mode-hook #'set-common-lisp-indentation) -(use-package bytecomp - :defer t - :config (setq byte-compile-dest-file-function #'ap/byte-compile-get-dest)) - (use-package elisp-slime-nav :commands elisp-slime-nav-mode :diminish elisp-slime-nav-mode) |