procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Don't return whitespace for thing-at-point in whitespace-only buffers

Browse source 
* lisp/thingatpt.el (bounds-of-thing-at-point): If the buffer is
empty, return nil for most things (bug#52098).
This commit is contained in:
Lars Ingebrigtsen 2021-11-29 17:18:49 +01:00
parent 73cf27aa45
commit c2c9e7e3cb
1 changed files with 12 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/thingatpt.el
View file

@ -106,8 +106,17 @@ valid THING.
Return a cons cell (START . END) giving the start and end
positions of the thing found."
(if (get thing 'bounds-of-thing-at-point)
(funcall (get thing 'bounds-of-thing-at-point))
(cond
((get thing 'bounds-of-thing-at-point)
(funcall (get thing 'bounds-of-thing-at-point)))
;; If the buffer is totally empty, give up.
((and (not (eq thing 'whitespace))
(save-excursion
(goto-char (point-min))
(not (re-search-forward "[^\t\n ]" nil t))))
nil)
;; Find the thing.
(t
(let ((orig (point)))
(ignore-errors
(save-excursion
@ -149,7 +158,7 @@ positions of the thing found."
(lambda () (forward-thing thing -1))))
(point))))
(if (and (<= real-beg orig) (<= orig end) (< real-beg end))
(cons real-beg end))))))))))
(cons real-beg end)))))))))))
;;;###autoload
(defun thing-at-point (thing &optional no-properties)