Browse Source

Fix for `org-beginning-of-line' at an item

* lisp/org.el (org-beginning-of-line): apply changes to
  `org-item-beginning-re' to correct sub-expression reference.
Nicolas Goaziou 14 năm trước cách đây
mục cha
commit
4efa974264
1 tập tin đã thay đổi với 3 bổ sung3 xóa
  1. 3 3
      lisp/org.el

+ 3 - 3
lisp/org.el

@@ -19104,12 +19104,12 @@ beyond the end of the headline."
        ((org-at-item-p)
 	(goto-char
 	 (if (eq special t)
-	     (cond ((> pos (match-end 4)) (match-end 4))
-		   ((= pos (point)) (match-end 4))
+	     (cond ((> pos (match-end 0)) (match-end 0))
+		   ((= pos (point)) (match-end 0))
 		   (t (point)))
 	   (cond ((> pos (point)) (point))
 		 ((not (eq last-command this-command)) (point))
-		 (t (match-end 4))))))))
+		 (t (match-end 0))))))))
     (org-no-warnings
      (and (featurep 'xemacs) (setq zmacs-region-stays t)))))