(Emacs|Shell|SystemD)~Small changes

2024-05-06 02:23:38 +05:30
parent 04a4f50daf
commit 2986c04c2f
9 changed files with 90 additions and 54 deletions
--- a/Emacs/.config/emacs/elisp/move.el
+++ b/Emacs/.config/emacs/elisp/move.el
@@ -37,16 +37,11 @@

 ;;; Code:

-(defun +move/--normalise-arg (arg)
-  (if (or (null arg) (< arg 1))
-      1
-    arg))
-
 (defmacro +move/create-move (name description &rest body)
  `(defun ,name (&optional arg)
     ,description
     (interactive "P")
-     (let ((arg (+move/--normalise-arg arg)))
+     (let ((arg (if (or (null arg) (< arg 1)) 1 arg)))
       (while (not (= arg 0))
         ,@body
         (setq arg (- arg 1))))))