diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-07-20 13:32:39 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-07-20 13:32:39 +0200 |
| commit | 06ee8ac36c9590ed028a3633a21a655104f772c8 (patch) | |
| tree | 46a4644da87f73602482a21c4347f30783b7ad98 /test | |
| parent | 6ebe8b03d80038d0c79ee0119efcd8272bb6a551 (diff) | |
| download | emacs-06ee8ac36c9590ed028a3633a21a655104f772c8.tar.gz | |
Mention `overlays-in' in the `overlays-at' doc string
* src/buffer.c (Foverlays_at): Mention `overlays-in' in the doc
string (bug#459).
Diffstat (limited to 'test')
| -rw-r--r-- | test/src/buffer-tests.el | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/test/src/buffer-tests.el b/test/src/buffer-tests.el index 2adffc024a4..20f85c6c93e 100644 --- a/test/src/buffer-tests.el +++ b/test/src/buffer-tests.el @@ -1386,4 +1386,17 @@ with parameters from the *Messages* buffer modification." (when (buffer-live-p base) (kill-buffer base))))))) +(ert-deftest zero-length-overlays-and-not () + (with-temp-buffer + (insert "hello") + (let ((long-overlay (make-overlay 2 4)) + (zero-overlay (make-overlay 3 3))) + ;; Exclude. + (should (= (length (overlays-at 3)) 1)) + (should (eq (car (overlays-at 3)) long-overlay)) + ;; Include. + (should (= (length (overlays-in 3 3)) 2)) + (should (memq long-overlay (overlays-in 3 3))) + (should (memq zero-overlay (overlays-in 3 3)))))) + ;;; buffer-tests.el ends here |