mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-11-26 07:33:39 +00:00
Make updating the mibileorg.org checksum safe
This commit is contained in:
parent
bdb6992813
commit
9072f54582
@ -1,3 +1,8 @@
|
||||
2009-10-22 Carsten Dominik <carsten.dominik@gmail.com>
|
||||
|
||||
* org-mobile.el (org-mobile-update-checksum-for-capture-file):
|
||||
Make sure the regexp search can fail without throwing an error.
|
||||
|
||||
2009-10-22 John Wiegley <jwiegley@gmail.com>
|
||||
|
||||
* org-clock.el (org-resolve-clocks-if-idle): Fix to the way idle
|
||||
|
@ -218,7 +218,6 @@ string as argument."
|
||||
:group 'org-clock
|
||||
:type 'boolean)
|
||||
|
||||
|
||||
(defvar org-clock-in-prepare-hook nil
|
||||
"Hook run when preparing the clock.
|
||||
This hook is run before anything happens to the task that
|
||||
|
@ -547,7 +547,7 @@ If nothing new has beed added, return nil."
|
||||
(with-current-buffer buffer
|
||||
(when (re-search-forward (concat "\\([0-9a-fA-F]\\{30,\\}\\).*?"
|
||||
(regexp-quote org-mobile-capture-file)
|
||||
"[ \t]*$"))
|
||||
"[ \t]*$") nil t)
|
||||
(goto-char (match-beginning 1))
|
||||
(delete-region (match-beginning 1) (match-end 1))
|
||||
(insert (md5 buffer-string))
|
||||
|
Loading…
Reference in New Issue
Block a user