[elpa] 66/77: Fix #9: Work around fixed bug in thingatpt.el

[Leo Liu]

leoliu pushed a commit to branch master
in repository elpa.

commit 2a545edf1ea159d052339a2bcbd0cfa858c1523d
Author: Leo Liu <address@hidden>
Date:   Wed Nov 6 17:17:25 2013 +0800

    Fix #9: Work around fixed bug in thingatpt.el
    
    Upstream bug report http://debbugs.gnu.org/15808
---
 easy-kill.el |   14 +++++++++-----
 1 files changed, 9 insertions(+), 5 deletions(-)

diff --git a/easy-kill.el b/easy-kill.el
index a105777..f8db73f 100644
--- a/easy-kill.el
+++ b/easy-kill.el
@@ -145,11 +145,15 @@ Do nothing if `easy-kill-inhibit-message' is non-nil."
         (overlay-put i 'as (propertize " " 'face 'easy-kill-origin))
         (overlay-put o 'origin-indicator i)))
     (setq easy-kill-candidate o)
-    (let ((easy-kill-inhibit-message t))
-      (dolist (thing easy-kill-try-things)
-        (easy-kill-thing thing n)
-        (or (string= (easy-kill-candidate) "")
-            (return))))
+    (save-restriction
+      ;; Work around http://debbugs.gnu.org/15808; not needed in 24.4.
+      (narrow-to-region (max (point-min) (- (point) 1000))
+                        (min (point-max) (+ (point) 1000)))
+      (let ((easy-kill-inhibit-message t))
+        (dolist (thing easy-kill-try-things)
+          (easy-kill-thing thing n)
+          (or (string= (easy-kill-candidate) "")
+              (return)))))
     o))
 
 (defun easy-kill-indicate-origin ()