diff --git a/evil-commands.el b/evil-commands.el index 82fadf25..7bc74359 100644 --- a/evil-commands.el +++ b/evil-commands.el @@ -3784,7 +3784,7 @@ Signal an error if the file does not exist." (let ((completions (cons '(nil) evil-state-properties))) (when arg (cond - ((eq flag nil) + ((null 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..644fe7f7 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) + ((null 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..ba00213f 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)) + (null repeat-type)) (minibufferp))) ; ... minibuffer activated (defun evil-repeat-record (info) diff --git a/evil-tests.el b/evil-tests.el index ca4f4c55..6cc9cf5b 100644 --- a/evil-tests.el +++ b/evil-tests.el @@ -9187,8 +9187,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 (null (parse "foobaz" 'expr))) + (should (null (parse "xxxyyy" 'expr))) (should (equal (parse "xxxzzz" 'expr) '((list "xxx"))))) (ert-info ("Semantic actions") (should (equal (parse "1+1" 'expr) @@ -9318,7 +9318,7 @@ parameter set." "Test `evil-filter-list'" :tags '(evil util) (ert-info ("Return filtered list") - (should (equal (evil-filter-list #'null '(nil)) nil)) + (should (null (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))) @@ -9939,7 +9939,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 (null evil-input-method)) ("a\"a" [escape]) "\"[a]" (text-mode)