[ELPA] Update

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))
 
 ;;;***
 

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"))

elpa/dash-20180910.1856/dash.el

@@ -4,7 +4,7 @@
 
 ;; Author: Magnar Sveen <magnars@gmail.com>
 ;; 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
+contains no items, return the result of calling FN with no
-reduce return the result of calling FN with no arguments. If
+arguments. If LIST contains a single item, return that item
-LIST has only 1 item, it is returned and FN is not called.
+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
+  (--reduce-r-from (funcall fn it acc) initial-value list))
-    (funcall fn (car list) (-reduce-r-from fn initial-value (cdr list)))))
 
-(defmacro --reduce-r-from (form initial-value list)
+(defmacro --reduce-r (form list)
-  "Anaphoric version of `-reduce-r-from'."
+  "Anaphoric version of `-reduce-r'."
-  (declare (debug (form form form)))
+  (declare (debug (form form)))
-  `(-reduce-r-from (lambda (&optional it acc) ,form) ,initial-value ,list))
+  `(--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
+The final nil is ignored. If LIST contains no items, return the
-accept no arguments as well, and reduce return the result of
+result of calling FN with no arguments. If LIST contains a single
-calling FN with no arguments. If LIST has only 1 item, it is
+item, return that item and do not call FN.
-returned and FN is not called.
 
 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
+  (if list
-   ((not list) (funcall fn))
+      (--reduce-r (funcall fn it acc) list)
-   ((not (cdr list)) (car list))
+    (funcall fn)))
-   (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))
 
 (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?"

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))
 
 ;;;***
 

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")

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))

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)))))

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
+        (if cursor
-	    (mc/remove-fake-cursor cursor)
+            (mc/remove-fake-cursor cursor)
-	  (error "No cursors to be unmarked")))
+          (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
+        (if cursor
-	    (mc/remove-fake-cursor cursor)
+            (mc/remove-fake-cursor cursor)
-	  (error "No cursors to be unmarked")))
+          (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
+        (if cursor
-	    (mc/remove-fake-cursor cursor)
+            (mc/remove-fake-cursor cursor)
-	  (error "No cursors to be unmarked")))
+          (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
+        (if cursor
-	    (mc/remove-fake-cursor cursor)
+            (mc/remove-fake-cursor cursor)
-	  (error "No cursors to be unmarked")))
+          (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
+        (if cursor
-	    (mc/remove-fake-cursor cursor)
+            (mc/remove-fake-cursor cursor)
-	  (error "No cursors to be unmarked")))
+          (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
+        (if cursor
-	    (mc/remove-fake-cursor cursor)
+            (mc/remove-fake-cursor cursor)
-	  (error "No cursors to be unmarked")))
+          (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))
+                              (forwards  (mc/furthest-cursor-after-point))
-			      (backwards (mc/furthest-cursor-before-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))))

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
+         (char-to-string
-	  (+ (mod number 26) ?a)))
+          (+ (mod number 26) ?a)))
-	(number2 (/ number 26)))
+        (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)))
+         (save-excursion (insert (make-string missing-spaces character)))
-	 (forward-char missing-spaces)
+         (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

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
+;;;### (autoloads nil "mc-edit-lines" "mc-edit-lines.el" (23517 56120
-;;;;;;  494078 132000))
+;;;;;;  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 <return> or \"C-g\"
 
 ;;;***
 
-;;;### (autoloads nil "mc-mark-more" "mc-mark-more.el" (23441 26442
+;;;### (autoloads nil "mc-mark-more" "mc-mark-more.el" (23517 56120
-;;;;;;  510078 235000))
+;;;;;;  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
+;;;### (autoloads nil "mc-mark-pop" "mc-mark-pop.el" (23517 56120
-;;;;;;  562078 571000))
+;;;;;;  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))
 
 ;;;***
 

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