mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

Fix bug in thing-at-point--bounds-of-well-formed-url

Browse source 
* lisp/thingatpt.el (thing-at-point--bounds-of-well-formed-url): Make
  sure boundary contains current point.
This commit is contained in:
Leo Liu 2015-07-09 10:18:00 +08:00
parent 15fafa34d0
commit 7a94f28a47
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/thingatpt.el
View file

@ -361,7 +361,7 @@ the bounds of a possible ill-formed URI (one lacking a scheme)."
(if found
(cons (match-beginning 1) (match-end 1))))))
(defun thing-at-point--bounds-of-well-formed-url (beg end _pt)
(defun thing-at-point--bounds-of-well-formed-url (beg end pt)
(save-excursion
(goto-char beg)
(let (url-beg paren-end regexp)
@ -388,7 +388,11 @@ the bounds of a possible ill-formed URI (one lacking a scheme)."
(scan-lists (1- url-beg) 1 0))))
(not (blink-matching-check-mismatch (1- url-beg) paren-end))
(setq end (1- paren-end)))
(cons url-beg end)))))
;; Ensure PT is actually within BOUNDARY. Check the following
;; example with point on the beginning of the line:
;;
;; 3,1406710489,http://gnu.org,0,"0"
(and (<= url-beg pt end) (cons url-beg end))))))
(put 'url 'thing-at-point 'thing-at-point-url-at-point)