소스 검색

2 Bug fixes, following report and patch from Thomas Morgan.

Carsten Dominik 17 년 전
부모
커밋
c49834bb2a
3개의 변경된 파일12개의 추가작업 그리고 2개의 파일을 삭제
  1. 7 0
      lisp/ChangeLog
  2. 4 1
      lisp/org-agenda.el
  3. 1 1
      lisp/org.el

+ 7 - 0
lisp/ChangeLog

@@ -9,6 +9,13 @@
 	without the path into the format, to allow the location format to
 	contain a subdirectory.
 
+	* org-agenda.el (org-agenda-post-command-hook): If point is at end
+	of buffer, and the `org-agenda-type' property undefined, use the
+	value from the character before.
+
+	* org.el (org-add-planning-info): Don't let indentation for
+	would-be timestamp become extra whitespace at the end of headline.
+
 2008-05-07  Carsten Dominik  <dominik@science.uva.nl>
 
 	* org.el (org-remove-double-quotes, org-file-contents): New

+ 4 - 1
lisp/org-agenda.el

@@ -4334,7 +4334,10 @@ so that the date SD will be in that range."
 
 (defun org-agenda-post-command-hook ()
   (and (eolp) (not (bolp)) (backward-char 1))
-  (setq org-agenda-type (get-text-property (point) 'org-agenda-type))
+  (setq org-agenda-type
+	(or (get-text-property (point) 'org-agenda-type)
+	    (get-text-property (max (point-min) (1- (point)))
+			       'org-agenda-type)))
   (if (and org-agenda-follow-mode
 	   (get-text-property (point) 'org-marker))
       (org-agenda-show)))

+ 1 - 1
lisp/org.el

@@ -8448,7 +8448,7 @@ be removed."
 	  (widen)
 	  (if (and (looking-at "[ \t]+\n")
 		   (equal (char-before) ?\n))
-	      (backward-delete-char 1))
+	      (delete-region (1- (point)) (point-at-eol)))
 	  ts)))))
 
 (defvar org-log-note-marker (make-marker))