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

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>
 

Makefile

@@ -242,3 +242,7 @@ clean:
 
 push:
 	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)

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

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.
+

TODO

@@ -1,6 +1,5 @@
           -*- mode:org -*-
 
-
 Ideas for time estimates:
 
  {22}    22 minutes

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))