Emacs: Update function name
This commit is contained in:
@@ -78,8 +78,8 @@ When ANYWHERE is non-nil, search beyond the preamble."
|
|||||||
t)
|
t)
|
||||||
(point)))))
|
(point)))))
|
||||||
|
|
||||||
(defun dot/org-set-file-time-property (property value)
|
(defun dot/org-set-file-property (property value)
|
||||||
"Set the file time PROPERTY in the preamble."
|
"Set the file PROPERTY in the preamble."
|
||||||
(when-let ((pos (dot/org-find-file-property property)))
|
(when-let ((pos (dot/org-find-file-property property)))
|
||||||
(save-excursion
|
(save-excursion
|
||||||
(goto-char pos)
|
(goto-char pos)
|
||||||
@@ -92,8 +92,8 @@ When ANYWHERE is non-nil, search beyond the preamble."
|
|||||||
(defun dot/org-set-last-modified ()
|
(defun dot/org-set-last-modified ()
|
||||||
"Update the LAST_MODIFIED file property in the preamble."
|
"Update the LAST_MODIFIED file property in the preamble."
|
||||||
(when (derived-mode-p 'org-mode)
|
(when (derived-mode-p 'org-mode)
|
||||||
(dot/org-set-file-time-property "LAST_MODIFIED"
|
(dot/org-set-file-property "LAST_MODIFIED"
|
||||||
(format-time-string "[%Y-%m-%d %a %H:%M]")))))))
|
(format-time-string "[%Y-%m-%d %a %H:%M]")))))))
|
||||||
|
|
||||||
;; Org agenda.
|
;; Org agenda.
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user