ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug fixes.

This commit is contained in:
Carsten Dominik 2008-04-21 16:46:35 +02:00
parent 1508d31b6e
commit 2ee5c7e9d1
2 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/org-colview-xemacs.el
View File

@ -348,6 +348,14 @@ This is the compiled version of the format.")
(org-overlay-put ov 'org-columns-pom pom) (org-overlay-put ov 'org-columns-pom pom)
(org-overlay-put ov 'org-columns-format f) (org-overlay-put ov 'org-columns-format f)
(when (featurep 'xemacs) (when (featurep 'xemacs)
(if (or (not (char-after beg))
(equal (char-after beg) ?\n))
(let ((inhibit-read-only t))
(save-excursion
(goto-char beg)
(org-unmodified (insert " "))
;; FIXME: add props and remove later?
)))
(goto-char beg) (goto-char beg)
(org-columns-new-overlay (org-columns-new-overlay
beg (1+ beg) nil 'org-columns-space) beg (1+ beg) nil 'org-columns-space)

2
lisp/org.el
View File

@ -9695,6 +9695,8 @@ formats in the current buffer."
(setq hiddenp (org-invisible-p)) (setq hiddenp (org-invisible-p))
(end-of-line 1) (end-of-line 1)
(and (equal (char-after) ?\n) (forward-char 1)) (and (equal (char-after) ?\n) (forward-char 1))
(while (looking-at "^[ \t]*\\(:CLOCK:\\|CLOCK\\|:END:\\)")
(beginning-of-line 2))
(org-skip-over-state-notes) (org-skip-over-state-notes)
(skip-chars-backward " \t\n\r") (skip-chars-backward " \t\n\r")
(if (eq (char-before) ?*) (forward-char 1)) (if (eq (char-before) ?*) (forward-char 1))