From 2986c04c2fcad44eb80ce01336ade33a7429cf7a Mon Sep 17 00:00:00 2001 From: Aryadev Chavali Date: Mon, 6 May 2024 02:23:38 +0530 Subject: (Emacs|Shell|SystemD)~Small changes --- Emacs/.config/emacs/elisp/haskell-multiedit.el | 5 ++--- Emacs/.config/emacs/elisp/move.el | 7 +------ 2 files changed, 3 insertions(+), 9 deletions(-) (limited to 'Emacs/.config/emacs/elisp') diff --git a/Emacs/.config/emacs/elisp/haskell-multiedit.el b/Emacs/.config/emacs/elisp/haskell-multiedit.el index 89aeb7b..96eb19d 100644 --- a/Emacs/.config/emacs/elisp/haskell-multiedit.el +++ b/Emacs/.config/emacs/elisp/haskell-multiedit.el @@ -37,9 +37,8 @@ "Minor mode for haskell buffers generated by haskell-interactive-mode. Provides bindings to retrieve content back into the REPL with full multi-edit commands" - nil - "" - haskell-multiedit-mode-map) + :lighter nil + :keymap haskell-multiedit-mode-map) (with-eval-after-load "haskell" (defun haskell-multiedit () 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)))))) -- cgit v1.2.3-13-gbd6f