diff --git a/LICENSE b/LICENSE index 02b93be..cb8f262 100644 --- a/LICENSE +++ b/LICENSE @@ -1,6 +1,6 @@ The MIT License (MIT) -Copyright (c) 2016-2019 Henrik Lissner. +Copyright (c) 2016-2020 Henrik Lissner. Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the diff --git a/evil-multiedit.el b/evil-multiedit.el old mode 100644 new mode 100755 index 0b6deee..39a078d --- a/evil-multiedit.el +++ b/evil-multiedit.el @@ -1,6 +1,6 @@ ;;; evil-multiedit.el --- multiple cursors for evil-mode ;; -;; Copyright (C) 2016-17 Henrik Lissner +;; Copyright (C) 2016-20 Henrik Lissner ;; ;; Author: Henrik Lissner ;; Maintainer: Henrik Lissner @@ -284,24 +284,20 @@ or visual mode. (setq evil-multiedit--pt-beg (min beg evil-multiedit--pt-beg) evil-multiedit--pt-end (max end evil-multiedit--pt-end)) (goto-char (if evil-multiedit-follow-matches beg origin)))) - (t - (let* ((occurrence-info (evil-multiedit--get-occurrence)) - (occurrence (car occurrence-info)) - (beg (nth 1 occurrence-info)) - (end (nth 2 occurrence-info))) - (if (and beg end) - (progn - (setq evil-multiedit--pt-beg beg - evil-multiedit--pt-end end) - (evil-multiedit-state) - (save-excursion - (evil-multiedit--start-regexp occurrence beg end) - (let ((pattern (evil-ex-make-search-pattern occurrence))) - (when evil-multiedit-store-in-search-history - (setq evil-ex-search-pattern pattern)) - (let ((evil-ex-search-pattern pattern)) - (evil-ex-find-next nil nil t))))) - (user-error "Can't mark anything"))))))) + ((cl-destructuring-bind (occurrence beg end) + (evil-multiedit--get-occurrence) + (unless (and beg end) + (user-error "Can't mark anything")) + (setq evil-multiedit--pt-beg beg + evil-multiedit--pt-end end) + (evil-multiedit-state) + (save-excursion + (evil-multiedit--start-regexp occurrence beg end) + (let* (evil-ex-search-vim-style-regexp + (pattern (evil-ex-make-search-pattern occurrence))) + (when evil-multiedit-store-in-search-history + (setq evil-ex-search-pattern pattern)) + (evil-ex-find-next pattern nil t)))))))) (length iedit-occurrences-overlays)) ;;;###autoload (autoload 'evil-multiedit-match-and-prev "evil-multiedit" nil t)