leoliu pushed a commit to branch master in repository elpa. commit 2a545edf1ea159d052339a2bcbd0cfa858c1523d Author: Leo Liu <sdl....@gmail.com> 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 ()