mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-20 07:00:31 -08:00
Code Issues Projects Releases Wiki Activity

(org-todo): Save and restore match data.

Browse source
This commit is contained in:
Carsten Dominik 2007-10-25 13:57:28 +00:00
parent 89be04afb5
commit 613bf6a74f
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/textmodes/org.el
View file

@ -5,7 +5,7 @@
;; Author: Carsten Dominik <carsten at orgmode dot org>
;; Keywords: outlines, hypermedia, calendar, wp
;; Homepage: http://orgmode.org
;; Version: 5.13f
;; Version: 5.13g
;;
;; This file is part of GNU Emacs.
;;
@ -83,7 +83,7 @@
;;; Version
(defconst org-version "5.13f"
(defconst org-version "5.13g"
"The version number of the file org.el.")
(defun org-version ()
(interactive)
@ -13412,7 +13412,8 @@ For calling through lisp, arg is also interpreted in the following way:
(if (looking-at outline-regexp) (goto-char (1- (match-end 0))))
(or (looking-at (concat " +" org-todo-regexp " *"))
(looking-at " *"))
(let* ((startpos (line-beginning-position))
(let* ((match-data (match-data))
(startpos (line-beginning-position))
(logging (save-match-data (org-entry-get nil "LOGGING" t)))
(org-log-done (org-parse-local-options logging 'org-log-done))
(org-log-repeat (org-parse-local-options logging 'org-log-repeat))
@ -13496,6 +13497,7 @@ For calling through lisp, arg is also interpreted in the following way:
;; fail silently
(message "TODO state change from %s to %s blocked" this state)
(throw 'exit nil))))
(store-match-data match-data)
(replace-match next t t)
(unless (pos-visible-in-window-p hl-pos)
(message "TODO state changed to %s" (org-trim next)))