mirror of
https://github.com/masscollaborationlabs/emacs.git
synced 2025-07-10 22:20:51 +00:00
; Test for Bug#32014
* test/lisp/emacs-lisp/lisp-mode-tests.el (lisp-indent-with-read-only-field): New test.
This commit is contained in:
parent
90d95b000c
commit
db3f779780
1 changed files with 11 additions and 0 deletions
|
@ -224,6 +224,17 @@ Expected initialization file: `%s'\"
|
||||||
(comment-indent)
|
(comment-indent)
|
||||||
(should (equal (buffer-string) correct)))))
|
(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)
|
(provide 'lisp-mode-tests)
|
||||||
;;; lisp-mode-tests.el ends here
|
;;; lisp-mode-tests.el ends here
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue