[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org-remark e07dbdd2e7 2/2: fix: args-out-of-range error
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org-remark e07dbdd2e7 2/2: fix: args-out-of-range error during loading highlights #89 |
Date: |
Sat, 2 Nov 2024 15:58:32 -0400 (EDT) |
branch: externals/org-remark
commit e07dbdd2e70db2e6c5543a8de58da12ccf1bc5cb
Author: Noboru Ota <me@nobiot.com>
Commit: Noboru Ota <me@nobiot.com>
fix: args-out-of-range error during loading highlights #89
---
org-remark.el | 23 ++++++++++++-----------
1 file changed, 12 insertions(+), 11 deletions(-)
diff --git a/org-remark.el b/org-remark.el
index 803c0c94c9..3f9f809f12 100644
--- a/org-remark.el
+++ b/org-remark.el
@@ -1690,17 +1690,18 @@ process."
"Org-remark: error during loading highlights: %S"
;; Load highlights with demoted errors -- this makes the loading
;; robust against errors in loading.
- (dolist (highlight (org-remark-highlights-get notes-buf))
- (let ((ov (org-remark-highlight-load highlight)))
- (when ov (push ov overlays))))
- (unless update (org-remark-notes-setup notes-buf source-buf))
- (if overlays
- (progn (run-hook-with-args
'org-remark-highlights-after-load-functions
- overlays notes-buf)
- ;; Return t
- t)
- ;; if there is no overlays loaded, return nil
- nil))))))
+ (org-with-wide-buffer
+ (dolist (highlight (org-remark-highlights-get notes-buf))
+ (let ((ov (org-remark-highlight-load highlight)))
+ (when ov (push ov overlays))))
+ (unless update (org-remark-notes-setup notes-buf source-buf))
+ (if overlays
+ (progn (run-hook-with-args
'org-remark-highlights-after-load-functions
+ overlays notes-buf)
+ ;; Return t
+ t)
+ ;; if there is no overlays loaded, return nil
+ nil)))))))
(defun org-remark-highlights-clear ()
"Delete all highlights in the buffer.