[ELPA] Package Update
This commit is contained in:
parent
926e977016
commit
8950a3e8ab
|
@ -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" (23517 56142 130390 488000))
|
||||
;;;### (autoloads nil "hydra" "hydra.el" (23555 58032 639630 221000))
|
||||
;;; 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") (23517 56142 142390 549000))
|
||||
;;;;;; "lv.el") (23555 58032 655630 298000))
|
||||
|
||||
;;;***
|
||||
|
|
@ -1,4 +1,4 @@
|
|||
(define-package "hydra" "20181030.1925" "Make bindings that stick around."
|
||||
(define-package "hydra" "20181128.1716" "Make bindings that stick around."
|
||||
'((cl-lib "0.5"))
|
||||
:keywords
|
||||
'("bindings")
|
|
@ -724,7 +724,13 @@ The expressions can be auto-expanded according to NAME."
|
|||
(t
|
||||
(let ((r `(replace-regexp-in-string
|
||||
" +$" ""
|
||||
(concat ,docstring ": "
|
||||
(concat ,docstring
|
||||
,(cond ((string-match-p "\\`\n" rest)
|
||||
":")
|
||||
((string-match-p "\n" rest)
|
||||
":\n")
|
||||
(t
|
||||
": "))
|
||||
(replace-regexp-in-string
|
||||
"\\(%\\)" "\\1\\1" ,rest)))))
|
||||
(if (stringp rest)
|
|
@ -54,6 +54,8 @@ Only the background color is significant."
|
|||
(defvar lv-wnd nil
|
||||
"Holds the current LV window.")
|
||||
|
||||
(defvar display-line-numbers)
|
||||
|
||||
(defun lv-window ()
|
||||
"Ensure that LV window is live and return it."
|
||||
(if (window-live-p lv-wnd)
|
|
@ -4,7 +4,7 @@
|
|||
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
|
||||
|
||||
;;;### (autoloads nil "use-package-bind-key" "use-package-bind-key.el"
|
||||
;;;;;; (23441 26325 101319 983000))
|
||||
;;;;;; (23555 57959 115271 477000))
|
||||
;;; Generated autoloads from use-package-bind-key.el
|
||||
|
||||
(autoload 'use-package-autoload-keymap "use-package-bind-key" "\
|
||||
|
@ -55,8 +55,8 @@ deferred until the prefix key sequence is pressed.
|
|||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "use-package-core" "use-package-core.el" (23441
|
||||
;;;;;; 26325 45319 621000))
|
||||
;;;### (autoloads nil "use-package-core" "use-package-core.el" (23555
|
||||
;;;;;; 57959 63271 224000))
|
||||
;;; Generated autoloads from use-package-core.el
|
||||
|
||||
(autoload 'use-package "use-package-core" "\
|
||||
|
@ -121,7 +121,7 @@ this file. Usage:
|
|||
;;;***
|
||||
|
||||
;;;### (autoloads nil "use-package-delight" "use-package-delight.el"
|
||||
;;;;;; (23441 26325 33319 544000))
|
||||
;;;;;; (23555 57959 51271 166000))
|
||||
;;; Generated autoloads from use-package-delight.el
|
||||
|
||||
(autoload 'use-package-normalize/:delight "use-package-delight" "\
|
||||
|
@ -137,7 +137,7 @@ Normalize arguments to delight.
|
|||
;;;***
|
||||
|
||||
;;;### (autoloads nil "use-package-diminish" "use-package-diminish.el"
|
||||
;;;;;; (23441 26325 81319 854000))
|
||||
;;;;;; (23555 57959 95271 379000))
|
||||
;;; Generated autoloads from use-package-diminish.el
|
||||
|
||||
(autoload 'use-package-normalize/:diminish "use-package-diminish" "\
|
||||
|
@ -153,7 +153,7 @@ Normalize arguments to delight.
|
|||
;;;***
|
||||
|
||||
;;;### (autoloads nil "use-package-ensure" "use-package-ensure.el"
|
||||
;;;;;; (23441 26325 53319 673000))
|
||||
;;;;;; (23555 57959 71271 263000))
|
||||
;;; Generated autoloads from use-package-ensure.el
|
||||
|
||||
(autoload 'use-package-normalize/:ensure "use-package-ensure" "\
|
||||
|
@ -168,8 +168,8 @@ Normalize arguments to delight.
|
|||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "use-package-jump" "use-package-jump.el" (23441
|
||||
;;;;;; 26325 61319 724000))
|
||||
;;;### (autoloads nil "use-package-jump" "use-package-jump.el" (23555
|
||||
;;;;;; 57959 79271 302000))
|
||||
;;; Generated autoloads from use-package-jump.el
|
||||
|
||||
(autoload 'use-package-jump-to-package-form "use-package-jump" "\
|
||||
|
@ -183,8 +183,8 @@ instead.
|
|||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "use-package-lint" "use-package-lint.el" (23441
|
||||
;;;;;; 26325 73319 802000))
|
||||
;;;### (autoloads nil "use-package-lint" "use-package-lint.el" (23555
|
||||
;;;;;; 57959 91271 361000))
|
||||
;;; Generated autoloads from use-package-lint.el
|
||||
|
||||
(autoload 'use-package-lint "use-package-lint" "\
|
||||
|
@ -197,7 +197,7 @@ with the specified `:load-path' the module cannot be found.
|
|||
;;;***
|
||||
|
||||
;;;### (autoloads nil nil ("use-package-pkg.el" "use-package.el")
|
||||
;;;;;; (23441 26325 65319 751000))
|
||||
;;;;;; (23555 57959 83271 321000))
|
||||
|
||||
;;;***
|
||||
|
|
@ -988,10 +988,10 @@ The date is returned as a string."
|
|||
|
||||
(defun use-package-statistics-time (package)
|
||||
"Return the time is took for PACKAGE to load."
|
||||
(+ (float-time (gethash :config-secs package 0))
|
||||
(float-time (gethash :init-secs package 0))
|
||||
(float-time (gethash :preface-secs package 0))
|
||||
(float-time (gethash :use-package-secs package 0))))
|
||||
(+ (float-time (gethash :config-secs package '(0 0 0 0)))
|
||||
(float-time (gethash :init-secs package '(0 0 0 0)))
|
||||
(float-time (gethash :preface-secs package '(0 0 0 0)))
|
||||
(float-time (gethash :use-package-secs package '(0 0 0 0)))))
|
||||
|
||||
(defun use-package-statistics-convert (package)
|
||||
"Return information about PACKAGE.
|
||||
|
@ -1315,41 +1315,41 @@ meaning:
|
|||
args
|
||||
(list args)))
|
||||
|
||||
(defun use-package-after-count-uses (features)
|
||||
(defun use-package-after-count-uses (features*)
|
||||
"Count the number of time the body would appear in the result."
|
||||
(cond ((use-package-non-nil-symbolp features)
|
||||
(cond ((use-package-non-nil-symbolp features*)
|
||||
1)
|
||||
((and (consp features)
|
||||
(memq (car features) '(:or :any)))
|
||||
((and (consp features*)
|
||||
(memq (car features*) '(:or :any)))
|
||||
(let ((num 0))
|
||||
(cl-dolist (next (cdr features))
|
||||
(cl-dolist (next (cdr features*))
|
||||
(setq num (+ num (use-package-after-count-uses next))))
|
||||
num))
|
||||
((and (consp features)
|
||||
(memq (car features) '(:and :all)))
|
||||
((and (consp features*)
|
||||
(memq (car features*) '(:and :all)))
|
||||
(apply #'max (mapcar #'use-package-after-count-uses
|
||||
(cdr features))))
|
||||
((listp features)
|
||||
(use-package-after-count-uses (cons :all features)))))
|
||||
(cdr features*))))
|
||||
((listp features*)
|
||||
(use-package-after-count-uses (cons :all features*)))))
|
||||
|
||||
(defun use-package-require-after-load (features body)
|
||||
"Generate `eval-after-load' statements to represents FEATURES.
|
||||
FEATURES is a list containing keywords `:and' and `:all', where
|
||||
(defun use-package-require-after-load (features* body)
|
||||
"Generate `eval-after-load' statements to represents FEATURES*.
|
||||
FEATURES* is a list containing keywords `:and' and `:all', where
|
||||
no keyword implies `:all'."
|
||||
(cond
|
||||
((use-package-non-nil-symbolp features)
|
||||
`((eval-after-load ',features ',(macroexp-progn body))))
|
||||
((and (consp features)
|
||||
(memq (car features) '(:or :any)))
|
||||
((use-package-non-nil-symbolp features*)
|
||||
`((eval-after-load ',features* ',(macroexp-progn body))))
|
||||
((and (consp features*)
|
||||
(memq (car features*) '(:or :any)))
|
||||
(cl-mapcan #'(lambda (x) (use-package-require-after-load x body))
|
||||
(cdr features)))
|
||||
((and (consp features)
|
||||
(memq (car features) '(:and :all)))
|
||||
(cl-dolist (next (cdr features))
|
||||
(cdr features*)))
|
||||
((and (consp features*)
|
||||
(memq (car features*) '(:and :all)))
|
||||
(cl-dolist (next (cdr features*))
|
||||
(setq body (use-package-require-after-load next body)))
|
||||
body)
|
||||
((listp features)
|
||||
(use-package-require-after-load (cons :all features) body))))
|
||||
((listp features*)
|
||||
(use-package-require-after-load (cons :all features*) body))))
|
||||
|
||||
(defun use-package-handler/:after (name _keyword arg rest state)
|
||||
(let ((body (use-package-process-keywords name rest state))
|
|
@ -1,4 +1,4 @@
|
|||
(define-package "use-package" "20180715.1801" "A configuration macro for simplifying your .emacs"
|
||||
(define-package "use-package" "20181119.2350" "A configuration macro for simplifying your .emacs"
|
||||
'((emacs "24.3")
|
||||
(bind-key "2.4"))
|
||||
:keywords
|
Loading…
Reference in New Issue