diff options
author | Noam Postavsky <npostavs@gmail.com> | 2018-07-27 19:41:39 -0400 |
---|---|---|
committer | Noam Postavsky <npostavs@gmail.com> | 2018-07-27 19:41:39 -0400 |
commit | 857910539313c0f2d89fe5626a41f1abe6c33ca7 (patch) | |
tree | 7c4a9b8184cd09d842962fe9dcbec07651611766 /test | |
parent | d24c5f26bf6c12bda614f90ba3345d710482005a (diff) | |
download | emacs-857910539313c0f2d89fe5626a41f1abe6c33ca7.tar.gz |
Don't fail to indent-sexp before a full sexp (Bug#31984)
* lisp/emacs-lisp/lisp-mode.el (indent-sexp): Only signal error if the
initial forward-sexp fails. Suppress scan-error forn any of the
forward-sexp calls after that.
* test/lisp/emacs-lisp/lisp-mode-tests.el (indent-sexp-cant-go): New
test.
Diffstat (limited to 'test')
-rw-r--r-- | test/lisp/emacs-lisp/lisp-mode-tests.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/test/lisp/emacs-lisp/lisp-mode-tests.el b/test/lisp/emacs-lisp/lisp-mode-tests.el index 0b052e9fc30..30f606d3816 100644 --- a/test/lisp/emacs-lisp/lisp-mode-tests.el +++ b/test/lisp/emacs-lisp/lisp-mode-tests.el @@ -125,6 +125,17 @@ noindent\" 3 #s(foo bar)\n")))) +(ert-deftest indent-sexp-cant-go () + "`indent-sexp' shouldn't error before a sexp." + ;; See https://debbugs.gnu.org/cgi/bugreport.cgi?bug=31984#32. + (with-temp-buffer + (emacs-lisp-mode) + (insert "(())") + (goto-char (1+ (point-min))) + ;; Paredit calls `indent-sexp' from this position. + (indent-sexp) + (should (equal (buffer-string) "(())")))) + (ert-deftest lisp-indent-region () "Test basics of `lisp-indent-region'." (with-temp-buffer |