From 0e7f2d6e263a15e383e5db97dc297bf7767999f7 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Fri, 27 Jan 2012 16:04:59 +0100 Subject: [PATCH] Fix error when using a special C-a at an empty item * lisp/org.el (org-beginning-of-line): Handle case when there's no character after box. --- lisp/org.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 7a68b7363..07e3d43c2 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -20511,9 +20511,11 @@ beyond the end of the headline." ;; Set special position at first white space character after ;; bullet, and check-box, if any. (let ((after-bullet - (progn (looking-at org-list-full-item-re) - (let ((bul (or (match-end 3) (match-end 1)))) - (if (= (char-after bul) ? ) (1+ bul) bul))))) + (and (looking-at org-list-full-item-re) + (let ((box (match-end 3))) + (if (not box) (match-end 1) + (let ((after (char-after box))) + (if (and after (= after ? )) (1+ box) box))))))) ;; Special case: Move point to special position when ;; currently after it or at beginning of line. (if (eq special t)