diff options
author | Aryadev Chavali <aryadev@aryadevchavali.com> | 2024-05-06 02:23:38 +0530 |
---|---|---|
committer | Aryadev Chavali <aryadev@aryadevchavali.com> | 2024-05-06 02:38:06 +0530 |
commit | 2986c04c2fcad44eb80ce01336ade33a7429cf7a (patch) | |
tree | b27268aaf71518841b11d19050f727275965b876 /Emacs/.config/emacs/elisp/move.el | |
parent | 04a4f50daf64f3159b9f8f15c0a106073d738a54 (diff) | |
download | dotfiles-2986c04c2fcad44eb80ce01336ade33a7429cf7a.tar.gz dotfiles-2986c04c2fcad44eb80ce01336ade33a7429cf7a.tar.bz2 dotfiles-2986c04c2fcad44eb80ce01336ade33a7429cf7a.zip |
(Emacs|Shell|SystemD)~Small changes
Diffstat (limited to 'Emacs/.config/emacs/elisp/move.el')
-rw-r--r-- | Emacs/.config/emacs/elisp/move.el | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/Emacs/.config/emacs/elisp/move.el b/Emacs/.config/emacs/elisp/move.el index 77dd785..ed154fb 100644 --- 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)))))) |