[elpa] 64/77: Teach easy-kill to handle rectangle-mark from Emacs trunk

[Leo Liu]

leoliu pushed a commit to branch master
in repository elpa.

commit 33160afb45b718f4a7d8675b5cf81299a6497309
Author: Leo Liu <address@hidden>
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)))