From b7ab3840dbfc1da5f9ad56542fc94e3dab4be5f1 Mon Sep 17 00:00:00 2001 From: Axel Forsman Date: Sun, 6 Oct 2024 19:42:28 +0200 Subject: [PATCH] Avoid loop in quoted list This commit circumvents the following byte compilation error: evil-commands.el:2644:2: Error: List contains a loop: (lower-right lower-left upper-left upper-right lower-right lower-left upper-left upper-right lower-right lower-left . #6) Resolves #1903 --- evil-commands.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/evil-commands.el b/evil-commands.el index cd8a66d6..4f6b7313 100644 --- a/evil-commands.el +++ b/evil-commands.el @@ -1427,7 +1427,7 @@ the left edge." (defun evil-expand-line-for-line-based-operators (beg end type) "Expand to line when in visual mode possibly changing BEG, END and TYPE. -Avoids double expansion for line based commands like 'V' or 'D'." +Avoids double expansion for line-based commands like \"V\" or \"D\"." (when (evil-visual-state-p) (unless (memq type '(line block screen-line)) ;; Subtract 1 from end to avoid expanding to the next line @@ -2653,7 +2653,7 @@ Corner may be one of `upper-left', `upper-right', `lower-left' and When called interactively, the selection is rotated clockwise." :keep-visual t (interactive - (let ((corners '#1=(upper-left upper-right lower-right lower-left . #1#))) + (let ((corners '(#1=upper-left upper-right lower-right lower-left #1#))) (list (cadr (memq (evil-visual-block-corner) corners))))) (let* ((beg (or beg (point))) (end (or end (mark t) beg))