diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2017-01-28 04:40:36 +0100 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2017-01-28 04:40:36 +0100 |
| commit | 375c70fd9ef024f1a8ac99604e89c9991ac69eea (patch) | |
| tree | 53e34a0f31acccb6b16a4c62690294c4ef234de6 /test/lisp/simple-tests.el | |
| parent | 3979d8f45784ccf80cebbb5007da054a87ded2c9 (diff) | |
| download | emacs-375c70fd9ef024f1a8ac99604e89c9991ac69eea.tar.gz | |
test/*.el: Avoid byte-compiler warnings
* test/lisp/abbrev-tests.el (abbrev-table-p-test): Remove unused 'let*'.
* test/lisp/faces-tests.el (faces--test): New customization group.
(faces--test1, faces--test2): Use it.
* test/lisp/ffap-tests.el (ffap-tests-25243):
Call 'mark-whole-buffer' interactively.
* test/lisp/ibuffer-tests.el (ibuffer-filter-groups, ibuffer-filtering-alist)
(ibuffer-filtering-qualifiers, ibuffer-save-with-custom)
(ibuffer-saved-filter-groups, ibuffer-saved-filters): Defvar.
(ibuffer-format-qualifier, ibuffer-unary-operand): Declare.
* test/lisp/minibuffer-tests.el (completion-test1):
Mark unused lexical arguments.
* test/lisp/simple-tests.el (simple-test--dummy-buffer): Wrap result in
'with-no-warnings' to avoid them when the macro is invoked for effect.
* test/lisp/emacs-lisp/cl-seq-tests.el (cl-seq-count-test):
Mark unused lexical arguments.
* test/lisp/emacs-lisp/let-alist-tests.el (let-alist-surface-test):
Mark unused lexical arguments.
(let-alist-cons): Remove unused let binding.
* test/lisp/net/dbus-tests.el (dbus-debug): Defvar.
(dbus-get-unique-name): Declare.
* test/lisp/progmodes/python-tests.el (python-bob-infloop-avoid):
Call 'font-lock-fontify-buffer' interactively.
* test/lisp/textmodes/tildify-tests.el (tildify-space-undo-test--test):
Mark unused lexical argument.
Diffstat (limited to 'test/lisp/simple-tests.el')
| -rw-r--r-- | test/lisp/simple-tests.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/test/lisp/simple-tests.el b/test/lisp/simple-tests.el index 6194cada1c6..f4849c4b21d 100644 --- a/test/lisp/simple-tests.el +++ b/test/lisp/simple-tests.el @@ -30,8 +30,9 @@ (insert "(a b") (save-excursion (insert " c d)")) ,@body - (cons (buffer-substring (point-min) (point)) - (buffer-substring (point) (point-max))))) + (with-no-warnings + (cons (buffer-substring (point-min) (point)) + (buffer-substring (point) (point-max)))))) (defmacro simple-test--transpositions (&rest body) @@ -266,7 +267,6 @@ (with-temp-buffer (setq buffer-undo-list nil) (insert "hello") - (car buffer-undo-list) (undo-auto--boundaries 'test)))) ;;; Transposition with negative args (bug#20698, bug#21885) |