diff options
Diffstat (limited to 'test/lisp/textmodes')
| -rw-r--r-- | test/lisp/textmodes/css-mode-tests.el | 8 | ||||
| -rw-r--r-- | test/lisp/textmodes/fill-tests.el | 8 |
2 files changed, 8 insertions, 8 deletions
diff --git a/test/lisp/textmodes/css-mode-tests.el b/test/lisp/textmodes/css-mode-tests.el index a746edf8944..1d2d556992b 100644 --- a/test/lisp/textmodes/css-mode-tests.el +++ b/test/lisp/textmodes/css-mode-tests.el @@ -435,7 +435,7 @@ 'css-selector) (should-not (format "Didn't recognize %s as a selector" (buffer-substring-no-properties - (point) (line-end-position))))))) + (point) (pos-eol))))))) ;; Test many selectors. (dolist (selector selectors) (with-temp-buffer @@ -451,7 +451,7 @@ 'css-selector) (should-not (format "Didn't recognize %s as a selector" (buffer-substring-no-properties - (point) (line-end-position))))))) + (point) (pos-eol))))))) ;; Test wrong separators. (dolist (selector selectors) (with-temp-buffer @@ -467,7 +467,7 @@ 'css-selector) (should-not (format "Recognized %s as a selector" (buffer-substring-no-properties - (point) (line-end-position)))))))))) + (point) (pos-eol)))))))))) (ert-deftest scss-mode-test-selectors () (let ((selectors @@ -485,7 +485,7 @@ 'css-selector) (should-not (format "Didn't recognize %s as a selector" (buffer-substring-no-properties - (point) (line-end-position)))))))))) + (point) (pos-eol)))))))))) (provide 'css-mode-tests) diff --git a/test/lisp/textmodes/fill-tests.el b/test/lisp/textmodes/fill-tests.el index b730de5a690..f2a0daf8122 100644 --- a/test/lisp/textmodes/fill-tests.el +++ b/test/lisp/textmodes/fill-tests.el @@ -53,8 +53,8 @@ (goto-char (point-min)) (search-forward "b") (let* ((pos (point)) - (beg (line-beginning-position)) - (end (line-end-position)) + (beg (pos-bol)) + (end (pos-eol)) (fill-prefix (make-string (- pos beg) ?\s)) ;; `fill-column' is too small to accommodate the current line (fill-column (- end beg 10))) @@ -68,8 +68,8 @@ (goto-char (point-min)) (search-forward "b") (let* ((pos (point)) - (beg (line-beginning-position)) - (end (line-end-position)) + (beg (pos-bol)) + (end (pos-eol)) (fill-prefix (make-string (- pos beg) ?\s)) ;; `fill-column' is too small to accommodate the current line (fill-column (- end beg 10))) |