From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 7 Aug 2020 09:30:55 +0000 (+0200)
Subject: Allow ffap to do the right thing with 'https://gnu.org'
X-Git-Tag: emacs-28.0.90~6773
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8a9b13be10fcb95481b177cf8c873fc41e0eb8dc;p=emacs.git

Allow ffap to do the right thing with 'https://gnu.org'

* lisp/thingatpt.el (thing-at-point-bounds-of-url-at-point): Don't
include trailing ' in the URL, because it's more likely to be a
punctuation character (bug#29410).
---

diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el
index 1a15df33e50..483a2c9bd83 100644
--- a/lisp/thingatpt.el
+++ b/lisp/thingatpt.el
@@ -334,7 +334,7 @@ the bounds of a possible ill-formed URI (one lacking a scheme)."
       ;; may contain parentheses but may not contain spaces (RFC3986).
       (let* ((allowed-chars "--:=&?$+@-Z_[:alpha:]~#,%;*()!'")
 	     (skip-before "^[0-9a-zA-Z]")
-	     (skip-after  ":;.,!?")
+	     (skip-after  ":;.,!?'")
 	     (pt (point))
 	     (beg (save-excursion
 		    (skip-chars-backward allowed-chars)