[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-26 db3f779 2/3: ; Test for Bug#32014
From: |
Noam Postavsky |
Subject: |
[Emacs-diffs] emacs-26 db3f779 2/3: ; Test for Bug#32014 |
Date: |
Mon, 9 Jul 2018 20:45:17 -0400 (EDT) |
branch: emacs-26
commit db3f7797809ed9de8dd92ce38bf34f768ddc64ad
Author: Noam Postavsky <address@hidden>
Commit: Noam Postavsky <address@hidden>
; Test for Bug#32014
* test/lisp/emacs-lisp/lisp-mode-tests.el
(lisp-indent-with-read-only-field): New test.
---
test/lisp/emacs-lisp/lisp-mode-tests.el | 11 +++++++++++
1 file changed, 11 insertions(+)
diff --git a/test/lisp/emacs-lisp/lisp-mode-tests.el
b/test/lisp/emacs-lisp/lisp-mode-tests.el
index 0b5b0a4..2ac0e5c 100644
--- a/test/lisp/emacs-lisp/lisp-mode-tests.el
+++ b/test/lisp/emacs-lisp/lisp-mode-tests.el
@@ -224,6 +224,17 @@ Expected initialization file: `%s'\"
(comment-indent)
(should (equal (buffer-string) correct)))))
+(ert-deftest lisp-indent-with-read-only-field ()
+ "Test indentation on line with read-only field (Bug#32014)."
+ :expected-result :failed
+ (with-temp-buffer
+ (insert (propertize "prompt> " 'field 'output 'read-only t
+ 'rear-nonsticky t 'front-sticky '(read-only)))
+ (insert " foo")
+ (lisp-indent-line)
+ (should (equal (buffer-string) "prompt> foo"))))
+
+
(provide 'lisp-mode-tests)
;;; lisp-mode-tests.el ends here