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

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

[nongnu] elpa/evil-numbers a65dbc5094 123/145: Cleanup: remove nil for e


From: ELPA Syncer
Subject: [nongnu] elpa/evil-numbers a65dbc5094 123/145: Cleanup: remove nil for empty body
Date: Thu, 6 Jan 2022 03:00:24 -0500 (EST)

branch: elpa/evil-numbers
commit a65dbc50947fd8b1b09dc213965cad059426e704
Author: Campbell Barton <ideasman42@gmail.com>
Commit: Campbell Barton <ideasman42@gmail.com>

    Cleanup: remove nil for empty body
---
 evil-numbers.el | 18 ++++++++----------
 1 file changed, 8 insertions(+), 10 deletions(-)

diff --git a/evil-numbers.el b/evil-numbers.el
index a4fadf5058..e7e39dca2b 100644
--- a/evil-numbers.el
+++ b/evil-numbers.el
@@ -337,16 +337,14 @@ replace number incremented by AMOUNT in BASE and return 
non-nil."
 
         ;; Maintain case.
         (when do-case
+          ;; Upper case (already set), no need to handle here.
           (cond
-           ;; Upper case (already set).
-           ((eq evil-numbers-case 'upcase)
-            nil)
-           ((eq evil-numbers-case 'downcase)
-            (setq str-next (downcase str-next)))
            ;; Keep current case.
-           (t
+           ((null evil-numbers-case)
             (when (eq -1 (or (evil-numbers--case-category str-prev -1) -1))
-              (setq str-next (downcase str-next))))))
+              (setq str-next (downcase str-next))))
+           ((eq evil-numbers-case 'downcase)
+            (setq str-next (downcase str-next)))))
 
         ;; Replace the sign (as needed).
         (cond
@@ -439,6 +437,8 @@ Return non-nil on success, leaving the point at the end of 
the number."
       ;; if `evil-numbers--search-and-replace' cannot parse it - that's fine,
       ;; keep searching until `end'
       ;; This avoids doubling up on number parsing logic.
+      ;;
+      ;; Note that the while body is empty.
       (while (and
               ;; Found item, exit the loop.
               (null
@@ -460,9 +460,7 @@ Return non-nil on success, leaving the point at the end of 
the number."
                        evil-numbers--chars-superscript
                        evil-numbers--chars-subscript
                        "]")
-               end t))
-        ;; Empty while body.
-        nil))
+               end t))))
     found))
 
 



reply via email to

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