emacs-elpa-diffs
[Top][All Lists]
Advanced

[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 ()



reply via email to

[Prev in Thread] Current Thread [Next in Thread]