diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/electric-tests.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/test/lisp/electric-tests.el b/test/lisp/electric-tests.el index 5a4b20ed04e..b55d889f0b5 100644 --- a/test/lisp/electric-tests.el +++ b/test/lisp/electric-tests.el | |||
| @@ -47,10 +47,14 @@ | |||
| 47 | (declare (indent defun) (debug t)) | 47 | (declare (indent defun) (debug t)) |
| 48 | `(call-with-saved-electric-modes #'(lambda () ,@body))) | 48 | `(call-with-saved-electric-modes #'(lambda () ,@body))) |
| 49 | 49 | ||
| 50 | ;; Defined in lisp/progmodes/cc-cmds.el | ||
| 51 | (defvar c--disable-fix-of-bug-33794 t) | ||
| 52 | |||
| 50 | (defun electric-pair-test-for (fixture where char expected-string | 53 | (defun electric-pair-test-for (fixture where char expected-string |
| 51 | expected-point mode bindings fixture-fn) | 54 | expected-point mode bindings fixture-fn) |
| 52 | (with-temp-buffer | 55 | (with-temp-buffer |
| 53 | (funcall mode) | 56 | (funcall mode) |
| 57 | (setq-local c--disable-fix-of-bug-33794 t) | ||
| 54 | (insert fixture) | 58 | (insert fixture) |
| 55 | (save-electric-modes | 59 | (save-electric-modes |
| 56 | (let ((last-command-event char) | 60 | (let ((last-command-event char) |
| @@ -821,6 +825,7 @@ baz\"\"" | |||
| 821 | (electric-layout-local-mode 1) | 825 | (electric-layout-local-mode 1) |
| 822 | (electric-pair-local-mode 1) | 826 | (electric-pair-local-mode 1) |
| 823 | (electric-indent-local-mode 1) | 827 | (electric-indent-local-mode 1) |
| 828 | (setq-local c--disable-fix-of-bug-33794 t) | ||
| 824 | (setq-local electric-layout-rules | 829 | (setq-local electric-layout-rules |
| 825 | '((?\{ . (after-stay after)))) | 830 | '((?\{ . (after-stay after)))) |
| 826 | (insert "int main () ") | 831 | (insert "int main () ") |
| @@ -834,6 +839,7 @@ baz\"\"" | |||
| 834 | (electric-layout-local-mode 1) | 839 | (electric-layout-local-mode 1) |
| 835 | (electric-pair-local-mode 1) | 840 | (electric-pair-local-mode 1) |
| 836 | (electric-indent-local-mode 1) | 841 | (electric-indent-local-mode 1) |
| 842 | (setq-local c--disable-fix-of-bug-33794 t) | ||
| 837 | (setq-local electric-layout-rules | 843 | (setq-local electric-layout-rules |
| 838 | '((?\{ . (before after-stay after)))) | 844 | '((?\{ . (before after-stay after)))) |
| 839 | (insert "int main () ") | 845 | (insert "int main () ") |