branch: externals/org-mem
commit 208085119935031ca510ab0aabcc525031fb5469
Author: Martin Edström <[email protected]>
Commit: Martin Edström <[email protected]>
Style
---
org-mem-parser.el | 10 +++++-----
org-mem.el | 8 ++++----
2 files changed, 9 insertions(+), 9 deletions(-)
diff --git a/org-mem-parser.el b/org-mem-parser.el
index 6c5673f38f..ee4b97a57c 100644
--- a/org-mem-parser.el
+++ b/org-mem-parser.el
@@ -386,7 +386,7 @@ between buffer substrings \":PROPERTIES:\" and \":END:\"."
(buffer-read-only t)
bad-path
found-entries
- file-data
+ file-datum
file-attr
problem
coding-system
@@ -778,7 +778,7 @@ between buffer substrings \":PROPERTIES:\" and \":END:\"."
;; Done analyzing this file.
(cl-assert (eobp))
- (setq file-data (list file
+ (setq file-datum (list file
file-attr
LNUM
(point)
@@ -789,7 +789,7 @@ between buffer substrings \":PROPERTIES:\" and \":END:\"."
(( error )
(widen)
(setq problem (list (format-time-string "%H:%M") file (point) err
(line-number-at-pos)))
- (setq file-data (list file
+ (setq file-datum (list file
file-attr
(line-number-at-pos (point-max))
(point-max)
@@ -798,13 +798,13 @@ between buffer substrings \":PROPERTIES:\" and \":END:\"."
;; Catch fake `skip-file' signal. Already caught real error signals.
(t
(cl-assert (null problem))
- (cl-assert (null file-data))
+ (cl-assert (null file-datum))
(cl-assert (null found-entries))
(cl-assert (null org-mem-parser--found-links))))
(list bad-path
problem
- file-data
+ file-datum
found-entries
org-mem-parser--found-links)))
diff --git a/org-mem.el b/org-mem.el
index d13a80dae1..086ad12e38 100644
--- a/org-mem.el
+++ b/org-mem.el
@@ -1386,11 +1386,11 @@ overrides a default message printed when
`org-mem-do-cache-text' is t."
(org-mem--invalidate-file-names bad-paths)
;; Build tables.
(with-current-buffer (get-buffer-create " *org-mem-fundamental-scratch*" t)
- (cl-loop for (_ problem file-data entries links) in parse-results do
+ (cl-loop for (_ problem file-datum entries links) in parse-results do
(when problem (push problem problems))
- (when file-data
- (puthash (car file-data) file-data
org-mem--truename<>metadata)
- (run-hook-with-args 'org-mem--record-file-functions
file-data))
+ (when file-datum
+ (puthash (car file-datum) file-datum
org-mem--truename<>metadata)
+ (run-hook-with-args 'org-mem--record-file-functions
file-datum))
(dolist (entry entries)
(org-mem--record-entry entry)
(run-hook-with-args 'org-mem--record-entry-functions entry))
