scip/mark-copy-yank-things-mode
1
0
Fork 0
mirror of https://codeberg.org/scip/mark-copy-yank-things-mode.git synced 2025-12-18 21:10:59 +01:00
Code Issues Packages Projects Releases Wiki Activity

use 'cl-lib instead of old 'cl for loop

Browse Source
This commit is contained in:
Thomas von Dein
2023-04-13 07:18:21 +02:00
parent 8cd602b45c
commit 90c542195a
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
mark-copy-yank-things-mode.el
View File

@@ -19,7 +19,7 @@
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
;; USA ;; USA
;; Version: 0.03 ;; Version: 0.04
;; Author: T.v.Dein <tlinden@cpan.org> ;; Author: T.v.Dein <tlinden@cpan.org>
;; Keywords: copy yank mark things ;; Keywords: copy yank mark things
;; URL: https://github.com/tlinden/mark-copy-yank-things ;; URL: https://github.com/tlinden/mark-copy-yank-things
@@ -137,6 +137,7 @@
;;;; Dependencies ;;;; Dependencies
(require 'thingatpt) (require 'thingatpt)
(require 'cl-lib)
;; optional: expand-region ;; optional: expand-region
@@ -571,7 +572,7 @@ Supports numerical arguments, if present, copy current line
ARG times. Also accessible with {C-u [0-9]+ C-c y y}" ARG times. Also accessible with {C-u [0-9]+ C-c y y}"
(interactive "P") (interactive "P")
(message "arg: %s" (prefix-numeric-value arg)) (message "arg: %s" (prefix-numeric-value arg))
(loop for i (cl-loop for i
below (prefix-numeric-value arg) below (prefix-numeric-value arg)
collect (progn collect (progn
(mcyt-copy-line) (mcyt-copy-line)