andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/thingatpt.el (bounds-of-thing-at-point): Return nil rather than

Browse source 
bounds for the empty string.

Fixes: debbugs:8667
This commit is contained in:
Stefan Monnier 2011-05-13 14:02:56 -03:00
parent ceb90e5198
commit f278f87fe6
2 changed files with 11 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,9 +1,14 @@
2011-05-13 Stefan Monnier <monnier@iro.umontreal.ca>
* thingatpt.el (bounds-of-thing-at-point): Return nil rather than
bounds for the empty string (bug#8667).
2011-05-13 Glenn Morris <rgm@gnu.org>
* mail/feedmail.el (feedmail-buffer-to-sendmail): Require sendmail.
* mail/sendmail.el (sendmail-program): Try executable-find first.
(sendmail-send-it): sendmail-program cannot be unbound.
(sendmail-send-it): `sendmail-program' cannot be unbound.
* calendar/appt.el (appt-make-list): Simplify.
(appt-time-msg-list): Doc fix.

9
lisp/thingatpt.el
View file

@ -89,18 +89,19 @@ of the textual entity that was found."
(or (get thing 'beginning-op)
(lambda () (forward-thing thing -1))))
(let ((beg (point)))
(if (not (and beg (> beg orig)))
(if (<= beg orig)
;; If that brings us all the way back to ORIG,
;; it worked. But END may not be the real end.
;; So find the real end that corresponds to BEG.
;; FIXME: in which cases can `real-end' differ from `end'?
(let ((real-end
(progn
(funcall
(or (get thing 'end-op)
(lambda () (forward-thing thing 1))))
(point))))
(if (and beg real-end (<= beg orig) (<= orig real-end))
(cons beg real-end)))
(when (and (<= orig real-end) (< beg real-end))
(cons beg real-end)))
(goto-char orig)
;; Try a second time, moving backward first and then forward,
;; so that we can find a thing that ends at ORIG.
@ -117,7 +118,7 @@ of the textual entity that was found."
(or (get thing 'beginning-op)
(lambda () (forward-thing thing -1))))
(point))))
(if (and real-beg end (<= real-beg orig) (<= orig end))
(if (and (<= real-beg orig) (<= orig end) (< real-beg end))
(cons real-beg end))))))
(error nil)))))