summaryrefslogtreecommitdiff
path: root/lisp/thingatpt.el
diff options
context:
space:
mode:
authorRaimon Grau <raimonster@gmail.com>2018-07-01 21:31:08 +0100
committerNoam Postavsky <npostavs@gmail.com>2018-07-29 12:07:07 -0400
commitdd514347140087112cdc632ac766a76fb4fe27f0 (patch)
treedf511c505afb3244392ef89b8d6139a681d94b5b /lisp/thingatpt.el
parent39d3e8b6bc465df7a9400165a4d813af8af37237 (diff)
downloademacs-dd514347140087112cdc632ac766a76fb4fe27f0.tar.gz
Fix url's thing-at-point beginning-op (Bug#32028)
* lisp/thingatpt.el (url): Fix beginning-op making.
Diffstat (limited to 'lisp/thingatpt.el')
-rw-r--r--lisp/thingatpt.el2
1 files changed, 1 insertions, 1 deletions
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