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

(text-property-search-forward): Fix search at the end

Browse source 
* lisp/emacs-lisp/text-property-search.el
(text-property-search-forward): Fix search at the end of the
buffer with no text properties.
This commit is contained in:
Lars Ingebrigtsen 2018-04-22 16:58:10 +02:00
parent 214ca3b585
commit e6edd177a9
1 changed files with 12 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
lisp/emacs-lisp/text-property-search.el
View file

@ -58,12 +58,17 @@ value of PROPERTY at the start of the region."
(let ((string (completing-read "Search for property: " obarray)))
(when (> (length string) 0)
(intern string obarray)))))
;; We're standing in the property we're looking for, so find the
;; end.
(if (and (text-property--match-p value (get-text-property (point) property)
predicate)
(not not-immediate))
(text-property--find-end-forward (point) property value predicate)
(cond
;; No matches at the end of the buffer.
((eobp)
nil)
;; We're standing in the property we're looking for, so find the
;; end.
((and (text-property--match-p value (get-text-property (point) property)
predicate)
(not not-immediate))
(text-property--find-end-forward (point) property value predicate))
(t
(let ((origin (point))
(ended nil)
pos)
@ -86,7 +91,7 @@ value of PROPERTY at the start of the region."
(goto-char origin)
(setq ended t)))))
(and (not (eq ended t))
ended))))
ended)))))
(defun text-property--find-end-forward (start property value predicate)
(let (end)