[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/detached a453de761b 2/2: Syntactic improvements of code
From: |
ELPA Syncer |
Subject: |
[elpa] externals/detached a453de761b 2/2: Syntactic improvements of code in detached-init |
Date: |
Thu, 25 Aug 2022 14:57:29 -0400 (EDT) |
branch: externals/detached
commit a453de761b02e118d231bb6e31c8398cb2180ac3
Author: Niklas Eklund <niklas.eklund@posteo.net>
Commit: Niklas Eklund <niklas.eklund@posteo.net>
Syntactic improvements of code in detached-init
---
detached-init.el | 19 ++++++++++---------
1 file changed, 10 insertions(+), 9 deletions(-)
diff --git a/detached-init.el b/detached-init.el
index 2947c0cf7d..fad43f4106 100644
--- a/detached-init.el
+++ b/detached-init.el
@@ -123,7 +123,7 @@
(defun detached-init--shell ()
"Initialize integration with `shell'."
- (advice-add #'shell :around #'detached-shell-override-history)
+ (advice-add 'shell :around #'detached-shell-override-history)
(add-hook 'shell-mode-hook #'detached-shell-save-history-on-kill))
(defun detached-init--compile ()
@@ -137,26 +137,27 @@
(defun detached-init--org ()
"Initialize integration with `org'."
- (advice-add #'org-babel-sh-evaluate :around #'detached-org-babel-sh))
+ (advice-add 'org-babel-sh-evaluate
+ :around #'detached-org-babel-sh))
(defun detached-init--dired ()
"Initialize integration with `dired'."
- (advice-add 'dired-do-shell-command :around
#'detached-dired-do-shell-command))
+ (advice-add 'dired-do-shell-command
+ :around #'detached-dired-do-shell-command))
(defun detached-init--dired-rsync ()
"Initialize integration with `dired-rsync'."
- (when (functionp #'dired-rsync)
- (advice-add #'dired-rsync--do-run :override #'detached-extra-dired-rsync)))
+ (advice-add 'dired-rsync--do-run
+ :override #'detached-extra-dired-rsync))
(defun detached-init--projectile ()
"Initialize integration with `projectile'."
- (when (featurep 'projectile)
- (advice-add 'projectile-run-compilation
- :override #'detached-extra-projectile-run-compilation)))
+ (advice-add 'projectile-run-compilation
+ :override #'detached-extra-projectile-run-compilation))
(defun detached-init--vterm ()
"Initialize integration with `vterm'."
- (when (functionp #'vterm)
+ (when (featurep 'vterm)
(add-hook 'vterm-mode-hook #'detached-vterm-mode)))
(defun detached-init--embark ()