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

Clarify point position after text-property-search

Browse source 
* lisp/emacs-lisp/text-property-search.el
(text-property-search-forward, text-property-search-backward): Doc fix
to clarify placement of point after search.
* test/lisp/emacs-lisp/text-property-search-tests.el
(text-property-search--pos-test): New defun.
(text-property-search-forward-point-at-beginning)
(text-property-search-backward-point-at-end): New test.
This commit is contained in:
Stefan Kangas 2020-10-30 12:48:30 +01:00
parent daa21fb895
commit b295174210
2 changed files with 24 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -34,11 +34,11 @@
"Search for the next region of text whose PROPERTY matches VALUE.
If not found, return nil and don't move point.
If found, move point to end of the region and return a `prop-match'
object describing the match. To access the details of the match,
use `prop-match-beginning' and `prop-match-end' for the buffer
positions that limit the region, and `prop-match-value' for the
value of PROPERTY in the region.
If found, move point to the start of the region and return a
`prop-match' object describing the match. To access the details
of the match, use `prop-match-beginning' and `prop-match-end' for
the buffer positions that limit the region, and
`prop-match-value' for the value of PROPERTY in the region.
PREDICATE is used to decide whether a value of PROPERTY should be
considered as matching VALUE.
@ -125,7 +125,7 @@ that matches VALUE."
"Search for the previous region of text whose PROPERTY matches VALUE.
Like `text-property-search-forward', which see, but searches backward,
and if a matching region is found, moves point to its beginning."
and if a matching region is found, place point at its end."
(interactive
(list
(let ((string (completing-read "Search for property: " obarray)))

18
test/lisp/emacs-lisp/text-property-search-tests.el
View file

@ -153,6 +153,24 @@
46 57 nil
(point-max)))
;;;; Position after search.
(defun text-property-search--pos-test (fun pos &optional reverse)
(with-temp-buffer (:name "position")
(insert (concat "foo "
(propertize "bar" 'x t)
" baz"))
(goto-char (if reverse (point-max) (point-min)))
(funcall fun 'x t)
(should (= (point) pos))))
(ert-deftest text-property-search-forward-point-at-beginning ()
(text-property-search--pos-test #'text-property-search-forward 5))
(ert-deftest text-property-search-backward-point-at-end ()
(text-property-search--pos-test #'text-property-search-backward 8 t))
(provide 'text-property-search-tests)
;;; text-property-search-tests.el ends here