From: Raimon Grau <raimonster@gmail.com>
Date: Sun, 1 Jul 2018 20:31:08 +0000 (+0100)
Subject: Fix url's thing-at-point beginning-op (Bug#32028)
X-Git-Tag: emacs-26.1.90~227
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dd514347140087112cdc632ac766a76fb4fe27f0;p=emacs.git

Fix url's thing-at-point beginning-op (Bug#32028)

* lisp/thingatpt.el (url): Fix beginning-op making.
---

diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el
index 7fe99b0714c..6a978fe96ef 100644
--- a/lisp/thingatpt.el
+++ b/lisp/thingatpt.el
@@ -474,7 +474,7 @@ looks like an email address, \"ftp://\" if it starts with
 
 (put 'url 'end-op (lambda () (end-of-thing 'url)))
 
-(put 'url 'beginning-op (lambda () (end-of-thing 'url)))
+(put 'url 'beginning-op (lambda () (beginning-of-thing 'url)))
 
 ;; The normal thingatpt mechanism doesn't work for complex regexps.
 ;; This should work for almost any regexp wherever we are in the