Ver Fonte

Cycling: Fix bug

The first cycle command on a line did not work correctly, to always
switched to FOLD.  This was due to an error in new, faster code to
find the next visible line.
Carsten Dominik há 16 anos atrás
pai
commit
a4a8bd2d07
2 ficheiros alterados com 7 adições e 1 exclusões
  1. 5 0
      lisp/ChangeLog
  2. 2 1
      lisp/org.el

+ 5 - 0
lisp/ChangeLog

@@ -1,3 +1,8 @@
+2009-08-04  Carsten Dominik  <carsten.dominik@gmail.com>
+
+	* org.el (org-cycle-internal-local): Fix problem with finding next
+	invisible line.
+
 2009-08-03  Carsten Dominik  <carsten.dominik@gmail.com>
 
 	* org-list.el (org-list-send-list): Call

+ 2 - 1
lisp/org.el

@@ -4957,7 +4957,8 @@ in special contexts.
 	  (while (and (not (eobp)) ;; this is like `next-line'
 		      (get-char-property (1- (point)) 'invisible))
 	    (goto-char (next-single-char-property-change (point) 'invisible))
-	    (or (bolp) (beginning-of-line 2))))
+;;;???	    (or (bolp) (beginning-of-line 2))))
+	    (and (eolp) (beginning-of-line 2))))
 	(setq eol (point)))
       (outline-end-of-heading)   (setq eoh (point))
       (save-excursion