[elpa] 43/77: Add new command easy-mark-sexp

[Leo Liu]

leoliu pushed a commit to branch master
in repository elpa.

commit 44cb970ee71ec8852dd1c178b5d43d516ebbba29
Author: Leo Liu <address@hidden>
Date:   Sat Oct 12 12:30:11 2013 +0800

    Add new command easy-mark-sexp
---
 easy-kill.el |    9 +++++++++
 1 files changed, 9 insertions(+), 0 deletions(-)

diff --git a/easy-kill.el b/easy-kill.el
index 286d138..7523844 100644
--- a/easy-kill.el
+++ b/easy-kill.el
@@ -317,6 +317,15 @@ Temporally activate additional key bindings as follows:
   (easy-kill-init-candidate n)
   (easy-kill-activate-keymap))
 
+;;;###autoload
+(defun easy-mark-sexp (&optional n)
+  (interactive "p")
+  (let ((easy-kill-try-things '(sexp)))
+    (easy-mark n)
+    (unless (overlay-get easy-kill-candidate 'thing)
+      (overlay-put easy-kill-candidate 'thing 'sexp)
+      (easy-kill-thing 'sexp n))))
+
 ;;; Extended things
 
 (defun easy-kill-on-buffer-file-name (n)