aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
Diffstat (limited to 'test')
-rw-r--r--test/lisp/electric-tests.el6
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 () ")