diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-10-14 10:42:24 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-10-15 11:26:10 +0200 |
commit | 2971c48cf133d88e61ceb1c6887af2204d0cc665 (patch) | |
tree | b06af141134c1b23585402ad0bcbb2e6acfd4c0d | |
parent | b9b14376f867cbd5fdf220e7ba06833dafc16309 (diff) | |
download | org-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.el | 5 | ||||
-rw-r--r-- | testing/lisp/test-org.el | 4 |
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." |