diff --git a/evil-commands.el b/evil-commands.el index e3af076f..767f189b 100644 --- a/evil-commands.el +++ b/evil-commands.el @@ -3759,7 +3759,7 @@ Signal an error if the file does not exist." (let ((completions (cons '(nil) evil-state-properties))) (when arg (cond - ((eq flag nil) + ((not flag) (try-completion arg completions predicate)) ((eq flag t) (all-completions arg completions predicate)) diff --git a/evil-ex.el b/evil-ex.el index 246aa0d7..597574c2 100644 --- a/evil-ex.el +++ b/evil-ex.el @@ -545,7 +545,7 @@ in case of incomplete or unknown commands." (defun evil-completion-table-concat (table1 table2) (lambda (string pred action) (cond - ((eq action nil) + ((not action) (let (matches) (dolist (table (list table1 table2) (try-completion string matches)) (let ((x (try-completion string table pred))) diff --git a/evil-repeat.el b/evil-repeat.el index f840fb16..de942866 100644 --- a/evil-repeat.el +++ b/evil-repeat.el @@ -250,7 +250,7 @@ Return non-nil if so." (evil-emacs-state-p) ; ... in Emacs state (and (evil-mouse-events-p ; ... mouse events (this-command-keys-vector)) - (eq repeat-type nil)) + (not repeat-type)) (minibufferp))) ; ... minibuffer activated (defun evil-repeat-record (info) diff --git a/evil-tests.el b/evil-tests.el index f22a6694..5672657a 100644 --- a/evil-tests.el +++ b/evil-tests.el @@ -9164,8 +9164,8 @@ parameter set." '((signed-number (sign . 1) (number . 2)))))) (ert-info ("Lookahead") (should (equal (parse "foobar" 'expr) '((list "foo")))) - (should (equal (parse "foobaz" 'expr) nil)) - (should (equal (parse "xxxyyy" 'expr) nil)) + (should (not (parse "foobaz" 'expr))) + (should (not (parse "xxxyyy" 'expr))) (should (equal (parse "xxxzzz" 'expr) '((list "xxx"))))) (ert-info ("Semantic actions") (should (equal (parse "1+1" 'expr) @@ -9295,7 +9295,7 @@ parameter set." "Test `evil-filter-list'" :tags '(evil util) (ert-info ("Return filtered list") - (should (equal (evil-filter-list #'null '(nil)) nil)) + (should (not (evil-filter-list #'null '(nil)))) (should (equal (evil-filter-list #'null '(nil 1)) '(1))) (should (equal (evil-filter-list #'null '(nil 1 2 nil)) '(1 2))) (should (equal (evil-filter-list #'null '(nil nil 1)) '(1))) @@ -9902,7 +9902,7 @@ main(argc, argv) char **argv; { (add-hook 'text-mode-hook #'use-german-input-method) (evil-test-buffer "[]" - (should (equal evil-input-method nil)) + (should (not evil-input-method)) ("a\"a" [escape]) "\"[a]" (text-mode)