From 0a9c180b639994f110068abe66bdc8795e221fd5 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Fri, 9 May 2008 22:21:40 +0200 Subject: [PATCH] Bug fixes. --- lisp/org.el | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index f6c23450c..a85cb1dc8 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -8359,8 +8359,13 @@ With argument REMOVE, remove any scheduling date from the item." (org-end-of-subtree t t) (while (re-search-backward re beg t) (replace-match "") - (unless (string-match "\\S-" (buffer-substring (point-at-bol) (point))) - (delete-region (point-at-bol) (min (1+ (point)) (point-max)))))))) + (if (and (string-match "\\S-" (buffer-substring (point-at-bol) (point))) + (equal (char-before) ?\ )) + (backward-delete-char 1) + (if (string-match "^[ \t]*$" (buffer-substring + (point-at-bol) (point-at-eol))) + (delete-region (point-at-bol) + (min (point-max) (1+ (point-at-eol)))))))))) (defun org-add-planning-info (what &optional time &rest remove) "Insert new timestamp with keyword in the line directly after the headline. @@ -12440,8 +12445,9 @@ This command does many different things, depending on context: (if (org-at-table-p) (org-call-with-arg 'org-table-recalculate t)))) (t - (org-set-regexps-and-options) - (org-restart-font-lock) +; (org-set-regexps-and-options) +; (org-restart-font-lock) + (let ((org-inhibit-startup t)) (org-mode-restart)) (message "Local setup has been refreshed")))) (t (error "C-c C-c can do nothing useful at this location."))))) -- 2.11.4.GIT