emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/spell-fu 8412ba02df 03/21: Cleanup: use `zerop`


From: ELPA Syncer
Subject: [nongnu] elpa/spell-fu 8412ba02df 03/21: Cleanup: use `zerop`
Date: Sat, 7 Jan 2023 07:12:27 -0500 (EST)

branch: elpa/spell-fu
commit 8412ba02df32562a2f6d254e2aba5d4be1461237
Author: Campbell Barton <ideasman42@gmail.com>
Commit: Campbell Barton <ideasman42@gmail.com>

    Cleanup: use `zerop`
---
 spell-fu.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/spell-fu.el b/spell-fu.el
index 7dddfb7d8e..c5a06ff788 100644
--- a/spell-fu.el
+++ b/spell-fu.el
@@ -1306,7 +1306,7 @@ Argument DICT-FILE is the absolute path to the 
dictionary."
         ;; So we can use line count as word count.
         (while
           (and
-            (eq 0 (forward-line -1))
+            (zerop (forward-line -1))
             (string-blank-p
               (buffer-substring-no-properties (line-beginning-position) 
(line-end-position))))
           (delete-region
@@ -1356,7 +1356,7 @@ Argument DICT-FILE is the absolute path to the 
dictionary."
                         (line-beginning-position)
                         (line-end-position))
                       word))
-                  (setq keep-searching (eq 0 (forward-line 1)))))
+                  (setq keep-searching (zerop (forward-line 1)))))
 
               (insert word "\n")
 
@@ -1372,7 +1372,7 @@ Argument DICT-FILE is the absolute path to the 
dictionary."
               (goto-char word-point)
               (delete-region
                 (line-beginning-position)
-                (or (and (eq 0 (forward-line 1)) (point)) (line-end-position)))
+                (or (and (zerop (forward-line 1)) (point)) 
(line-end-position)))
 
               (message "\"%s\" successfully removed!" word)
               (setq changed t))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]