|
@@ -4323,7 +4323,14 @@ of what a project is and how to check if it stuck, customize the variable
|
|
|
;; Add prefix to each line and extend the text properties
|
|
|
(if (zerop (buffer-size))
|
|
|
(setq entries nil)
|
|
|
- (setq entries (buffer-substring (point-min) (- (point-max) 1)))))
|
|
|
+ (setq entries (buffer-substring (point-min) (- (point-max) 1)))
|
|
|
+ (setq entries
|
|
|
+ (with-temp-buffer
|
|
|
+ (insert entries) (goto-char (point-min))
|
|
|
+ (while (re-search-forward "\n[ \t]+\\(.+\\)$" nil t)
|
|
|
+ (unless (save-match-data (string-match diary-time-regexp (match-string 1)))
|
|
|
+ (replace-match (concat "; " (match-string 1)))))
|
|
|
+ (buffer-string)))))
|
|
|
(set-buffer-modified-p nil)
|
|
|
(kill-buffer diary-fancy-buffer)))
|
|
|
(when entries
|