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

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/sesman e3adc450af 052/100: Run hooks in sesman-unlink


From: ELPA Syncer
Subject: [nongnu] elpa/sesman e3adc450af 052/100: Run hooks in sesman-unlink
Date: Tue, 28 Dec 2021 14:06:02 -0500 (EST)

branch: elpa/sesman
commit e3adc450afad2ecc3750e7e72659f2694dc96e9f
Author: Vitalie Spinu <spinuvit@gmail.com>
Commit: Vitalie Spinu <spinuvit@gmail.com>

    Run hooks in sesman-unlink
---
 sesman.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/sesman.el b/sesman.el
index c42b666c37..b289faa418 100644
--- a/sesman.el
+++ b/sesman.el
@@ -423,10 +423,11 @@ PROJECT defaults to current project. On universal 
argument, or if PROJECT is
   "Break any of the previously created links."
   (interactive)
   (let* ((system (sesman--system))
-         (links (or (sesman-current-links system)
+         (links (or (sesman-current-links system session)
                     (user-error "No %s links found" system))))
     (mapc #'sesman--unlink
-          (sesman--ask-for-link "Unlink: " links 'ask-all))))
+          (sesman--ask-for-link "Unlink: " links 'ask-all)))
+  (run-hooks 'sesman-post-command-hook))
 
 (defvar sesman-map
   (let (sesman-map)



reply via email to

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