diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-06-26 10:03:48 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-06-26 10:03:48 -0400 |
| commit | 698ff554ac2699ec48fefc85a1307cbc4a183b0d (patch) | |
| tree | a7b7592f7973f81cad4410366d313e790616907e /test/lisp | |
| parent | 9233865b7005831e63755eb84ae7da060f878a55 (diff) | |
| download | emacs-698ff554ac2699ec48fefc85a1307cbc4a183b0d.tar.gz emacs-698ff554ac2699ec48fefc85a1307cbc4a183b0d.tar.bz2 emacs-698ff554ac2699ec48fefc85a1307cbc4a183b0d.zip | |
* lisp/calc/calc-ext.el (math-scalarp): Fix typo
Diffstat (limited to 'test/lisp')
| -rw-r--r-- | test/lisp/electric-tests.el | 9 | ||||
| -rw-r--r-- | test/lisp/minibuffer-tests.el | 2 | ||||
| -rw-r--r-- | test/lisp/net/tramp-tests.el | 2 |
3 files changed, 2 insertions, 11 deletions
diff --git a/test/lisp/electric-tests.el b/test/lisp/electric-tests.el index 4f1e5729be1..0b67fb3f1f1 100644 --- a/test/lisp/electric-tests.el +++ b/test/lisp/electric-tests.el @@ -876,15 +876,6 @@ baz\"\"" (call-interactively (key-binding `[,last-command-event]))) (should (equal (buffer-string) "int main () {\n \n}")))) -(define-derived-mode plainer-c-mode c-mode "pC" - "A plainer/saner C-mode with no internal electric machinery." - (c-toggle-electric-state -1) - (setq-local electric-indent-local-mode-hook nil) - (setq-local electric-indent-mode-hook nil) - (electric-indent-local-mode 1) - (dolist (key '(?\" ?\' ?\{ ?\} ?\( ?\) ?\[ ?\])) - (local-set-key (vector key) 'self-insert-command))) - (ert-deftest electric-modes-int-main-allman-style () (ert-with-test-buffer () (plainer-c-mode) diff --git a/test/lisp/minibuffer-tests.el b/test/lisp/minibuffer-tests.el index 35df7cc17f1..428b19226b4 100644 --- a/test/lisp/minibuffer-tests.el +++ b/test/lisp/minibuffer-tests.el @@ -74,7 +74,7 @@ 'completion-table-with-predicate full-collection no-A nil)))))) -(ert-deftest completion-table-subvert-test () +(ert-deftest completion-table-subvert-test () ;bug#34888 (let* ((origtable '("A-hello" "A-there")) (subvtable (completion-table-subvert origtable "B" "A"))) (should (equal (try-completion "B-hel" subvtable) diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el index 525f62a3c0b..c8fe00dd393 100644 --- a/test/lisp/net/tramp-tests.el +++ b/test/lisp/net/tramp-tests.el @@ -3885,7 +3885,7 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'." :tags '(:expensive-test) (skip-unless (tramp--test-enabled)) (skip-unless (or (tramp--test-adb-p) (tramp--test-sh-p))) - + (defvar tramp-display-escape-sequence-regexp) ;Defined in tramp-sh.el (dolist (quoted (if (tramp--test-expensive-test) '(nil t) '(nil))) (let* ((tmp-name (tramp--test-make-temp-name nil quoted)) (fnnd (file-name-nondirectory tmp-name)) |