Improvements for RET and M-RET, + bug fixes.

6 files changed, 50 insertions, 14 deletions

diff --git a/ChangeLog b/ChangeLog
index 1ff4736..8bef50b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,9 +1,16 @@
+2008-02-08  Carsten Dominik  <dominik@science.uva.nl>
+
+	* org.el (org-clock-report): Show the clocktable when found.
+
 2008-02-07  Carsten Dominik  <dominik@science.uva.nl>
 
-	* org.el (org-version): With refix argument, insert `org-version'
+	* org.el (org-version): With prefix argument, insert `org-version'
 	at point.
 	(org-agenda-goto): Recenter the window after finding the target
 	location, to make sure the correct position will be displayed.
+	(org-agenda-get-deadlines): Don't scale priority with the warning
+	period.
+	(org-insert-heading): Don't break line in the middle of the line.
 
 2008-02-06  Carsten Dominik  <dominik@science.uva.nl>
 
diff --git a/Makefile b/Makefile
index 5a86cb1..bd4d406 100644
--- a/Makefile
+++ b/Makefile
@@ -241,4 +241,8 @@ clean:
 
 
 push:
-	git-push git+ssh://repo.or.cz/srv/git/org-mode.git master
\ No newline at end of file
+	git-push git+ssh://repo.or.cz/srv/git/org-mode.git master
+
+pushtag:
+	git-tag -m "adding tag" -a $(TAG)
+	git-push git+ssh://repo.or.cz/srv/git/org-mode.git $(TAG)
\ No newline at end of file
diff --git a/ORGWEBPAGE/Changes.org b/ORGWEBPAGE/Changes.org
index 7ed1865..cbd6424 100644
--- a/ORGWEBPAGE/Changes.org
+++ b/ORGWEBPAGE/Changes.org
@@ -5,6 +5,19 @@
 #+EMAIL:  carsten at orgmode dot org
 #+OPTIONS: H:3 num:nil toc:nil \n:nil @:t ::t |:t ^:{} *:t TeX:t LaTeX:nil
 
+* Version 5.22
+
+** Details
+
+   - M-RET no longer brakes a line in the middle, it will make a
+     new line ofter the current or (if cursor is at the beginning
+     of the line) before the current line.
+
+   - RET, when executed in a headline after the main text and
+     before the tags will leave the tags in the current line and
+     create a new line below the current one.
+
+
 * Version 5.21
 
   Bug fixes, in particular the long-hunted bug about wrong window
diff --git a/README_GIT b/README_GIT
index fc6a68c..d50532c 100644
--- a/README_GIT
+++ b/README_GIT
@@ -56,6 +56,7 @@ development.
      hard to preserve this and I would like to ask everyone to
      keep this in mind when developing changes.
 
+
 * The CONTRIB directory
 
 The git repository contains a CONTRIB directory.  This directory
@@ -69,10 +70,9 @@ of commentary in the file.  Please discuss your extensions on
 emacs-orgmode@gnu.org.
 
 The CONTRIB directory will be part of the Org-mode distribution
-starting with version 6.0 (the first release after 5.20).  When
-that happens, people who want to use extensions will have to make
-sure their search path (executable or Lisp) includes the relevant
-directories.
+starting with version 5.21.  When that happens, people who want
+to use extensions will have to make sure their search path
+(executable or Lisp) includes the relevant directories.
 
 After files have been tested in CONTRIB and found to be generally
 useful, we may decide to clarify copyright questions and then
@@ -80,3 +80,4 @@ move the file into the Org-mode core.  This means they will be
 moved up to the root directory and will also eventually be added
 to Emacs CVS tree.  The final decision about this rests with the
 maintainer.
+
diff --git a/TODO b/TODO
index eff4239..58a063e 100644
--- a/TODO
+++ b/TODO
@@ -1,6 +1,5 @@
           -*- mode:org -*-
 
-
 Ideas for time estimates:
 
  {22}    22 minutes
diff --git a/org.el b/org.el
index d5a994a..9a4d474 100644
--- a/org.el
+++ b/org.el
@@ -6156,9 +6156,8 @@ frame is not changed."
   "Insert a new heading or item with same depth at point.
 If point is in a plain list and FORCE-HEADING is nil, create a new list item.
 If point is at the beginning of a headline, insert a sibling before the
-current headline.  If point is in the middle of a headline, split the headline
-at that position and make the rest of the headline part of the sibling below
-the current headline."
+current headline.  If point is not at the beginning, do not split the line,
+but create the new hedline after the current line."
   (interactive "P")
   (if (= (buffer-size) 0)
       (insert "\n* ")
@@ -6175,13 +6174,19 @@ the current headline."
 	 ((and (org-on-heading-p) (bolp)
 	       (or (bobp)
 		   (save-excursion (backward-char 1) (not (org-invisible-p)))))
+	  ;; insert before the current line
 	  (open-line (if blank 2 1)))
 	 ((and (bolp)
 	       (or (bobp)
 		   (save-excursion
 		     (backward-char 1) (not (org-invisible-p)))))
+	  ;; insert right here
 	  nil)
-	 (t (newline (if blank 2 1))))
+	 (t
+	  ;; in the middle of the line
+	  (org-show-entry)
+	  (end-of-line 1)
+	  (newline (if blank 2 1))))
 	(insert head) (just-one-space)
 	(setq pos (point))
 	(end-of-line 1)
@@ -18804,7 +18809,9 @@ When called with a prefix argument, move to the first clock table in the
 buffer and update it."
   (interactive "P")
   (org-remove-clock-overlays)
-  (when arg (org-find-dblock "clocktable"))
+  (when arg
+    (org-find-dblock "clocktable")
+    (org-show-entry))
   (if (org-in-clocktable-p)
       (goto-char (org-in-clocktable-p))
     (org-create-dblock (list :name "clocktable"
@@ -21388,7 +21395,6 @@ the documentation of `org-diary'."
 	    'undone-face 'org-warning 'done-face 'org-done)
 	  (push txt ee))
 	(goto-char (point-at-eol))))
-;	(outline-next-heading)))
     (nreverse ee)))
 
 (defun org-agenda-get-deadlines ()
@@ -21454,7 +21460,7 @@ the documentation of `org-diary'."
 		(org-add-props txt props
 		  'org-marker (org-agenda-new-marker pos)
 		  'org-hd-marker (org-agenda-new-marker pos1)
-		  'priority (+ (floor (* dfrac 100.))
+		  'priority (+ (- diff)
 			       (org-get-priority txt))
 		  'org-category category
 		  'type (if upcomingp "upcoming-deadline" "deadline")
@@ -26965,6 +26971,12 @@ See the individual commands for more information."
   (interactive)
   (cond
    ((bobp) (if indent (newline-and-indent) (newline)))
+   ((and (org-at-heading-p)
+	 (looking-at
+	  (org-re "\\([ \t]+\\(:[[:alnum:]_@:]+:\\)\\)[ \t]*$")))
+    (org-show-entry)
+    (end-of-line 1)
+    (newline))
    ((org-at-table-p)
     (org-table-justify-field-maybe)
     (call-interactively 'org-table-next-row))