From 292baddb445c921f3041f4b2a27a75c3649692ac Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Mon, 10 Mar 2008 19:32:16 +0100 Subject: [PATCH] Last fixes before release. --- ChangeLog | 5 +++++ org.el | 11 +++++++++-- 2 files changed, 14 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 12fe15694..3b758df37 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2008-03-10 Carsten Dominik + + * org.el (org-ctrl-c-star): Implement a missing branch in the + decision tree. + 2008-03-10 Bastien Guerry * org-publish.el (org-publish-file): Send an error when file is diff --git a/org.el b/org.el index 48345d351..fe3d5a5a4 100644 --- a/org.el +++ b/org.el @@ -27739,8 +27739,15 @@ line into a subheading." (min (1+ (point-at-eol)) (point-max)))) ((org-at-item-p) ;; Convert to heading - ;; FIXME: not yet implemented - ) + (let ((level (save-match-data + (save-excursion + (condition-case nil + (progn + (org-back-to-heading t) + (funcall outline-level)) + (error 0)))))) + (replace-match + (concat (make-string (org-get-valid-level level 1) ?*) " ") t t))) (t (org-toggle-region-headings (point-at-bol) (min (1+ (point-at-eol)) (point-max))))))