GNU bug report logs -
#74132
31.0.50; thing-at-pt, ffap and Github markdown
Previous Next
Full log
View this message in rfc822 format
There was a typo in the patch I posted. It should instead look like this
```
diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el
--- a/lisp/thingatpt.el
+++ b/lisp/thingatpt.el
@@ -502,9 +502,15 @@ thing-at-point-bounds-of-url-at-point
(let* ((allowed-chars "--:=&?$+@-Z_[:alpha:]~#,%;*()!'[]")
(skip-before "^[0-9a-zA-Z]")
(skip-after ":;.,!?'")
+ (hard-beg (and thing-at-point-beginning-of-url-regexp
+ (save-excursion
+ (and
+ (re-search-backward
+ thing-at-point-beginning-of-url-regexp nil t)
+ (point)))))
(pt (point))
(beg (save-excursion
- (skip-chars-backward allowed-chars)
+ (skip-chars-backward allowed-chars hard-beg)
(skip-chars-forward skip-before pt)
(point)))
(end (save-excursion
```
This bug report was last modified 117 days ago.
Previous Next
GNU bug tracking system
Copyright (C) 1999 Darren O. Benham,
1997,2003 nCipher Corporation Ltd,
1994-97 Ian Jackson.