summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2016-10-14 10:42:24 +0200
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2016-10-15 11:26:10 +0200
commit2971c48cf133d88e61ceb1c6887af2204d0cc665 (patch)
treeb06af141134c1b23585402ad0bcbb2e6acfd4c0d
parentb9b14376f867cbd5fdf220e7ba06833dafc16309 (diff)
downloadorg-mode-2971c48cf133d88e61ceb1c6887af2204d0cc665.tar.gz
Remove unnecessary workaround
* lisp/org.el (org-beginning-of-line): Remove unnecessary workaround for bug #14346. * testing/lisp/test-org.el (test-org/beginning-of-line): Update tests.
-rw-r--r--lisp/org.el5
-rw-r--r--testing/lisp/test-org.el4
2 files changed, 3 insertions, 6 deletions
diff --git a/lisp/org.el b/lisp/org.el
index f782147..8664e28 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -23764,10 +23764,7 @@ the cursor is already beyond the end of the headline."
;; Reversed case: Move point to special position when point
;; was already at beginning of line and command is repeated.
(when (and (= (point) pos) (eq last-command this-command))
- (goto-char after-bullet)))))))
- (setq disable-point-adjustment
- (or (not (invisible-p (point)))
- (not (invisible-p (max (point-min) (1- (point))))))))
+ (goto-char after-bullet))))))))
(defun org-end-of-line (&optional arg)
"Go to the end of the line.
diff --git a/testing/lisp/test-org.el b/testing/lisp/test-org.el
index a137fbf..164ed89 100644
--- a/testing/lisp/test-org.el
+++ b/testing/lisp/test-org.el
@@ -2500,10 +2500,10 @@ http://article.gmane.org/gmane.emacs.orgmode/21459/"
;; asterisk.
(should
(org-test-with-temp-text "*<point>"
- (let ((org-special-ctrl-a/e t)) (org-beginning-of-line))))
+ (let ((org-special-ctrl-a/e t)) (org-beginning-of-line) t)))
(should
(org-test-with-temp-text "*<point>"
- (let ((org-special-ctrl-a/e nil)) (org-beginning-of-line)))))
+ (let ((org-special-ctrl-a/e nil)) (org-beginning-of-line) t))))
(ert-deftest test-org/end-of-line ()
"Test `org-end-of-line' specifications."