[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/evil 95ee3ce1e5: treewide: replace `(eq/equal foo nil)` wi
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/evil 95ee3ce1e5: treewide: replace `(eq/equal foo nil)` with `(null foo)` |
Date: |
Tue, 16 Apr 2024 09:59:48 -0400 (EDT) |
branch: elpa/evil
commit 95ee3ce1e5075b9ff396b6f7266cb6c7b9ccbd93
Author: Konstantin Kharlamov <Hi-Angel@yandex.ru>
Commit: Tom Dalziel <33435574+tomdl89@users.noreply.github.com>
treewide: replace `(eq/equal foo nil)` with `(null foo)`
---
evil-commands.el | 2 +-
evil-ex.el | 2 +-
evil-repeat.el | 2 +-
evil-tests.el | 8 ++++----
4 files changed, 7 insertions(+), 7 deletions(-)
diff --git a/evil-commands.el b/evil-commands.el
index 82fadf25cc..7bc743595e 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 246aa0d760..644fe7f78c 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 f840fb160d..ba00213f50 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 ca4f4c55ba..6cc9cf5be6 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [nongnu] elpa/evil 95ee3ce1e5: treewide: replace `(eq/equal foo nil)` with `(null foo)`,
ELPA Syncer <=