diff options
Diffstat (limited to '.emacs.d/site-lisp/eltuki.el')
| -rw-r--r-- | .emacs.d/site-lisp/eltuki.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/.emacs.d/site-lisp/eltuki.el b/.emacs.d/site-lisp/eltuki.el index cc5d1b3..4815108 100644 --- a/.emacs.d/site-lisp/eltuki.el +++ b/.emacs.d/site-lisp/eltuki.el @@ -84,8 +84,8 @@ (let ((newtime (format-time-string " %s"))) (if (re-search-forward "^#\\+TIMESTAMP:\\(.*\\)$" nil t) (replace-match newtime nil t nil 1) - (search-forward "\n\n") - (backward-char) + (when (search-forward "\n\n" nil t) + (backward-char)) (insert "#+TIMESTAMP:" newtime "\n"))))) (defun eltuki-get-tags () @@ -102,8 +102,8 @@ (goto-char (point-min)) (if (re-search-forward "^#\\+TAGS:\\(.*\\)$" nil t) (replace-match tags t t nil 1) - (search-forward "\n\n") - (backward-char) + (when (search-forward "\n\n" nil t) + (backward-char)) (insert "#+TAGS:" tags "\n")))) (defun eltuki-get-status () @@ -123,8 +123,8 @@ " draft"))) (if (re-search-forward "^#\\+STATUS:\\(.*\\)$" nil t) (replace-match newstatus t t nil 1) - (search-forward "\n\n") - (backward-char) + (when (search-forward "\n\n" nil t) + (backward-char)) (insert "#+STATUS:" newstatus "\n"))))) (defun eltuki-get-comment-status () @@ -145,8 +145,8 @@ " closed"))) (if (re-search-forward "^#\\+COMMENTSTATUS:\\(.*\\)$" nil t) (replace-match newstatus t t nil 1) - (search-forward "\n\n") - (backward-char) + (when (search-forward "\n\n" nil t) + (backward-char)) (insert "#+COMMENTSTATUS:" newstatus "\n"))))) (defun eltuki-slugify-string (str) |