[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/sesman b16ba94386 097/100: Make sesman-unlink to take opti
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/sesman b16ba94386 097/100: Make sesman-unlink to take optional LINKS argument (#22) |
Date: |
Tue, 28 Dec 2021 14:06:06 -0500 (EST) |
branch: elpa/sesman
commit b16ba94386cc1e1524224487ab0871c0c32aeb17
Author: Mark Dawson <markgdawson@gmail.com>
Commit: Vitalie Spinu <spinuvit@gmail.com>
Make sesman-unlink to take optional LINKS argument (#22)
Co-authored-by: Mark Dawson <mark.dawson@polecat.com>
---
sesman.el | 18 +++++++++++-------
1 file changed, 11 insertions(+), 7 deletions(-)
diff --git a/sesman.el b/sesman.el
index e0a16b372e..df5deca7ac 100644
--- a/sesman.el
+++ b/sesman.el
@@ -463,14 +463,18 @@ buffer."
(sesman--link-session-interactively session nil nil))
;;;###autoload
-(defun sesman-unlink ()
- "Break any of the previously created links."
+(defun sesman-unlink (&optional links)
+ "Break any of the previously created links or break LINKS if non-nil.
+
+Break all links with prefix argument."
(interactive)
- (let* ((system (sesman--system))
- (links (or (sesman-current-links system)
- (user-error "No %s links found" system))))
- (mapc #'sesman--unlink
- (sesman--ask-for-link "Unlink: " links 'ask-all)))
+ (mapc #'sesman--unlink (or (when current-prefix-arg
+ (sesman-current-links (sesman--system)))
+ links
+ (sesman--ask-for-link "Unlink: "
+ (or (sesman-current-links
(sesman--system))
+ (user-error "No %s
links found" (sesman--system)))
+ 'ask-all)))
(run-hooks 'sesman-post-command-hook))
(declare-function sesman-browser "sesman-browser")
- [nongnu] elpa/sesman 73d726499f 060/100: Bump the development version, (continued)
- [nongnu] elpa/sesman 73d726499f 060/100: Bump the development version, ELPA Syncer, 2021/12/28
- [nongnu] elpa/sesman f3975de11a 038/100: Remove dependency on project.el, ELPA Syncer, 2021/12/28
- [nongnu] elpa/sesman 9e16e21fc4 055/100: Add white space cleaner to dir-locals, ELPA Syncer, 2021/12/28
- [nongnu] elpa/sesman e3adc450af 052/100: Run hooks in sesman-unlink, ELPA Syncer, 2021/12/28
- [nongnu] elpa/sesman 796a214e1f 058/100: Typo, ELPA Syncer, 2021/12/28
- [nongnu] elpa/sesman c81565a88b 071/100: Version 0.3, ELPA Syncer, 2021/12/28
- [nongnu] elpa/sesman d403a84746 069/100: Put back separator in info display, ELPA Syncer, 2021/12/28
- [nongnu] elpa/sesman cdf0064408 067/100: Use -face in face names, ELPA Syncer, 2021/12/28
- [nongnu] elpa/sesman 563ebeaafb 098/100: Fix broken link in README.md, ELPA Syncer, 2021/12/28
- [nongnu] elpa/sesman 26931e1e64 094/100: Add menu for browser, ELPA Syncer, 2021/12/28
- [nongnu] elpa/sesman b16ba94386 097/100: Make sesman-unlink to take optional LINKS argument (#22),
ELPA Syncer <=
- [nongnu] elpa/sesman e0f555f963 100/100: Rename sesman-get-system and defalias sesman--system, ELPA Syncer, 2021/12/28
- [nongnu] elpa/sesman 37b9b50f8f 014/100: Get rid of -get- qualifier, ELPA Syncer, 2021/12/28
- [nongnu] elpa/sesman e06a40589d 010/100: Move back from cider new-connection branch, ELPA Syncer, 2021/12/28
- [nongnu] elpa/sesman ec275e2e10 009/100: Readme, ELPA Syncer, 2021/12/28
- [nongnu] elpa/sesman 8f2784a4ba 001/100: Initial commit, ELPA Syncer, 2021/12/28
- [nongnu] elpa/sesman 7987deb2c4 011/100: Makefile, tests, travis, checkdoc, .dir-locals, .gitignore etc., ELPA Syncer, 2021/12/28
- [nongnu] elpa/sesman b839a2379a 005/100: More bulk updates, ELPA Syncer, 2021/12/28
- [nongnu] elpa/sesman 27bd3bf457 020/100: Remove disambiguation defcustom and simplify sesman-ensure-linked-session, ELPA Syncer, 2021/12/28
- [nongnu] elpa/sesman df5a081689 029/100: Fix a fixme :-), ELPA Syncer, 2021/12/28
- [nongnu] elpa/sesman 5fc5934b5f 044/100: Extend semantics of 'which' argument in interactive commands, ELPA Syncer, 2021/12/28