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

misc

Browse Source
This commit is contained in:
Kinneyzhang 2025-12-17 23:38:50 +08:00
parent 0903832e6f
commit ca63866018
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tp.el
View File

@ -4,6 +4,7 @@
;; Version: 0.1.0 ;; Version: 0.1.0
;; Keywords: convenience text-properties ;; Keywords: convenience text-properties
;; Author: Geekinney (kinneyzhang666@gmail.com)
;; Package-Requires: ((emacs "28.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 ;; This program is free software; you can redistribute it and/or
@ -1952,7 +1953,8 @@ Calling conventions:
(lambda (i-start i-end top belows) (lambda (i-start i-end top belows)
(let ((current-stack (tp--layer-stack-to-list top belows))) (let ((current-stack (tp--layer-stack-to-list top belows)))
(when (> (length current-stack) 1) (when (> (length current-stack) 1)
(let ((new-stack (append (cdr current-stack) (list (car current-stack))))) (let ((new-stack (append (cdr current-stack)
(list (car current-stack)))))
(set-text-properties (set-text-properties
(+ start i-start) (+ start i-end) (+ start i-start) (+ start i-end)
(tp--build-layer-props new-stack) (tp--build-layer-props new-stack)