From: Nicolas Goaziou Date: Wed, 28 Nov 2012 15:51:47 +0000 (+0100) Subject: test-org: Disambiguate tests for `org-end-of-line'. X-Git-Tag: release_7.9.3~141 X-Git-Url: https://repo.or.cz/w/org-mode.git/commitdiff_plain/f3a251520534d84b1e783c6390f9fac83ab36dc2 test-org: Disambiguate tests for `org-end-of-line'. --- diff --git a/testing/lisp/test-org.el b/testing/lisp/test-org.el index 50a000b50..640244761 100644 --- a/testing/lisp/test-org.el +++ b/testing/lisp/test-org.el @@ -458,20 +458,20 @@ http://article.gmane.org/gmane.emacs.orgmode/21459/" (eolp)))) ;; At an headline with special movement. (should - (org-test-with-temp-text "* Headline :tag:\n" + (org-test-with-temp-text "* Headline1 :tag:\n" (let ((org-special-ctrl-a/e t)) (and (progn (org-end-of-line) (looking-at " :tag:")) (progn (org-end-of-line) (eolp)) (progn (org-end-of-line) (looking-at " :tag:")))))) ;; At an headline without special movement. (should - (org-test-with-temp-text "* Headline :tag:\n" + (org-test-with-temp-text "* Headline2 :tag:\n" (let ((org-special-ctrl-a/e nil)) (and (progn (org-end-of-line) (eolp)) (progn (org-end-of-line) (eolp)))))) ;; At an headline, with reversed movement. (should - (org-test-with-temp-text "* Headline :tag:\n" + (org-test-with-temp-text "* Headline3 :tag:\n" (let ((org-special-ctrl-a/e 'reversed) (this-command last-command)) (and (progn (org-end-of-line) (eolp))