leoliu pushed a commit to branch master
in repository elpa.
commit 33160afb45b718f4a7d8675b5cf81299a6497309
Author: Leo Liu <[email protected]>
Date: Wed Oct 30 01:53:14 2013 +0800
Teach easy-kill to handle rectangle-mark from Emacs trunk
---
easy-kill.el | 7 +++++--
1 files changed, 5 insertions(+), 2 deletions(-)
diff --git a/easy-kill.el b/easy-kill.el
index 69448d9..9c2638d 100644
--- a/easy-kill.el
+++ b/easy-kill.el
@@ -370,7 +370,10 @@ Temporally activate additional key bindings as follows:
others => save selection and exit."
(interactive "p")
(if (use-region-p)
- (kill-ring-save (region-beginning) (region-end))
+ (if (fboundp 'rectangle-mark)
+ (with-no-warnings ; new in 24.4
+ (kill-ring-save (region-beginning) (region-end) t))
+ (kill-ring-save (region-beginning) (region-end)))
(setq easy-kill-mark nil)
(setq easy-kill-append (eq last-command 'kill-region))
(easy-kill-init-candidate n)
@@ -477,7 +480,7 @@ inspected."
(defun easy-kill-on-nxml-element (n)
(let ((nxml-sexp-element-flag t)
- (up-list-fn #'nxml-up-element))
+ (up-list-fn 'nxml-up-element))
(cond
((memq n '(+ -))
(let ((bounds (easy-kill-bounds-of-list n)))
