From bf04cd28e614f3525e64eb14e569b9340d9a58f3 Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Sat, 3 Nov 2018 18:33:59 +0100 Subject: [PATCH] [ELPA] Update --- .../dash-autoloads.el | 2 +- .../dash-pkg.el | 2 +- .../dash.el | 58 ++++++++++--------- .../hydra-autoloads.el | 4 +- .../hydra-examples.el | 0 .../hydra-ox.el | 0 .../hydra-pkg.el | 2 +- .../hydra.el | 4 +- .../lv.el | 1 + .../mc-cycle-cursors.el | 0 .../mc-edit-lines.el | 0 .../mc-hide-unmatched-lines-mode.el | 0 .../mc-mark-more.el | 48 +++++++-------- .../mc-mark-pop.el | 0 .../mc-separate-operations.el | 39 ++++++------- .../multiple-cursors-autoloads.el | 22 +++---- .../multiple-cursors-core.el | 0 .../multiple-cursors-pkg.el | 2 +- .../multiple-cursors.el | 0 .../rectangular-region-mode.el | 0 20 files changed, 93 insertions(+), 91 deletions(-) rename elpa/{dash-20180903.1042 => dash-20180910.1856}/dash-autoloads.el (83%) rename elpa/{dash-20180903.1042 => dash-20180910.1856}/dash-pkg.el (55%) rename elpa/{dash-20180903.1042 => dash-20180910.1856}/dash.el (99%) rename elpa/{hydra-20180703.1502 => hydra-20181030.1925}/hydra-autoloads.el (95%) rename elpa/{hydra-20180703.1502 => hydra-20181030.1925}/hydra-examples.el (100%) rename elpa/{hydra-20180703.1502 => hydra-20181030.1925}/hydra-ox.el (100%) rename elpa/{hydra-20180703.1502 => hydra-20181030.1925}/hydra-pkg.el (80%) rename elpa/{hydra-20180703.1502 => hydra-20181030.1925}/hydra.el (99%) rename elpa/{hydra-20180703.1502 => hydra-20181030.1925}/lv.el (98%) rename elpa/{multiple-cursors-20180615.1218 => multiple-cursors-20180913.1237}/mc-cycle-cursors.el (100%) rename elpa/{multiple-cursors-20180615.1218 => multiple-cursors-20180913.1237}/mc-edit-lines.el (100%) rename elpa/{multiple-cursors-20180615.1218 => multiple-cursors-20180913.1237}/mc-hide-unmatched-lines-mode.el (100%) rename elpa/{multiple-cursors-20180615.1218 => multiple-cursors-20180913.1237}/mc-mark-more.el (96%) rename elpa/{multiple-cursors-20180615.1218 => multiple-cursors-20180913.1237}/mc-mark-pop.el (100%) rename elpa/{multiple-cursors-20180615.1218 => multiple-cursors-20180913.1237}/mc-separate-operations.el (94%) rename elpa/{multiple-cursors-20180615.1218 => multiple-cursors-20180913.1237}/multiple-cursors-autoloads.el (95%) rename elpa/{multiple-cursors-20180615.1218 => multiple-cursors-20180913.1237}/multiple-cursors-core.el (100%) rename elpa/{multiple-cursors-20180615.1218 => multiple-cursors-20180913.1237}/multiple-cursors-pkg.el (57%) rename elpa/{multiple-cursors-20180615.1218 => multiple-cursors-20180913.1237}/multiple-cursors.el (100%) rename elpa/{multiple-cursors-20180615.1218 => multiple-cursors-20180913.1237}/rectangular-region-mode.el (100%) diff --git a/elpa/dash-20180903.1042/dash-autoloads.el b/elpa/dash-20180910.1856/dash-autoloads.el similarity index 83% rename from elpa/dash-20180903.1042/dash-autoloads.el rename to elpa/dash-20180910.1856/dash-autoloads.el index 6211a3d..5eb72bb 100644 --- a/elpa/dash-20180903.1042/dash-autoloads.el +++ b/elpa/dash-20180910.1856/dash-autoloads.el @@ -3,7 +3,7 @@ ;;; Code: (add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path)))) -;;;### (autoloads nil nil ("dash.el") (23441 26597 718801 143000)) +;;;### (autoloads nil nil ("dash.el") (23517 56182 290592 403000)) ;;;*** diff --git a/elpa/dash-20180903.1042/dash-pkg.el b/elpa/dash-20180910.1856/dash-pkg.el similarity index 55% rename from elpa/dash-20180903.1042/dash-pkg.el rename to elpa/dash-20180910.1856/dash-pkg.el index de3f255..29e7123 100644 --- a/elpa/dash-20180903.1042/dash-pkg.el +++ b/elpa/dash-20180910.1856/dash-pkg.el @@ -1,2 +1,2 @@ ;;; -*- no-byte-compile: t -*- -(define-package "dash" "20180903.1042" "A modern list library for Emacs" 'nil :commit "85e8f62b7a8ae0b4da307ddf16e4f1c3559d0d3f" :keywords '("lists") :authors '(("Magnar Sveen" . "magnars@gmail.com")) :maintainer '("Magnar Sveen" . "magnars@gmail.com")) +(define-package "dash" "20180910.1856" "A modern list library for Emacs" 'nil :commit "6514359b8606a6a9a94068ccd601fcd6379d6584" :keywords '("lists") :authors '(("Magnar Sveen" . "magnars@gmail.com")) :maintainer '("Magnar Sveen" . "magnars@gmail.com")) diff --git a/elpa/dash-20180903.1042/dash.el b/elpa/dash-20180910.1856/dash.el similarity index 99% rename from elpa/dash-20180903.1042/dash.el rename to elpa/dash-20180910.1856/dash.el index e5747e1..ee67456 100644 --- a/elpa/dash-20180903.1042/dash.el +++ b/elpa/dash-20180910.1856/dash.el @@ -4,7 +4,7 @@ ;; Author: Magnar Sveen ;; Version: 2.14.1 -;; Package-Version: 20180903.1042 +;; Package-Version: 20180910.1856 ;; Keywords: lists ;; This program is free software; you can redistribute it and/or modify @@ -206,7 +206,7 @@ Return nil, used for side-effects only." "Return the result of applying FN to INITIAL-VALUE and the first item in LIST, then applying FN to that result and the 2nd item, etc. If LIST contains no items, return INITIAL-VALUE and -FN is not called. +do not call FN. In the anaphoric form `--reduce-from', the accumulated value is exposed as symbol `acc'. @@ -226,9 +226,9 @@ See also: `-reduce', `-reduce-r'" (defun -reduce (fn list) "Return the result of applying FN to the first 2 items in LIST, then applying FN to that result and the 3rd item, etc. If LIST -contains no items, FN must accept no arguments as well, and -reduce return the result of calling FN with no arguments. If -LIST has only 1 item, it is returned and FN is not called. +contains no items, return the result of calling FN with no +arguments. If LIST contains a single item, return that item +and do not call FN. In the anaphoric form `--reduce', the accumulated value is exposed as symbol `acc'. @@ -238,6 +238,11 @@ See also: `-reduce-from', `-reduce-r'" (-reduce-from fn (car list) (cdr list)) (funcall fn))) +(defmacro --reduce-r-from (form initial-value list) + "Anaphoric version of `-reduce-r-from'." + (declare (debug (form form form))) + `(--reduce-from ,form ,initial-value (reverse ,list))) + (defun -reduce-r-from (fn initial-value list) "Replace conses with FN, nil with INITIAL-VALUE and evaluate the resulting expression. If LIST is empty, INITIAL-VALUE is @@ -247,20 +252,18 @@ Note: this function works the same as `-reduce-from' but the operation associates from right instead of from left. See also: `-reduce-r', `-reduce'" - (if (not list) initial-value - (funcall fn (car list) (-reduce-r-from fn initial-value (cdr list))))) + (--reduce-r-from (funcall fn it acc) initial-value list)) -(defmacro --reduce-r-from (form initial-value list) - "Anaphoric version of `-reduce-r-from'." - (declare (debug (form form form))) - `(-reduce-r-from (lambda (&optional it acc) ,form) ,initial-value ,list)) +(defmacro --reduce-r (form list) + "Anaphoric version of `-reduce-r'." + (declare (debug (form form))) + `(--reduce ,form (reverse ,list))) (defun -reduce-r (fn list) "Replace conses with FN and evaluate the resulting expression. -The final nil is ignored. If LIST contains no items, FN must -accept no arguments as well, and reduce return the result of -calling FN with no arguments. If LIST has only 1 item, it is -returned and FN is not called. +The final nil is ignored. If LIST contains no items, return the +result of calling FN with no arguments. If LIST contains a single +item, return that item and do not call FN. The first argument of FN is the new item, the second is the accumulated value. @@ -269,15 +272,9 @@ Note: this function works the same as `-reduce' but the operation associates from right instead of from left. See also: `-reduce-r-from', `-reduce'" - (cond - ((not list) (funcall fn)) - ((not (cdr list)) (car list)) - (t (funcall fn (car list) (-reduce-r fn (cdr list)))))) - -(defmacro --reduce-r (form list) - "Anaphoric version of `-reduce-r'." - (declare (debug (form form))) - `(-reduce-r (lambda (&optional it acc) ,form) ,list)) + (if list + (--reduce-r (funcall fn it acc) list) + (funcall fn))) (defun -reductions-from (fn init list) "Return a list of the intermediate values of the reduction. @@ -293,7 +290,7 @@ See also: `-reductions', `-reductions-r', `-reduce-r'" See `-reduce' for explanation of the arguments. See also: `-reductions-from', `-reductions-r', `-reduce-r'" - (-reductions-from fn (car list) (cdr list))) + (and list (-reductions-from fn (car list) (cdr list)))) (defun -reductions-r-from (fn init list) "Return a list of the intermediate values of the reduction. @@ -309,7 +306,11 @@ See also: `-reductions-r', `-reductions', `-reduce'" See `-reduce-r' for explanation of the arguments. See also: `-reductions-r-from', `-reductions', `-reduce'" - (-reductions-r-from fn (-last-item list) (-butlast list))) + (when list + (let ((rev (reverse list))) + (--reduce-from (cons (funcall fn it (car acc)) acc) + (list (car rev)) + (cdr rev))))) (defmacro --filter (form list) "Anaphoric form of `-filter'. @@ -2311,6 +2312,10 @@ or with `-compare-fn' if that's non-nil." (--reduce (--take-while (and acc (equal (pop acc) it)) it) lists)) +(defun -common-suffix (&rest lists) + "Return the longest common suffix of LISTS." + (nreverse (apply #'-common-prefix (mapcar #'reverse lists)))) + (defun -contains? (list element) "Return non-nil if LIST contains ELEMENT. @@ -2905,6 +2910,7 @@ structure such as plist or alist." "-inits" "-tails" "-common-prefix" + "-common-suffix" "-contains?" "-contains-p" "-same-items?" diff --git a/elpa/hydra-20180703.1502/hydra-autoloads.el b/elpa/hydra-20181030.1925/hydra-autoloads.el similarity index 95% rename from elpa/hydra-20180703.1502/hydra-autoloads.el rename to elpa/hydra-20181030.1925/hydra-autoloads.el index 95b88de..629985b 100644 --- a/elpa/hydra-20180703.1502/hydra-autoloads.el +++ b/elpa/hydra-20181030.1925/hydra-autoloads.el @@ -3,7 +3,7 @@ ;;; Code: (add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path)))) -;;;### (autoloads nil "hydra" "hydra.el" (23441 26489 426362 307000)) +;;;### (autoloads nil "hydra" "hydra.el" (23517 56142 130390 488000)) ;;; Generated autoloads from hydra.el (autoload 'defhydra "hydra" "\ @@ -65,7 +65,7 @@ result of `defhydra'. ;;;*** ;;;### (autoloads nil nil ("hydra-examples.el" "hydra-ox.el" "hydra-pkg.el" -;;;;;; "lv.el") (23441 26489 442362 364000)) +;;;;;; "lv.el") (23517 56142 142390 549000)) ;;;*** diff --git a/elpa/hydra-20180703.1502/hydra-examples.el b/elpa/hydra-20181030.1925/hydra-examples.el similarity index 100% rename from elpa/hydra-20180703.1502/hydra-examples.el rename to elpa/hydra-20181030.1925/hydra-examples.el diff --git a/elpa/hydra-20180703.1502/hydra-ox.el b/elpa/hydra-20181030.1925/hydra-ox.el similarity index 100% rename from elpa/hydra-20180703.1502/hydra-ox.el rename to elpa/hydra-20181030.1925/hydra-ox.el diff --git a/elpa/hydra-20180703.1502/hydra-pkg.el b/elpa/hydra-20181030.1925/hydra-pkg.el similarity index 80% rename from elpa/hydra-20180703.1502/hydra-pkg.el rename to elpa/hydra-20181030.1925/hydra-pkg.el index cbef1e0..32e1e4c 100644 --- a/elpa/hydra-20180703.1502/hydra-pkg.el +++ b/elpa/hydra-20181030.1925/hydra-pkg.el @@ -1,4 +1,4 @@ -(define-package "hydra" "20180703.1502" "Make bindings that stick around." +(define-package "hydra" "20181030.1925" "Make bindings that stick around." '((cl-lib "0.5")) :keywords '("bindings") diff --git a/elpa/hydra-20180703.1502/hydra.el b/elpa/hydra-20181030.1925/hydra.el similarity index 99% rename from elpa/hydra-20180703.1502/hydra.el rename to elpa/hydra-20181030.1925/hydra.el index febfcb1..e738b18 100644 --- a/elpa/hydra-20180703.1502/hydra.el +++ b/elpa/hydra-20181030.1925/hydra.el @@ -559,7 +559,7 @@ BODY, and HEADS are parameters to `defhydra'." (heads-w-col (cl-remove-if-not (lambda (heads) (hydra--head-property (nth 0 heads) :column)) sorted-heads)) (heads-wo-col (cl-remove-if (lambda (heads) (hydra--head-property (nth 0 heads) :column)) sorted-heads))) (concat (when heads-w-col - (concat "\n" (hydra--hint-from-matrix body (hydra--generate-matrix heads-w-col)))) + (hydra--hint-from-matrix body (hydra--generate-matrix heads-w-col))) (when heads-wo-col (hydra--hint-heads-wocol body (car heads-wo-col)))))) @@ -717,7 +717,7 @@ The expressions can be auto-expanded according to NAME." (substring docstring (+ start offset 1 lspec varp)))))))) (cond ((string= docstring "") - (substring rest 1)) + rest) ((eq ?\n (aref docstring 0)) `(concat (format ,(substring docstring 1) ,@(nreverse varlist)) ,rest)) diff --git a/elpa/hydra-20180703.1502/lv.el b/elpa/hydra-20181030.1925/lv.el similarity index 98% rename from elpa/hydra-20180703.1502/lv.el rename to elpa/hydra-20181030.1925/lv.el index 87f7e5e..28f83b4 100644 --- a/elpa/hydra-20180703.1502/lv.el +++ b/elpa/hydra-20181030.1925/lv.el @@ -72,6 +72,7 @@ Only the background color is significant." (setq window-size-fixed t) (setq mode-line-format nil) (setq cursor-type nil) + (setq display-line-numbers nil) (set-window-dedicated-p lv-wnd t) (set-window-parameter lv-wnd 'no-other-window t)) (select-window ori))))) diff --git a/elpa/multiple-cursors-20180615.1218/mc-cycle-cursors.el b/elpa/multiple-cursors-20180913.1237/mc-cycle-cursors.el similarity index 100% rename from elpa/multiple-cursors-20180615.1218/mc-cycle-cursors.el rename to elpa/multiple-cursors-20180913.1237/mc-cycle-cursors.el diff --git a/elpa/multiple-cursors-20180615.1218/mc-edit-lines.el b/elpa/multiple-cursors-20180913.1237/mc-edit-lines.el similarity index 100% rename from elpa/multiple-cursors-20180615.1218/mc-edit-lines.el rename to elpa/multiple-cursors-20180913.1237/mc-edit-lines.el diff --git a/elpa/multiple-cursors-20180615.1218/mc-hide-unmatched-lines-mode.el b/elpa/multiple-cursors-20180913.1237/mc-hide-unmatched-lines-mode.el similarity index 100% rename from elpa/multiple-cursors-20180615.1218/mc-hide-unmatched-lines-mode.el rename to elpa/multiple-cursors-20180913.1237/mc-hide-unmatched-lines-mode.el diff --git a/elpa/multiple-cursors-20180615.1218/mc-mark-more.el b/elpa/multiple-cursors-20180913.1237/mc-mark-more.el similarity index 96% rename from elpa/multiple-cursors-20180615.1218/mc-mark-more.el rename to elpa/multiple-cursors-20180913.1237/mc-mark-more.el index ab1adce..da8cedf 100644 --- a/elpa/multiple-cursors-20180615.1218/mc-mark-more.el +++ b/elpa/multiple-cursors-20180913.1237/mc-mark-more.el @@ -56,7 +56,7 @@ (defun mc/furthest-cursor-before-point () (let ((beg (if mark-active (min (mark) (point)) (point))) - furthest) + furthest) (mc/for-each-fake-cursor (when (< (mc/cursor-beg cursor) beg) (setq beg (mc/cursor-beg cursor)) @@ -65,7 +65,7 @@ (defun mc/furthest-cursor-after-point () (let ((end (if mark-active (max (mark) (point)) (point))) - furthest) + furthest) (mc/for-each-fake-cursor (when (> (mc/cursor-end cursor) end) (setq end (mc/cursor-end cursor)) @@ -142,9 +142,9 @@ With zero ARG, skip the last one and mark next." (interactive "p") (if (< arg 0) (let ((cursor (mc/furthest-cursor-after-point))) - (if cursor - (mc/remove-fake-cursor cursor) - (error "No cursors to be unmarked"))) + (if cursor + (mc/remove-fake-cursor cursor) + (error "No cursors to be unmarked"))) (if (region-active-p) (mc/mark-more-like-this (= arg 0) 'forwards) (mc/mark-lines arg 'forwards))) @@ -159,9 +159,9 @@ With zero ARG, skip the last one and mark next." (interactive "p") (if (< arg 0) (let ((cursor (mc/furthest-cursor-after-point))) - (if cursor - (mc/remove-fake-cursor cursor) - (error "No cursors to be unmarked"))) + (if cursor + (mc/remove-fake-cursor cursor) + (error "No cursors to be unmarked"))) (if (region-active-p) (mc/mark-more-like-this (= arg 0) 'forwards) (mc--select-thing-at-point 'word) @@ -176,9 +176,9 @@ With zero ARG, skip the last one and mark next." (interactive "p") (if (< arg 0) (let ((cursor (mc/furthest-cursor-after-point))) - (if cursor - (mc/remove-fake-cursor cursor) - (error "No cursors to be unmarked"))) + (if cursor + (mc/remove-fake-cursor cursor) + (error "No cursors to be unmarked"))) (if (region-active-p) (mc/mark-more-like-this (= arg 0) 'forwards) (mc--select-thing-at-point 'symbol) @@ -217,9 +217,9 @@ With zero ARG, skip the last one and mark next." (interactive "p") (if (< arg 0) (let ((cursor (mc/furthest-cursor-before-point))) - (if cursor - (mc/remove-fake-cursor cursor) - (error "No cursors to be unmarked"))) + (if cursor + (mc/remove-fake-cursor cursor) + (error "No cursors to be unmarked"))) (if (region-active-p) (mc/mark-more-like-this (= arg 0) 'backwards) (mc/mark-lines arg 'backwards))) @@ -234,9 +234,9 @@ With zero ARG, skip the last one and mark previous." (interactive "p") (if (< arg 0) (let ((cursor (mc/furthest-cursor-after-point))) - (if cursor - (mc/remove-fake-cursor cursor) - (error "No cursors to be unmarked"))) + (if cursor + (mc/remove-fake-cursor cursor) + (error "No cursors to be unmarked"))) (if (region-active-p) (mc/mark-more-like-this (= arg 0) 'backwards) (mc--select-thing-at-point 'word) @@ -251,9 +251,9 @@ With zero ARG, skip the last one and mark previous." (interactive "p") (if (< arg 0) (let ((cursor (mc/furthest-cursor-after-point))) - (if cursor - (mc/remove-fake-cursor cursor) - (error "No cursors to be unmarked"))) + (if cursor + (mc/remove-fake-cursor cursor) + (error "No cursors to be unmarked"))) (if (region-active-p) (mc/mark-more-like-this (= arg 0) 'backwards) (mc--select-thing-at-point 'symbol) @@ -287,8 +287,8 @@ With zero ARG, skip the last one and mark next." (dotimes (i (if (= num-lines 0) 1 num-lines)) (mc/save-excursion (let ((furthest-cursor (cl-ecase direction - (forwards (mc/furthest-cursor-after-point)) - (backwards (mc/furthest-cursor-before-point))))) + (forwards (mc/furthest-cursor-after-point)) + (backwards (mc/furthest-cursor-before-point))))) (when (overlayp furthest-cursor) (goto-char (overlay-get furthest-cursor 'point)) (when (= num-lines 0) @@ -425,7 +425,7 @@ With zero ARG, skip the last one and mark next." (forward-char))) (unless lastmatch (error "Search failed for %S" search))) - (goto-char (match-end 0)) + (goto-char (match-end 0)) (if (< (mc/num-cursors) 3) (multiple-cursors-mode 0) (mc/pop-state-from-overlay (mc/furthest-cursor-before-point)) @@ -583,7 +583,7 @@ If the region is inactive or on a single line, it will behave like (line-number-at-pos (region-end))))) (if arg (call-interactively 'mc/edit-lines) - (call-interactively 'mc/mark-all-in-region)) + (call-interactively 'mc/mark-all-in-region)) (progn (setq this-command 'mc/mark-all-like-this-dwim) (mc/mark-all-like-this-dwim arg)))) diff --git a/elpa/multiple-cursors-20180615.1218/mc-mark-pop.el b/elpa/multiple-cursors-20180913.1237/mc-mark-pop.el similarity index 100% rename from elpa/multiple-cursors-20180615.1218/mc-mark-pop.el rename to elpa/multiple-cursors-20180913.1237/mc-mark-pop.el diff --git a/elpa/multiple-cursors-20180615.1218/mc-separate-operations.el b/elpa/multiple-cursors-20180913.1237/mc-separate-operations.el similarity index 94% rename from elpa/multiple-cursors-20180615.1218/mc-separate-operations.el rename to elpa/multiple-cursors-20180913.1237/mc-separate-operations.el index ca10775..07ce928 100644 --- a/elpa/multiple-cursors-20180615.1218/mc-separate-operations.el +++ b/elpa/multiple-cursors-20180913.1237/mc-separate-operations.el @@ -29,6 +29,14 @@ (require 'multiple-cursors-core) +(defcustom mc/insert-numbers-default 0 + "The default number at which to start counting for +`mc/insert-numbers'" + :type 'integer + :group 'multiple-cursors) + +(defvar mc--insert-numbers-number 0) + ;;;###autoload (defun mc/insert-numbers (arg) "Insert increasing numbers for each cursor, starting at @@ -39,14 +47,6 @@ (mc/for-each-cursor-ordered (mc/execute-command-for-fake-cursor 'mc--insert-number-and-increase cursor))) -(defcustom mc/insert-numbers-default 0 - "The default number at which to start counting for -`mc/insert-numbers'" - :type 'integer - :group 'multiple-cursors) - -(defvar mc--insert-numbers-number 0) - (defun mc--insert-number-and-increase () (interactive) (insert (number-to-string mc--insert-numbers-number)) @@ -61,6 +61,8 @@ (mc/cursor-end cursor)) strings)))) (nreverse strings))) +(defvar mc--insert-letters-number 0) + ;;;###autoload (defun mc/insert-letters (arg) "Insert increasing letters for each cursor, starting at 0 or ARG. @@ -73,15 +75,13 @@ (defun mc--number-to-letters (number) (let ((letter - (char-to-string - (+ (mod number 26) ?a))) - (number2 (/ number 26))) + (char-to-string + (+ (mod number 26) ?a))) + (number2 (/ number 26))) (if (> number2 0) - (concat (mc--number-to-letters (- number2 1)) letter) + (concat (mc--number-to-letters (- number2 1)) letter) letter))) -(defvar mc--insert-letters-number 0) - (defun mc--insert-letter-and-increase () (interactive) (insert (mc--number-to-letters mc--insert-letters-number)) @@ -137,19 +137,14 @@ Might not behave as intended if more than one cursors are on the same line." (lambda () (interactive) (let ((missing-spaces (- rightest-column (current-column)))) - (save-excursion (insert (make-string missing-spaces character))) - (forward-char missing-spaces) - ) - )) - ) - ) + (save-excursion (insert (make-string missing-spaces character))) + (forward-char missing-spaces)))))) ;;;###autoload (defun mc/vertical-align-with-space () "Aligns all cursors with whitespace like `mc/vertical-align' does" (interactive) - (mc/vertical-align 32) - ) + (mc/vertical-align 32)) (provide 'mc-separate-operations) ;;; mc-separate-operations.el ends here diff --git a/elpa/multiple-cursors-20180615.1218/multiple-cursors-autoloads.el b/elpa/multiple-cursors-20180913.1237/multiple-cursors-autoloads.el similarity index 95% rename from elpa/multiple-cursors-20180615.1218/multiple-cursors-autoloads.el rename to elpa/multiple-cursors-20180913.1237/multiple-cursors-autoloads.el index c9c933b..91f3cd7 100644 --- a/elpa/multiple-cursors-20180615.1218/multiple-cursors-autoloads.el +++ b/elpa/multiple-cursors-20180913.1237/multiple-cursors-autoloads.el @@ -3,8 +3,8 @@ ;;; Code: (add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path)))) -;;;### (autoloads nil "mc-edit-lines" "mc-edit-lines.el" (23441 26442 -;;;;;; 494078 132000)) +;;;### (autoloads nil "mc-edit-lines" "mc-edit-lines.el" (23517 56120 +;;;;;; 926283 899000)) ;;; Generated autoloads from mc-edit-lines.el (autoload 'mc/edit-lines "mc-edit-lines" "\ @@ -34,7 +34,7 @@ Add one cursor to the beginning of each line in the active region. ;;;*** ;;;### (autoloads nil "mc-hide-unmatched-lines-mode" "mc-hide-unmatched-lines-mode.el" -;;;;;; (23441 26442 558078 546000)) +;;;;;; (23517 56120 982284 180000)) ;;; Generated autoloads from mc-hide-unmatched-lines-mode.el (autoload 'mc-hide-unmatched-lines-mode "mc-hide-unmatched-lines-mode" "\ @@ -48,8 +48,8 @@ mode. To leave this mode press or \"C-g\" ;;;*** -;;;### (autoloads nil "mc-mark-more" "mc-mark-more.el" (23441 26442 -;;;;;; 510078 235000)) +;;;### (autoloads nil "mc-mark-more" "mc-mark-more.el" (23517 56120 +;;;;;; 954284 39000)) ;;; Generated autoloads from mc-mark-more.el (autoload 'mc/mark-next-like-this "mc-mark-more" "\ @@ -246,8 +246,8 @@ Mark the tag we're in and its pair for renaming. ;;;*** -;;;### (autoloads nil "mc-mark-pop" "mc-mark-pop.el" (23441 26442 -;;;;;; 562078 571000)) +;;;### (autoloads nil "mc-mark-pop" "mc-mark-pop.el" (23517 56120 +;;;;;; 986284 200000)) ;;; Generated autoloads from mc-mark-pop.el (autoload 'mc/mark-pop "mc-mark-pop" "\ @@ -259,7 +259,7 @@ to the popped mark. ;;;*** ;;;### (autoloads nil "mc-separate-operations" "mc-separate-operations.el" -;;;;;; (23441 26442 486078 80000)) +;;;;;; (23517 56120 910283 818000)) ;;; Generated autoloads from mc-separate-operations.el (autoload 'mc/insert-numbers "mc-separate-operations" "\ @@ -299,7 +299,7 @@ Aligns all cursors with whitespace like `mc/vertical-align' does ;;;*** ;;;### (autoloads nil "multiple-cursors-core" "multiple-cursors-core.el" -;;;;;; (23441 26442 534078 390000)) +;;;;;; (23517 56120 966284 100000)) ;;; Generated autoloads from multiple-cursors-core.el (autoload 'multiple-cursors-mode "multiple-cursors-core" "\ @@ -310,7 +310,7 @@ Mode while multiple cursors are active. ;;;*** ;;;### (autoloads nil "rectangular-region-mode" "rectangular-region-mode.el" -;;;;;; (23441 26442 546078 468000)) +;;;;;; (23517 56120 974284 140000)) ;;; Generated autoloads from rectangular-region-mode.el (autoload 'set-rectangular-region-anchor "rectangular-region-mode" "\ @@ -329,7 +329,7 @@ A mode for creating a rectangular region to edit ;;;*** ;;;### (autoloads nil nil ("mc-cycle-cursors.el" "multiple-cursors-pkg.el" -;;;;;; "multiple-cursors.el") (23441 26442 522078 313000)) +;;;;;; "multiple-cursors.el") (23517 56120 958284 59000)) ;;;*** diff --git a/elpa/multiple-cursors-20180615.1218/multiple-cursors-core.el b/elpa/multiple-cursors-20180913.1237/multiple-cursors-core.el similarity index 100% rename from elpa/multiple-cursors-20180615.1218/multiple-cursors-core.el rename to elpa/multiple-cursors-20180913.1237/multiple-cursors-core.el diff --git a/elpa/multiple-cursors-20180615.1218/multiple-cursors-pkg.el b/elpa/multiple-cursors-20180913.1237/multiple-cursors-pkg.el similarity index 57% rename from elpa/multiple-cursors-20180615.1218/multiple-cursors-pkg.el rename to elpa/multiple-cursors-20180913.1237/multiple-cursors-pkg.el index 88c5f66..af9fd61 100644 --- a/elpa/multiple-cursors-20180615.1218/multiple-cursors-pkg.el +++ b/elpa/multiple-cursors-20180913.1237/multiple-cursors-pkg.el @@ -1,4 +1,4 @@ -(define-package "multiple-cursors" "20180615.1218" "Multiple cursors for Emacs." +(define-package "multiple-cursors" "20180913.1237" "Multiple cursors for Emacs." '((cl-lib "0.5"))) ;; Local Variables: ;; no-byte-compile: t diff --git a/elpa/multiple-cursors-20180615.1218/multiple-cursors.el b/elpa/multiple-cursors-20180913.1237/multiple-cursors.el similarity index 100% rename from elpa/multiple-cursors-20180615.1218/multiple-cursors.el rename to elpa/multiple-cursors-20180913.1237/multiple-cursors.el diff --git a/elpa/multiple-cursors-20180615.1218/rectangular-region-mode.el b/elpa/multiple-cursors-20180913.1237/rectangular-region-mode.el similarity index 100% rename from elpa/multiple-cursors-20180615.1218/rectangular-region-mode.el rename to elpa/multiple-cursors-20180913.1237/rectangular-region-mode.el