branch: elpa/smartparens
commit 3afd9af104c8e003e8354ae825e9ed525b9dd26f
Merge: ba7818a77b 448529363a
Author: Matus Goljer <[email protected]>
Commit: GitHub <[email protected]>
Merge pull request #1167 from ROCKTAKEY/add-delete-sexp
Add commands named `sp-(backward-)?delete-sexp`
---
smartparens.el | 34 ++++++++++++++++++++++++++++++++++
1 file changed, 34 insertions(+)
diff --git a/smartparens.el b/smartparens.el
index bf99f5f724..c7c8a333ca 100644
--- a/smartparens.el
+++ b/smartparens.el
@@ -6619,6 +6619,23 @@ Note: prefix argument is shown after the example in
(when (= 0 sp-successive-kill-preserve-whitespace)
(kill-append sp-last-kill-whitespace nil)))))))))
+(defun sp-delete-sexp (&optional arg)
+ "Delete the balanced expression following point.
+
+This is exactly like calling `sp-kill-sexp'
+except deleted sexp does not go to the clipboard or kill ring.
+
+With ARG being positive number N, repeat that many times.
+
+With ARG being Negative number -N, repeat that many times in
+backward direction.
+
+See also `sp-kill-sexp' examples."
+ (interactive "*p")
+ (let* ((kill-ring nil)
+ (select-enable-clipboard nil))
+ (sp-kill-sexp arg)))
+
(defun sp--cleanup-after-kill ()
(unless (save-match-data (looking-back "^[\t\s]+" (1-
(line-beginning-position))))
(let ((bdel (save-excursion
@@ -6673,6 +6690,23 @@ Examples:
(interactive "*P")
(sp-kill-sexp (sp--negate-argument arg) dont-kill))
+(defun sp-backward-delete-sexp (&optional arg)
+ "Delete the balanced expression preceding point.
+
+This is exactly like calling `sp-backword-kill-sexp'
+except deleted sexp does not go to the clipboard or kill ring.
+
+With ARG being positive number N, repeat that many times.
+
+With ARG being Negative number -N, repeat that many times in
+forward direction.
+
+See also `sp-backward-kill-sexp' examples."
+ (interactive "*p")
+ (let* ((kill-ring nil)
+ (select-enable-clipboard nil))
+ (sp-backward-kill-sexp arg)))
+
(defun sp-copy-sexp (&optional arg)
"Copy the following ARG expressions to the kill-ring.
