From d8012ab4661630283c4ac6521a094cbe09ea4707 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Wed, 26 Oct 2016 21:57:16 -0400
Subject: cosmetics: Use zerop instead of (= 0 ...)

---
 snakemake-mode.el |  6 +++---
 snakemake.el      | 18 +++++++++---------
 2 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/snakemake-mode.el b/snakemake-mode.el
index b397e2d..05a76f0 100644
--- a/snakemake-mode.el
+++ b/snakemake-mode.el
@@ -171,7 +171,7 @@
   "Move to beginning of rule block.
 With ARG, do it that many times.  Negative ARG signals to move
 forward rather than backward."
-  (when (or (null arg) (= arg 0))
+  (when (or (null arg) (zerop arg))
     (setq arg 1))
   (funcall (if (> arg 0)
                #'re-search-backward
@@ -192,7 +192,7 @@ forward rather than backward."
   "Move to beginning of current rule block or function.
 With ARG, do it that many times.  Negative ARG signals to move
 forward rather than backward."
-  (when (or (null arg) (= arg 0))
+  (when (or (null arg) (zerop arg))
     (setq arg 1))
   (let ((choose-fn (if (> arg 0) #'max #'min))
         (cands (delq nil
@@ -240,7 +240,7 @@ returned."
                     ;; :after-block-start.
                     :after-block-start))
     (let* ((initial-indent (current-indentation))
-           (goto-first-p (or (not previous) (= initial-indent 0))))
+           (goto-first-p (or (not previous) (zerop initial-indent))))
       (save-excursion
         (save-restriction
           (widen)
diff --git a/snakemake.el b/snakemake.el
index 9ec7b42..fca801e 100644
--- a/snakemake.el
+++ b/snakemake.el
@@ -222,12 +222,12 @@ with DIRECTORY and the Snakefile's modification time."
 TYPE can be `all' or `target'."
   (snakemake--split-lines
    (with-temp-buffer
-     (if (= 0 (snakemake-insert-output
-               "--nocolor"
-               (cl-case type
-                 (all "--list")
-                 (target "--list-target-rules")
-                 (t (user-error "Invalid rule type: %s" type)))))
+     (if (zerop (snakemake-insert-output
+                 "--nocolor"
+                 (cl-case type
+                   (all "--list")
+                   (target "--list-target-rules")
+                   (t (user-error "Invalid rule type: %s" type)))))
          (buffer-string)
        (error "Error finding rules")))
    t))
@@ -250,7 +250,7 @@ The file list is determined by the output of
     (snakemake-with-cache directory ("target-files")
       (snakemake--split-lines
        (with-temp-buffer
-         (if (= 0 (call-process snakemake-file-target-program nil t))
+         (if (zerop (call-process snakemake-file-target-program nil t))
              (buffer-string)
            (error "Error finding file targets")))))))
 
@@ -271,7 +271,7 @@ exit status is non-zero.")
         (goto-char (point-min))
         (cond
          ((re-search-forward snakemake-valid-target-re nil t))
-         ((and (= ex-code 0)
+         ((and (zerop ex-code)
                ;; Lean towards misclassifying targets as valid rather
                ;; than silently dropping valid targets as invalid.
                (not (re-search-forward snakemake-invalid-target-re
@@ -483,7 +483,7 @@ $ snakemake -s <current file> --{dag,rulegraph} | display"
         (setq ret-val (call-process snakemake-program nil t nil
                                     (if rule-graph "--rulegraph" "--dag")
                                     "--snakefile" file)))
-      (if (= 0 ret-val)
+      (if (zerop ret-val)
           (progn (image-mode)
                  (snakemake-graph-mode)
                  (setq snakemake-graph-id file))
-- 
cgit v1.2.3