diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2011-01-19 16:47:36 +0100 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2011-02-18 12:45:11 +0100 |
commit | 4efa974264b95673701e3ab55b6fd92df4c72763 (patch) | |
tree | 9fe2244c0f1d1d74fed7a212c2e6356a5b6d3517 | |
parent | 3e274d0290ee0d72c79bb8d0c9e96731547c8014 (diff) | |
download | org-mode-4efa974264b95673701e3ab55b6fd92df4c72763.tar.gz |
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.
-rw-r--r-- | lisp/org.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/org.el b/lisp/org.el index 1cc7a62..f0469ee 100644 --- a/lisp/org.el +++ b/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))))) |