Ver código fonte

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.
Nicolas Goaziou 8 anos atrás
pai
commit
2971c48cf1
2 arquivos alterados com 3 adições e 6 exclusões
  1. 1 4
      lisp/org.el
  2. 2 2
      testing/lisp/test-org.el

+ 1 - 4
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.

+ 2 - 2
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."