From a1c9b4d08012aa6794ad817904596265aa3e6d55 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 9 Jul 1997 00:04:00 +0000 Subject: [PATCH] (url): Define end-op property again. Wrap end-op and beginning-op lambdas with `function', not quote. --- lisp/thingatpt.el | 20 +++++++++++--------- 1 file changed, 11 insertions(+), 9 deletions(-) diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el index 4ea50c5dd23..88a2807538b 100644 --- a/lisp/thingatpt.el +++ b/lisp/thingatpt.el @@ -299,16 +299,18 @@ point." (goto-char match) (looking-at regexp))))) -;; Can't do it sensibly? -;(put 'url 'end-op -; '(lambda () (skip-chars-forward (concat ":" thing-at-point-url-chars)) -; (skip-chars-backward ".,:"))) +(put 'url 'end-op + (function (lambda () + (let ((bounds (thing-at-point-bounds-of-url-at-point))) + (if bounds + (goto-char (cdr bounds)) + (error "No URL here")))))) (put 'url 'beginning-op - '(lambda () - (let ((bounds (thing-at-point-bounds-of-url-at-point))) - (if bounds - (goto-char (car bounds)) - (error "No URL here"))))) + (function (lambda () + (let ((bounds (thing-at-point-bounds-of-url-at-point))) + (if bounds + (goto-char (car bounds)) + (error "No URL here")))))) ;; Whitespace -- 2.39.2