From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 9 Jul 1997 00:04:00 +0000 (+0000)
Subject: (url): Define end-op property again.  Wrap end-op
X-Git-Tag: emacs-20.1~1264
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a1c9b4d08012aa6794ad817904596265aa3e6d55;p=emacs.git

(url): Define end-op property again.  Wrap end-op
and beginning-op lambdas with `function', not quote.
---

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