geekinney/tp
1
0
Fork 0
Code Issues Pull Requests Actions 2 Packages Projects Releases Wiki Activity

Update Emacs version requirement to 28.1+ for object-intervals support

Browse Source 
Co-authored-by: Kinneyzhang <38454496+Kinneyzhang@users.noreply.github.com>
This commit is contained in:
copilot-swe-agent[bot] 2025-12-11 02:45:55 +00:00
parent d1428a0748
commit 7614916aca
2 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
readme.md
View File

@ -18,7 +18,9 @@ Inspired by [ov.el](https://github.com/emacsorphanage/ov) for overlays.
(require 'tp)
```
Dependencies: `dash` (for list manipulation utilities)
**Requirements:**
- Emacs 28.1+ (uses `object-intervals` function)
- `dash` (for list manipulation utilities)
## Quick Start

11
tp.el
View File

@ -4,7 +4,7 @@
;; Version: 0.1.0
;; Keywords: convenience text-properties
;; Package-Requires: ((emacs "27.1") (dash "2.19.1"))
;; Package-Requires: ((emacs "28.1") (dash "2.19.1"))
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
@ -24,6 +24,8 @@
;; - Search and navigation functions for text properties
;;
;; Inspired by https://github.com/emacsorphanage/ov
;;
;; Requires Emacs 28.1+ for `object-intervals' function.
;;; Code:
@ -153,11 +155,13 @@ Returns a plist of all properties in the region."
props))
;;; Text property intervals
;; Note: Uses `object-intervals' which requires Emacs 28.1+
(defun tp-intervals (start end &optional object)
"Get all text property intervals from START to END in OBJECT.
OBJECT can be a buffer or string; nil defaults to current buffer.
Returns a list of (START END PROPERTIES) for each interval."
Returns a list of (START END PROPERTIES) for each interval.
Uses `object-intervals' (Emacs 28.1+)."
(let ((object (or object (current-buffer))))
(cond
((stringp object)
@ -169,7 +173,8 @@ Returns a list of (START END PROPERTIES) for each interval."
(type-of object))))))
(defun tp-empty-p (object)
"Return t if OBJECT has no text properties."
"Return t if OBJECT has no text properties.
Uses `object-intervals' (Emacs 28.1+)."
(null (object-intervals object)))
(defun tp-intervals-map (function start end &optional object)