Update packages

This commit is contained in:
Gergely Polonkai 2016-09-29 09:33:23 +02:00
parent 4835362c4d
commit f7ef9aced2
139 changed files with 482 additions and 317 deletions

View File

@ -3,7 +3,7 @@
;;; Code:
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
;;;### (autoloads nil "cider" "cider.el" (22505 21427 529825 550000))
;;;### (autoloads nil "cider" "cider.el" (22508 49905 421980 342000))
;;; Generated autoloads from cider.el
(autoload 'cider-version "cider" "\
@ -40,8 +40,8 @@ gets associated with it.
;;;***
;;;### (autoloads nil "cider-apropos" "cider-apropos.el" (22505 21427
;;;;;; 429825 562000))
;;;### (autoloads nil "cider-apropos" "cider-apropos.el" (22508 49905
;;;;;; 341980 175000))
;;; Generated autoloads from cider-apropos.el
(autoload 'cider-apropos "cider-apropos" "\
@ -78,8 +78,8 @@ Shortcut for (cider-apropos-select <query> nil t).
;;;***
;;;### (autoloads nil "cider-browse-ns" "cider-browse-ns.el" (22505
;;;;;; 21427 417825 564000))
;;;### (autoloads nil "cider-browse-ns" "cider-browse-ns.el" (22508
;;;;;; 49905 313980 117000))
;;; Generated autoloads from cider-browse-ns.el
(autoload 'cider-browse-ns "cider-browse-ns" "\
@ -94,8 +94,8 @@ List all loaded namespaces in BUFFER.
;;;***
;;;### (autoloads nil "cider-classpath" "cider-classpath.el" (22505
;;;;;; 21427 545825 548000))
;;;### (autoloads nil "cider-classpath" "cider-classpath.el" (22508
;;;;;; 49905 433980 367000))
;;; Generated autoloads from cider-classpath.el
(autoload 'cider-classpath "cider-classpath" "\
@ -110,8 +110,8 @@ Open a classpath entry.
;;;***
;;;### (autoloads nil "cider-debug" "cider-debug.el" (22505 21427
;;;;;; 421825 563000))
;;;### (autoloads nil "cider-debug" "cider-debug.el" (22508 49905
;;;;;; 325980 141000))
;;; Generated autoloads from cider-debug.el
(autoload 'cider-debug-defun-at-point "cider-debug" "\
@ -127,8 +127,8 @@ a number of keys will be prompted to the user.
;;;***
;;;### (autoloads nil "cider-grimoire" "cider-grimoire.el" (22505
;;;;;; 21427 481825 556000))
;;;### (autoloads nil "cider-grimoire" "cider-grimoire.el" (22508
;;;;;; 49905 377980 250000))
;;; Generated autoloads from cider-grimoire.el
(autoload 'cider-grimoire-web "cider-grimoire" "\
@ -151,8 +151,8 @@ opposite of what that option dictates.
;;;***
;;;### (autoloads nil "cider-inspector" "cider-inspector.el" (22505
;;;;;; 21427 465825 558000))
;;;### (autoloads nil "cider-inspector" "cider-inspector.el" (22508
;;;;;; 49905 369980 234000))
;;; Generated autoloads from cider-inspector.el
(autoload 'cider-inspect-last-sexp "cider-inspector" "\
@ -190,7 +190,7 @@ current buffer's namespace.
;;;***
;;;### (autoloads nil "cider-macroexpansion" "cider-macroexpansion.el"
;;;;;; (22505 21427 513825 552000))
;;;;;; (22508 49905 413980 326000))
;;; Generated autoloads from cider-macroexpansion.el
(autoload 'cider-macroexpand-1 "cider-macroexpansion" "\
@ -207,8 +207,8 @@ Invoke \\=`clojure.walk/macroexpand-all\\=` on the expression preceding point.
;;;***
;;;### (autoloads nil "cider-mode" "cider-mode.el" (22505 21427 441825
;;;;;; 561000))
;;;### (autoloads nil "cider-mode" "cider-mode.el" (22508 49905 349980
;;;;;; 192000))
;;; Generated autoloads from cider-mode.el
(defvar cider-mode-line '(:eval (format " cider[%s]" (cider--modeline-info))) "\
@ -236,8 +236,8 @@ Minor mode for REPL interaction from a Clojure buffer.
;;;***
;;;### (autoloads nil "cider-scratch" "cider-scratch.el" (22505 21427
;;;;;; 449825 560000))
;;;### (autoloads nil "cider-scratch" "cider-scratch.el" (22508 49905
;;;;;; 357980 209000))
;;; Generated autoloads from cider-scratch.el
(autoload 'cider-scratch "cider-scratch" "\
@ -247,8 +247,8 @@ Go to the scratch buffer named `cider-scratch-buffer-name'.
;;;***
;;;### (autoloads nil "cider-selector" "cider-selector.el" (22505
;;;;;; 21427 537825 549000))
;;;### (autoloads nil "cider-selector" "cider-selector.el" (22508
;;;;;; 49905 425980 351000))
;;; Generated autoloads from cider-selector.el
(autoload 'cider-selector "cider-selector" "\
@ -263,8 +263,8 @@ See `def-cider-selector-method' for defining new methods.
;;;***
;;;### (autoloads nil "cider-test" "cider-test.el" (22505 21427 505825
;;;;;; 553000))
;;;### (autoloads nil "cider-test" "cider-test.el" (22508 49905 405980
;;;;;; 309000))
;;; Generated autoloads from cider-test.el
(defvar cider-auto-test-mode nil "\
@ -288,8 +288,8 @@ nothing if no tests are defined or if the file failed to load.
;;;***
;;;### (autoloads nil "cider-util" "cider-util.el" (22505 21427 521825
;;;;;; 551000))
;;;### (autoloads nil "cider-util" "cider-util.el" (22508 49905 417980
;;;;;; 334000))
;;; Generated autoloads from cider-util.el
(autoload 'cider-view-manual "cider-util" "\
@ -303,7 +303,7 @@ View the manual in your default browser.
;;;;;; "cider-doc.el" "cider-eldoc.el" "cider-interaction.el" "cider-overlays.el"
;;;;;; "cider-pkg.el" "cider-popup.el" "cider-repl.el" "cider-resolve.el"
;;;;;; "cider-stacktrace.el" "nrepl-client.el" "nrepl-dict.el")
;;;;;; (22505 21427 553825 547000))
;;;;;; (22508 49905 437980 375000))
;;;***

View File

@ -219,6 +219,16 @@ such a link cannot be established automatically."
(cider-repl-type)
(t "clj")))
(defun cider-toggle-request-dispatch ()
"Toggles the value of `cider-request-dispatch' between static and dynamic.
Handy when you're using dynamic dispatch, but you want to quickly force all
evaluation commands to use a particular connection."
(interactive)
(let ((new-value (if (eq cider-request-dispatch 'static) 'dynamic 'static)))
(setq cider-request-dispatch new-value)
(message "Toggled CIDER request dispatch to %s." new-value)))
(defun cider-current-connection (&optional type)
"Return the REPL buffer relevant for the current Clojure source buffer.
A REPL is relevant if its `nrepl-project-dir' is compatible with the

View File

@ -1,4 +1,4 @@
(define-package "cider" "20160925.2057" "Clojure Interactive Development Environment that Rocks"
(define-package "cider" "20160927.2135" "Clojure Interactive Development Environment that Rocks"
'((emacs "24.3")
(clojure-mode "5.5.2")
(pkg-info "0.4")

View File

@ -3,8 +3,8 @@
;;; Code:
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
;;;### (autoloads nil "flycheck" "flycheck.el" (22505 21423 841826
;;;;;; 8000))
;;;### (autoloads nil "flycheck" "flycheck.el" (22508 49902 949975
;;;;;; 140000))
;;; Generated autoloads from flycheck.el
(autoload 'flycheck-manual "flycheck" "\
@ -228,7 +228,7 @@ Use this together with the `option', `option-list' and
;;;***
;;;### (autoloads nil nil ("flycheck-buttercup.el" "flycheck-ert.el"
;;;;;; "flycheck-pkg.el") (22505 21423 837826 9000))
;;;;;; "flycheck-pkg.el") (22508 49902 945975 131000))
;;;***

View File

@ -1,4 +1,4 @@
(define-package "flycheck" "20160926.141" "On-the-fly syntax checking"
(define-package "flycheck" "20160928.649" "On-the-fly syntax checking"
'((dash "2.12.1")
(pkg-info "0.4")
(let-alist "1.0.4")

View File

@ -1614,6 +1614,10 @@ are mandatory.
non-nil if this syntax checker shall be used to check the
current buffer. Otherwise it shall return nil.
If this checker has a `:working-directory' FUNCTION is
called with `default-directory' bound to the checker's
working directory.
FUNCTION is only called in matching major modes.
This property is optional.
@ -1622,18 +1626,23 @@ are mandatory.
A function to determine whether to use the syntax checker in
the current buffer.
This function behaves as `:predicate', except that it's only
This property behaves as `:predicate', except that it's only
called the first time a syntax checker is to be used in a buffer.
If the function returns a non-nil value the checker is put in a
whitelist in `flycheck-enabled-checkers' to prevent further
invocations of `:enabled'. Otherwise it is disabled via
`flycheck-disabled-checkers' to prevent any further use of it.
FUNCTION is called with CHECKER argument and shall return
FUNCTION is called without arguments and shall return
non-nil if this syntax checker shall be used to check the
current buffer. Otherwise it shall return nil.
If FUNCTION returns a non-nil value the checker is put in a
whitelist in `flycheck-enabled-checkers' to prevent further
invocations of `:enabled'. Otherwise it is disabled via
`flycheck-disabled-checkers' to prevent any further use of
it.
If this checker has a `:working-directory' FUNCTION is
called with `default-directory' bound to the checker's
working directory.
FUNCTION is only called in matching major modes.
This property is optional.
@ -1742,12 +1751,20 @@ Signal an error, if any property has an invalid value."
(lambda ()
(if (flycheck-valid-checker-p symbol)
(or (null predicate)
;; Run predicate in the checker's default directory
(let ((default-directory
(flycheck-compute-working-directory symbol)))
(funcall predicate)))
(lwarn 'flycheck :warning "%S is no valid Flycheck syntax checker.
Try to reinstall the package defining this syntax checker." symbol)
nil))))
nil)))
(real-enabled
(lambda ()
(or (null enabled)
;; Run enabled in the checker's default directory
(let ((default-directory
(flycheck-compute-working-directory symbol)))
(funcall enabled))))))
(pcase-dolist (`(,prop . ,value)
`((start . ,start)
(interrupt . ,interrupt)
@ -1755,7 +1772,7 @@ Try to reinstall the package defining this syntax checker." symbol)
(modes . ,modes)
(predicate . ,real-predicate)
(verify . ,verify)
(enabled . ,enabled)
(enabled . ,real-enabled)
(error-filter . ,filter)
(next-checkers . ,next-checkers)
(documentation . ,docstring)
@ -1801,7 +1818,7 @@ nil otherwise."
(shall-enable (and (not (flycheck-disabled-checker-p checker))
(or (memq checker flycheck-enabled-checkers)
(null enabled)
(funcall enabled checker)))))
(funcall enabled)))))
(if shall-enable
(cl-pushnew checker flycheck-enabled-checkers)
(cl-pushnew checker flycheck-disabled-checkers))
@ -3836,6 +3853,8 @@ message to stretch arbitrarily far."
;; `revert-buffer' updates the mode line for us, so all we need to do is
;; set the corresponding mode line construct.
mode-line-buffer-identification flycheck-error-list-mode-line)
;; See https://github.com/flycheck/flycheck/issues/1101
(setq-local truncate-string-ellipsis "")
(tabulated-list-init-header))
(defvar-local flycheck-error-list-source-buffer nil
@ -4472,7 +4491,7 @@ default `:verify' function of command checkers."
(patterns (plist-get properties :error-patterns))
(parser (or (plist-get properties :error-parser)
#'flycheck-parse-with-patterns))
(predicate (plist-get properties :predicate))
(enabled (plist-get properties :enabled))
(standard-input (plist-get properties :standard-input)))
(unless command
(error "Missing :command in syntax checker %s" symbol))
@ -4487,12 +4506,12 @@ default `:verify' function of command checkers."
(error "Missing :error-patterns in syntax checker %s" symbol))
(setq properties
;; Construct a predicate that checks whether the executable exists, to
;; guard against syntax checker tools which are not installed
(plist-put properties :predicate
;; Automatically disable command checkers if the executable does not
;; exist.
(plist-put properties :enabled
(lambda ()
(and (flycheck-find-checker-executable symbol)
(or (not predicate) (funcall predicate))))))
(or (not enabled) (funcall enabled))))))
(apply #'flycheck-define-generic-checker symbol docstring
:start #'flycheck-start-command-checker
@ -4955,8 +4974,11 @@ Resolve all errors in OUTPUT using CWD as working directory."
;; might report errors from other files (e.g. includes) even if there
;; are no errors in the file being checked.
(funcall callback 'suspicious
(format "Checker %S returned non-zero exit code %s, but no errors from \
output: %s\nChecker definition probably flawed." checker exit-status output)))
(format "Flycheck checker %S returned non-zero \
exit code %s, but its output contained no errors: %s\nTry \
installing a more recent version of %S, and please open a bug \
report if the issue persists in the latest release. Thanks!"
checker exit-status output checker)))
(funcall callback 'finished
;; Fix error file names, by substituting them backwards from the
;; temporaries.
@ -5332,16 +5354,12 @@ function `buffer-file-name'."
(when (seq-some (apply-partially #'flycheck-same-files-p
(expand-file-name filename cwd))
buffer-files)
(let ((new-filename (buffer-file-name)))
(setf (flycheck-error-filename err) new-filename)
(when new-filename
(setf (flycheck-error-message err)
(replace-regexp-in-string
(regexp-quote filename)
new-filename
(flycheck-error-message err)
'fixed-case
'literal)))))))
(setf (flycheck-error-filename err) buffer-file-name)
(when (and buffer-file-name (flycheck-error-message err))
(setf (flycheck-error-message err)
(replace-regexp-in-string
(regexp-quote filename) buffer-file-name
(flycheck-error-message err) 'fixed-case 'literal))))))
err)
@ -7489,35 +7507,37 @@ for more information about the custom directories."
:safe #'flycheck-string-list-p
:package-version '(flycheck . "29"))
(flycheck-def-config-file-var flycheck-eslintrc javascript-eslint nil
:safe #'stringp
:package-version '(flycheck . "0.20"))
(flycheck-define-checker javascript-eslint
"A Javascript syntax and style checker using eslint.
See URL `https://github.com/eslint/eslint'."
:command ("eslint" "--format=checkstyle"
(config-file "--config" flycheck-eslintrc)
(option-list "--rulesdir" flycheck-eslint-rules-directories)
"--stdin" "--stdin-filename" source-original)
:standard-input t
:error-parser flycheck-parse-checkstyle
:error-filter (lambda (errors)
(seq-do (lambda (err)
;; Parse error ID from the error message
(setf (flycheck-error-message err)
(replace-regexp-in-string
(rx " ("
(group (one-or-more (not (any ")"))))
")" string-end)
(lambda (s)
(setf (flycheck-error-id err)
(match-string 1 s))
"")
(flycheck-error-message err))))
(flycheck-sanitize-errors errors))
errors)
:error-filter
(lambda (errors)
(seq-do (lambda (err)
;; Parse error ID from the error message
(setf (flycheck-error-message err)
(replace-regexp-in-string
(rx " ("
(group (one-or-more (not (any ")"))))
")" string-end)
(lambda (s)
(setf (flycheck-error-id err)
(match-string 1 s))
"")
(flycheck-error-message err))))
(flycheck-sanitize-errors errors))
errors)
:enabled
(lambda ()
(let* ((executable (flycheck-find-checker-executable 'javascript-eslint))
(exitcode (call-process executable nil nil nil
"--print-config" ".")))
(eq exitcode 0)))
:modes (js-mode js-jsx-mode js2-mode js2-jsx-mode js3-mode)
:next-checkers ((warning . javascript-jscs)))

View File

@ -3,8 +3,8 @@
;;; Code:
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
;;;### (autoloads nil "helm-adaptive" "helm-adaptive.el" (22505 21420
;;;;;; 949826 366000))
;;;### (autoloads nil "helm-adaptive" "helm-adaptive.el" (22508 49901
;;;;;; 817972 734000))
;;; Generated autoloads from helm-adaptive.el
(defvar helm-adaptive-mode nil "\
@ -30,8 +30,8 @@ Useful when you have a old or corrupted `helm-adaptive-history-file'.
;;;***
;;;### (autoloads nil "helm-apt" "helm-apt.el" (22505 21420 917826
;;;;;; 372000))
;;;### (autoloads nil "helm-apt" "helm-apt.el" (22508 49901 785972
;;;;;; 666000))
;;; Generated autoloads from helm-apt.el
(autoload 'helm-apt "helm-apt" "\
@ -42,8 +42,8 @@ With a prefix arg reload cache.
;;;***
;;;### (autoloads nil "helm-bookmark" "helm-bookmark.el" (22505 21420
;;;;;; 989826 364000))
;;;### (autoloads nil "helm-bookmark" "helm-bookmark.el" (22508 49901
;;;;;; 881972 872000))
;;; Generated autoloads from helm-bookmark.el
(autoload 'helm-bookmarks "helm-bookmark" "\
@ -60,8 +60,8 @@ only if external library addressbook-bookmark.el is available.
;;;***
;;;### (autoloads nil "helm-buffers" "helm-buffers.el" (22505 21420
;;;;;; 905826 374000))
;;;### (autoloads nil "helm-buffers" "helm-buffers.el" (22508 49901
;;;;;; 769972 632000))
;;; Generated autoloads from helm-buffers.el
(autoload 'helm-buffers-list "helm-buffers" "\
@ -76,8 +76,8 @@ Preconfigured `helm' lightweight version (buffer -> recentf).
;;;***
;;;### (autoloads nil "helm-color" "helm-color.el" (22505 21420 977826
;;;;;; 363000))
;;;### (autoloads nil "helm-color" "helm-color.el" (22508 49901 853972
;;;;;; 812000))
;;; Generated autoloads from helm-color.el
(autoload 'helm-colors "helm-color" "\
@ -87,8 +87,8 @@ Preconfigured `helm' for color.
;;;***
;;;### (autoloads nil "helm-command" "helm-command.el" (22505 21420
;;;;;; 865826 377000))
;;;### (autoloads nil "helm-command" "helm-command.el" (22508 49901
;;;;;; 725972 538000))
;;; Generated autoloads from helm-command.el
(autoload 'helm-M-x "helm-command" "\
@ -106,8 +106,8 @@ You can get help on each command by persistent action.
;;;***
;;;### (autoloads nil "helm-config" "helm-config.el" (22505 21420
;;;;;; 985826 363000))
;;;### (autoloads nil "helm-config" "helm-config.el" (22508 49901
;;;;;; 869972 846000))
;;; Generated autoloads from helm-config.el
(autoload 'helm-configuration "helm-config" "\
@ -117,8 +117,8 @@ Customize `helm'.
;;;***
;;;### (autoloads nil "helm-dabbrev" "helm-dabbrev.el" (22505 21420
;;;;;; 925826 369000))
;;;### (autoloads nil "helm-dabbrev" "helm-dabbrev.el" (22508 49901
;;;;;; 793972 683000))
;;; Generated autoloads from helm-dabbrev.el
(autoload 'helm-dabbrev "helm-dabbrev" "\
@ -128,8 +128,8 @@ Preconfigured helm for dynamic abbreviations.
;;;***
;;;### (autoloads nil "helm-elisp" "helm-elisp.el" (22505 21420 981826
;;;;;; 362000))
;;;### (autoloads nil "helm-elisp" "helm-elisp.el" (22508 49901 861972
;;;;;; 828000))
;;; Generated autoloads from helm-elisp.el
(autoload 'helm-lisp-completion-at-point "helm-elisp" "\
@ -183,7 +183,7 @@ Preconfigured helm for complex command history.
;;;***
;;;### (autoloads nil "helm-elisp-package" "helm-elisp-package.el"
;;;;;; (22505 21420 869826 376000))
;;;;;; (22508 49901 729972 547000))
;;; Generated autoloads from helm-elisp-package.el
(autoload 'helm-list-elisp-packages "helm-elisp-package" "\
@ -199,8 +199,8 @@ Same as `helm-list-elisp-packages' but don't fetch packages on remote.
;;;***
;;;### (autoloads nil "helm-elscreen" "helm-elscreen.el" (22505 21420
;;;;;; 857826 381000))
;;;### (autoloads nil "helm-elscreen" "helm-elscreen.el" (22508 49901
;;;;;; 713972 512000))
;;; Generated autoloads from helm-elscreen.el
(autoload 'helm-elscreen "helm-elscreen" "\
@ -215,8 +215,8 @@ Preconfigured helm to list elscreen in history order.
;;;***
;;;### (autoloads nil "helm-eshell" "helm-eshell.el" (22505 21420
;;;;;; 885826 377000))
;;;### (autoloads nil "helm-eshell" "helm-eshell.el" (22508 49901
;;;;;; 745972 581000))
;;; Generated autoloads from helm-eshell.el
(autoload 'helm-esh-pcomplete "helm-eshell" "\
@ -231,8 +231,8 @@ Preconfigured helm for eshell history.
;;;***
;;;### (autoloads nil "helm-eval" "helm-eval.el" (22505 21420 957826
;;;;;; 367000))
;;;### (autoloads nil "helm-eval" "helm-eval.el" (22508 49901 825972
;;;;;; 752000))
;;; Generated autoloads from helm-eval.el
(autoload 'helm-eval-expression "helm-eval" "\
@ -252,8 +252,8 @@ Preconfigured helm for `helm-source-calculation-result'.
;;;***
;;;### (autoloads nil "helm-external" "helm-external.el" (22505 21420
;;;;;; 841826 378000))
;;;### (autoloads nil "helm-external" "helm-external.el" (22508 49901
;;;;;; 701972 487000))
;;; Generated autoloads from helm-external.el
(autoload 'helm-run-external-command "helm-external" "\
@ -266,8 +266,8 @@ You can set your own list of commands with
;;;***
;;;### (autoloads nil "helm-files" "helm-files.el" (22505 21420 929826
;;;;;; 370000))
;;;### (autoloads nil "helm-files" "helm-files.el" (22508 49901 801972
;;;;;; 701000))
;;; Generated autoloads from helm-files.el
(autoload 'helm-projects-history "helm-files" "\
@ -355,8 +355,8 @@ It allows additionally to delete more than one connection at once.
;;;***
;;;### (autoloads nil "helm-font" "helm-font.el" (22505 21420 889826
;;;;;; 375000))
;;;### (autoloads nil "helm-font" "helm-font.el" (22508 49901 749972
;;;;;; 589000))
;;; Generated autoloads from helm-font.el
(autoload 'helm-select-xfont "helm-font" "\
@ -371,8 +371,8 @@ Preconfigured helm for `ucs-names' math symbols.
;;;***
;;;### (autoloads nil "helm-grep" "helm-grep.el" (22505 21420 997826
;;;;;; 363000))
;;;### (autoloads nil "helm-grep" "helm-grep.el" (22508 49901 889972
;;;;;; 888000))
;;; Generated autoloads from helm-grep.el
(autoload 'helm-goto-precedent-file "helm-grep" "\
@ -399,8 +399,8 @@ With a prefix arg ARG git-grep the whole repository.
;;;***
;;;### (autoloads nil "helm-help" "helm-help.el" (22505 21420 837826
;;;;;; 380000))
;;;### (autoloads nil "helm-help" "helm-help.el" (22508 49901 697972
;;;;;; 478000))
;;; Generated autoloads from helm-help.el
(autoload 'helm-documentation "helm-help" "\
@ -420,8 +420,8 @@ String displayed in mode-line in `helm-source-find-files'.")
;;;***
;;;### (autoloads nil "helm-id-utils" "helm-id-utils.el" (22505 21420
;;;;;; 909826 374000))
;;;### (autoloads nil "helm-id-utils" "helm-id-utils.el" (22508 49901
;;;;;; 781972 658000))
;;; Generated autoloads from helm-id-utils.el
(autoload 'helm-gid "helm-id-utils" "\
@ -435,8 +435,8 @@ See <https://www.gnu.org/software/idutils/>.
;;;***
;;;### (autoloads nil "helm-imenu" "helm-imenu.el" (22505 21420 897826
;;;;;; 373000))
;;;### (autoloads nil "helm-imenu" "helm-imenu.el" (22508 49901 761972
;;;;;; 615000))
;;; Generated autoloads from helm-imenu.el
(autoload 'helm-imenu "helm-imenu" "\
@ -453,8 +453,8 @@ or it have an association in `helm-imenu-all-buffer-assoc'.
;;;***
;;;### (autoloads nil "helm-info" "helm-info.el" (22505 21420 893826
;;;;;; 373000))
;;;### (autoloads nil "helm-info" "helm-info.el" (22508 49901 753972
;;;;;; 597000))
;;; Generated autoloads from helm-info.el
(autoload 'helm-info "helm-info" "\
@ -470,8 +470,8 @@ With a prefix-arg insert symbol at point.
;;;***
;;;### (autoloads nil "helm-locate" "helm-locate.el" (22505 21420
;;;;;; 845826 379000))
;;;### (autoloads nil "helm-locate" "helm-locate.el" (22508 49901
;;;;;; 705972 496000))
;;; Generated autoloads from helm-locate.el
(autoload 'helm-projects-find-files "helm-locate" "\
@ -498,8 +498,8 @@ Where db_path is a filename matched by
;;;***
;;;### (autoloads nil "helm-man" "helm-man.el" (22505 21420 961826
;;;;;; 368000))
;;;### (autoloads nil "helm-man" "helm-man.el" (22508 49901 829972
;;;;;; 760000))
;;; Generated autoloads from helm-man.el
(autoload 'helm-man-woman "helm-man" "\
@ -510,8 +510,8 @@ With a prefix arg reinitialize the cache.
;;;***
;;;### (autoloads nil "helm-misc" "helm-misc.el" (22505 21420 945826
;;;;;; 368000))
;;;### (autoloads nil "helm-misc" "helm-misc.el" (22508 49901 813972
;;;;;; 726000))
;;; Generated autoloads from helm-misc.el
(autoload 'helm-browse-menubar "helm-misc" "\
@ -552,8 +552,8 @@ Preconfigured `helm' that provide completion of `comint' history.
;;;***
;;;### (autoloads nil "helm-mode" "helm-mode.el" (22505 21420 829826
;;;;;; 385000))
;;;### (autoloads nil "helm-mode" "helm-mode.el" (22508 49901 681972
;;;;;; 445000))
;;; Generated autoloads from helm-mode.el
(autoload 'helm-comp-read "helm-mode" "\
@ -724,8 +724,8 @@ Note: This mode is incompatible with Emacs23.
;;;***
;;;### (autoloads nil "helm-net" "helm-net.el" (22505 21420 973826
;;;;;; 365000))
;;;### (autoloads nil "helm-net" "helm-net.el" (22508 49901 849972
;;;;;; 803000))
;;; Generated autoloads from helm-net.el
(autoload 'helm-surfraw "helm-net" "\
@ -745,8 +745,8 @@ Preconfigured `helm' for Wikipedia lookup with Wikipedia suggest.
;;;***
;;;### (autoloads nil "helm-org" "helm-org.el" (22505 21421 1826
;;;;;; 361000))
;;;### (autoloads nil "helm-org" "helm-org.el" (22508 49901 893972
;;;;;; 897000))
;;; Generated autoloads from helm-org.el
(autoload 'helm-org-agenda-files-headings "helm-org" "\
@ -777,8 +777,8 @@ Preconfigured helm for org templates.
;;;***
;;;### (autoloads nil "helm-regexp" "helm-regexp.el" (22505 21420
;;;;;; 969826 367000))
;;;### (autoloads nil "helm-regexp" "helm-regexp.el" (22508 49901
;;;;;; 837972 778000))
;;; Generated autoloads from helm-regexp.el
(autoload 'helm-moccur-mode "helm-regexp" "\
@ -817,8 +817,8 @@ The prefix arg can be set before calling
;;;***
;;;### (autoloads nil "helm-ring" "helm-ring.el" (22505 21420 833826
;;;;;; 383000))
;;;### (autoloads nil "helm-ring" "helm-ring.el" (22508 49901 693972
;;;;;; 470000))
;;; Generated autoloads from helm-ring.el
(defvar helm-push-mark-mode nil "\
@ -876,8 +876,8 @@ This command is useful when used with persistent action.
;;;***
;;;### (autoloads nil "helm-semantic" "helm-semantic.el" (22505 21420
;;;;;; 901826 374000))
;;;### (autoloads nil "helm-semantic" "helm-semantic.el" (22508 49901
;;;;;; 765972 624000))
;;; Generated autoloads from helm-semantic.el
(autoload 'helm-semantic "helm-semantic" "\
@ -899,8 +899,8 @@ Fill in the symbol at point by default.
;;;***
;;;### (autoloads nil "helm-sys" "helm-sys.el" (22505 21420 921826
;;;;;; 370000))
;;;### (autoloads nil "helm-sys" "helm-sys.el" (22508 49901 789972
;;;;;; 674000))
;;; Generated autoloads from helm-sys.el
(defvar helm-top-poll-mode nil "\
@ -935,8 +935,8 @@ Preconfigured helm for xrandr.
;;;***
;;;### (autoloads nil "helm-tags" "helm-tags.el" (22505 21420 881826
;;;;;; 378000))
;;;### (autoloads nil "helm-tags" "helm-tags.el" (22508 49901 741972
;;;;;; 572000))
;;; Generated autoloads from helm-tags.el
(autoload 'helm-etags-select "helm-tags" "\
@ -955,8 +955,8 @@ This function aggregates three sources of tag files:
;;;***
;;;### (autoloads nil "helm-utils" "helm-utils.el" (22505 21420 861826
;;;;;; 380000))
;;;### (autoloads nil "helm-utils" "helm-utils.el" (22508 49901 717972
;;;;;; 521000))
;;; Generated autoloads from helm-utils.el
(defvar helm-popup-tip-mode nil "\
@ -977,7 +977,7 @@ Show help-echo informations in a popup tip at end of line.
;;;***
;;;### (autoloads nil nil ("helm-easymenu.el" "helm-pkg.el" "helm-types.el")
;;;;;; (22505 21421 5826 359000))
;;;;;; (22508 49901 897972 906000))
;;;***

View File

@ -19,6 +19,7 @@
(require 'cl-lib)
(require 'helm)
(require 'helm-help)
(require 'helm-elisp)
;;; Customize Face
;;

View File

@ -556,7 +556,6 @@ Filename completion happen if string start after or between a double quote."
(helm-elisp--persistent-help
candidate 'helm-describe-face))
:persistent-help "Describe face"
:nomark t
:action '(("Describe face" . helm-describe-face)
("Find face" . helm-find-face-definition)
("Customize face" . (lambda (candidate)

View File

@ -150,7 +150,7 @@ only '((foo . bar)) is needed."
;; no need to highlight again.
(unless (eq imenu-default-goto-function
'semantic-imenu-goto-function)
(helm-highlight-current-line nil nil nil nil 'pulse)))
(helm-highlight-current-line)))
(defun helm-imenu-persistent-action (candidate)
"Default persistent action for `helm-source-imenu'."

View File

@ -1,4 +1,4 @@
(define-package "helm" "20160925.2152" "Helm is an Emacs incremental and narrowing framework"
(define-package "helm" "20160928.2212" "Helm is an Emacs incremental and narrowing framework"
'((emacs "24.4")
(async "1.9")
(popup "0.5.3")

View File

@ -266,10 +266,11 @@ Default is `helm-current-buffer'."
"Goto LINENO opening only outline headline if needed.
Animation is used unless NOANIM is non--nil."
(helm-log-run-hook 'helm-goto-line-before-hook)
(helm-match-line-cleanup)
(goto-char (point-min))
(helm-goto-char (point-at-bol lineno))
(unless noanim
(helm-highlight-current-line nil nil nil nil 'pulse)))
(helm-highlight-current-line)))
(defun helm-save-pos-to-register-before-jump ()
"Save current buffer position to `helm-save-pos-before-jump-register'.
@ -583,7 +584,7 @@ If STRING is non--nil return instead a space separated string."
(defvar helm-match-line-overlay nil)
(defvar helm--match-item-overlays nil)
(defun helm-highlight-current-line (&optional start end buf face pulse)
(defun helm-highlight-current-line (&optional start end buf face)
"Highlight and underline current position"
(let* ((start (or start (line-beginning-position)))
(end (or end (1+ (line-end-position))))
@ -626,10 +627,7 @@ If STRING is non--nil return instead a space separated string."
helm--match-item-overlays)
(overlay-put ov 'face 'helm-match-item)
(overlay-put ov 'priority 1)))))))
(recenter)
(when pulse
(sit-for 0.3)
(helm-match-line-cleanup))))
(recenter)))
(defun helm-match-line-cleanup ()
(when helm-match-line-overlay
@ -649,8 +647,12 @@ If STRING is non--nil return instead a space separated string."
(eq helm-split-window-state 'vertical))
(set-window-text-height (helm-window) helm-resize-on-pa-text-height)))
(defun helm-match-line-cleanup-pulse ()
(run-with-idle-timer 0.3 nil #'helm-match-line-cleanup))
(add-hook 'helm-after-persistent-action-hook 'helm-persistent-autoresize-hook)
(add-hook 'helm-cleanup-hook 'helm-match-line-cleanup)
(add-hook 'helm-after-action-hook 'helm-match-line-cleanup-pulse)
(add-hook 'helm-after-persistent-action-hook 'helm-match-line-update)
;;; Popup buffer-name or filename in grep/moccur/imenu-all.

View File

@ -1,9 +1,9 @@
;;; helm-core-autoloads.el --- automatically extracted autoloads
;;
;;; Code:
(add-to-list 'load-path (or (file-name-directory #$) (car load-path)))
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
;;;### (autoloads nil "helm" "helm.el" (22501 3218 180164 860000))
;;;### (autoloads nil "helm" "helm.el" (22508 49900 897970 770000))
;;; Generated autoloads from helm.el
(autoload 'helm-define-multi-key "helm" "\
@ -35,7 +35,7 @@ See `helm-define-multi-key'.
\(fn NAME DOCSTRING FUNS &optional DELAY)" nil t)
(put 'helm-multi-key-defun 'lisp-indent-function '2)
(function-put 'helm-multi-key-defun 'lisp-indent-function '2)
(autoload 'helm-define-key-with-subkeys "helm" "\
Defines in MAP a KEY and SUBKEY to COMMAND.
@ -69,7 +69,7 @@ NOTE: SUBKEY and OTHER-SUBKEYS bindings support char syntax only
\(fn MAP KEY SUBKEY COMMAND &optional OTHER-SUBKEYS MENU EXIT-FN)" nil nil)
(put 'helm-define-key-with-subkeys 'lisp-indent-function '1)
(function-put 'helm-define-key-with-subkeys 'lisp-indent-function '1)
(autoload 'helm-debug-open-last-log "helm" "\
Open helm log file or buffer of last helm session.
@ -188,7 +188,7 @@ Enable/disable helm debugging from outside of helm session.
;;;***
;;;### (autoloads nil nil ("helm-core-pkg.el" "helm-lib.el" "helm-multi-match.el"
;;;;;; "helm-source.el") (22501 3218 218183 514000))
;;;;;; "helm-source.el") (22508 49900 909970 796000))
;;;***

View File

@ -1,4 +1,4 @@
(define-package "helm-core" "20160922.2327" "Development files for Helm"
(define-package "helm-core" "20160928.324" "Development files for Helm"
'((emacs "24.4")
(async "1.9"))
:url "https://emacs-helm.github.io/helm/")

View File

@ -549,8 +549,11 @@ Add spaces at end if needed to reach WIDTH when STR is shorter than WIDTH."
(defun helm-describe-face (face)
"FACE is symbol or string."
(cl-letf (((symbol-function 'message) #'ignore))
(describe-face (helm-symbolify face))))
(let ((faces (helm-marked-candidates)))
(cl-letf (((symbol-function 'message) #'ignore))
(describe-face (if (cdr faces)
(mapcar 'helm-symbolify faces)
(helm-symbolify face))))))
(defun helm-find-function (func)
"FUNC is symbol or string."

View File

@ -1836,7 +1836,6 @@ ANY-KEYMAP ANY-DEFAULT ANY-HISTORY See `helm'."
;; Prevent mouse jumping to the upper-right
;; hand corner of the frame (#1538).
mouse-autoselect-window
mode-line-in-non-selected-windows
focus-follows-mouse
(input-method-verbose-flag helm-input-method-verbose-flag)
(old--cua cua-mode)

View File

@ -1 +0,0 @@
(define-package "helm-flyspell" "20160612.1640" "No description available." 'nil)

View File

@ -1,10 +1,10 @@
;;; helm-flyspell-autoloads.el --- automatically extracted autoloads
;;
;;; Code:
(add-to-list 'load-path (or (file-name-directory #$) (car load-path)))
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
;;;### (autoloads nil "helm-flyspell" "helm-flyspell.el" (22387 29364
;;;;;; 594723 244000))
;;;### (autoloads nil "helm-flyspell" "helm-flyspell.el" (22508 49900
;;;;;; 277969 440000))
;;; Generated autoloads from helm-flyspell.el
(autoload 'helm-flyspell-correct "helm-flyspell" "\

View File

@ -0,0 +1,2 @@
;;; -*- no-byte-compile: t -*-
(define-package "helm-flyspell" "20160927.1648" "Helm extension for correcting words with flyspell" '((helm "1.6.5")) :url "https://github.com/pronobis/helm-flyspell" :keywords '("convenience"))

View File

@ -1,10 +1,10 @@
;;; helm-flyspell.el -- Helm extension for correcting words with flyspell -*- lexical-binding: t; -*-
;;; helm-flyspell.el --- Helm extension for correcting words with flyspell -*- lexical-binding: t; -*-
;; Copyright (C) 2014 Andrzej Pronobis <a.pronobis@gmail.com>
;; Author: Andrzej Pronobis
;; URL: https://github.com/pronobis/helm-flyspell
;; Package-Version: 20160612.1640
;; Package-Version: 20160927.1648
;; Keywords: convenience
;; Package-Requires: ((helm "1.6.5"))

View File

@ -3,8 +3,8 @@
;;; Code:
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
;;;### (autoloads nil "js2-imenu-extras" "js2-imenu-extras.el" (22505
;;;;;; 21387 313830 549000))
;;;### (autoloads nil "js2-imenu-extras" "js2-imenu-extras.el" (22508
;;;;;; 49890 901948 818000))
;;; Generated autoloads from js2-imenu-extras.el
(autoload 'js2-imenu-extras-setup "js2-imenu-extras" "\
@ -19,8 +19,8 @@ Toggle Imenu support for frameworks and structural patterns.
;;;***
;;;### (autoloads nil "js2-mode" "js2-mode.el" (22505 21387 337830
;;;;;; 546000))
;;;### (autoloads nil "js2-mode" "js2-mode.el" (22508 49890 917948
;;;;;; 854000))
;;; Generated autoloads from js2-mode.el
(autoload 'js2-highlight-unused-variables-mode "js2-mode" "\
@ -56,7 +56,7 @@ variables (`sgml-basic-offset' et al) locally, like so:
;;;***
;;;### (autoloads nil nil ("js2-mode-pkg.el" "js2-old-indent.el")
;;;;;; (22505 21387 329830 547000))
;;;;;; (22508 49890 913948 845000))
;;;***

View File

@ -1,4 +1,4 @@
(define-package "js2-mode" "20160926.723" "Improved JavaScript editing mode"
(define-package "js2-mode" "20160926.1243" "Improved JavaScript editing mode"
'((emacs "24.1")
(cl-lib "0.5"))
:url "https://github.com/mooz/js2-mode/" :keywords

View File

@ -7283,7 +7283,7 @@ are ignored."
when (and (eq 'block (js2-comment-node-format node))
(save-excursion
(goto-char (js2-node-abs-pos node))
(looking-at "/\\* *global ")))
(looking-at "/\\* *global\\(?: \\|$\\)")))
append (js2-get-jslint-globals-in
(match-end 0)
(js2-node-abs-end node))))

View File

@ -3,8 +3,8 @@
;;; Code:
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
;;;### (autoloads nil "git-rebase" "git-rebase.el" (22505 21412 141827
;;;;;; 463000))
;;;### (autoloads nil "git-rebase" "git-rebase.el" (22508 49899 553967
;;;;;; 882000))
;;; Generated autoloads from git-rebase.el
(autoload 'git-rebase-mode "git-rebase" "\
@ -23,7 +23,7 @@ running 'man git-rebase' at the command line) for details.
;;;***
;;;### (autoloads nil "magit" "magit.el" (22505 21412 205827 455000))
;;;### (autoloads nil "magit" "magit.el" (22508 49899 645968 80000))
;;; Generated autoloads from magit.el
(autoload 'magit-status "magit" "\
@ -490,8 +490,8 @@ Git, and Emacs in the echo area.
;;;***
;;;### (autoloads nil "magit-apply" "magit-apply.el" (22505 21412
;;;;;; 157827 461000))
;;;### (autoloads nil "magit-apply" "magit-apply.el" (22508 49899
;;;;;; 581967 942000))
;;; Generated autoloads from magit-apply.el
(autoload 'magit-stage-file "magit-apply" "\
@ -527,8 +527,8 @@ Remove all changes from the staging area.
;;;***
;;;### (autoloads nil "magit-autorevert" "magit-autorevert.el" (22505
;;;;;; 21412 101827 468000))
;;;### (autoloads nil "magit-autorevert" "magit-autorevert.el" (22508
;;;;;; 49899 517967 805000))
;;; Generated autoloads from magit-autorevert.el
(defvar magit-revert-buffers t)
@ -557,8 +557,8 @@ See `auto-revert-mode' for more information on Auto-Revert mode.
;;;***
;;;### (autoloads nil "magit-bisect" "magit-bisect.el" (22505 21412
;;;;;; 153827 461000))
;;;### (autoloads nil "magit-bisect" "magit-bisect.el" (22508 49899
;;;;;; 573967 925000))
;;; Generated autoloads from magit-bisect.el
(autoload 'magit-bisect-popup "magit-bisect" nil t)
@ -609,8 +609,8 @@ bisect run'.
;;;***
;;;### (autoloads nil "magit-blame" "magit-blame.el" (22505 21412
;;;;;; 193827 456000))
;;;### (autoloads nil "magit-blame" "magit-blame.el" (22508 49899
;;;;;; 633968 55000))
;;; Generated autoloads from magit-blame.el
(autoload 'magit-blame-popup "magit-blame" nil t)
@ -634,8 +634,8 @@ only arguments available from `magit-blame-popup' should be used.
;;;***
;;;### (autoloads nil "magit-commit" "magit-commit.el" (22505 21412
;;;;;; 109827 467000))
;;;### (autoloads nil "magit-commit" "magit-commit.el" (22508 49899
;;;;;; 521967 813000))
;;; Generated autoloads from magit-commit.el
(autoload 'magit-commit "magit-commit" "\
@ -717,8 +717,8 @@ Create a squash commit targeting COMMIT and instantly rebase.
;;;***
;;;### (autoloads nil "magit-diff" "magit-diff.el" (22505 21412 185827
;;;;;; 457000))
;;;### (autoloads nil "magit-diff" "magit-diff.el" (22508 49899 625968
;;;;;; 38000))
;;; Generated autoloads from magit-diff.el
(autoload 'magit-diff-popup "magit-diff" "\
@ -802,8 +802,8 @@ for a revision.
;;;***
;;;### (autoloads nil "magit-ediff" "magit-ediff.el" (22505 21412
;;;;;; 177827 458000))
;;;### (autoloads nil "magit-ediff" "magit-ediff.el" (22508 49899
;;;;;; 613968 12000))
;;; Generated autoloads from magit-ediff.el
(autoload 'magit-ediff-popup "magit-ediff" nil t)
@ -891,8 +891,8 @@ stash that were staged.
;;;***
;;;### (autoloads nil "magit-extras" "magit-extras.el" (22505 21412
;;;;;; 121827 465000))
;;;### (autoloads nil "magit-extras" "magit-extras.el" (22508 49899
;;;;;; 529967 831000))
;;; Generated autoloads from magit-extras.el
(autoload 'magit-run-git-gui "magit-extras" "\
@ -962,8 +962,8 @@ on a position in a file-visiting buffer.
;;;***
;;;### (autoloads nil "magit-log" "magit-log.el" (22505 21412 181827
;;;;;; 458000))
;;;### (autoloads nil "magit-log" "magit-log.el" (22508 49899 617968
;;;;;; 20000))
;;; Generated autoloads from magit-log.el
(autoload 'magit-log-buffer-file-popup "magit-log" "\
@ -1045,8 +1045,8 @@ Show commits in a branch that are not merged in the upstream branch.
;;;***
;;;### (autoloads nil "magit-remote" "magit-remote.el" (22505 21412
;;;;;; 217827 453000))
;;;### (autoloads nil "magit-remote" "magit-remote.el" (22508 49899
;;;;;; 657968 106000))
;;; Generated autoloads from magit-remote.el
(autoload 'magit-clone "magit-remote" "\
@ -1278,8 +1278,8 @@ is asked to pull. START has to be reachable from that commit.
;;;***
;;;### (autoloads nil "magit-sequence" "magit-sequence.el" (22505
;;;;;; 21412 209827 454000))
;;;### (autoloads nil "magit-sequence" "magit-sequence.el" (22508
;;;;;; 49899 649968 89000))
;;; Generated autoloads from magit-sequence.el
(autoload 'magit-sequencer-continue "magit-sequence" "\
@ -1429,8 +1429,8 @@ Abort the current rebase operation, restoring the original branch.
;;;***
;;;### (autoloads nil "magit-stash" "magit-stash.el" (22505 21412
;;;;;; 169827 459000))
;;;### (autoloads nil "magit-stash" "magit-stash.el" (22508 49899
;;;;;; 597967 977000))
;;; Generated autoloads from magit-stash.el
(autoload 'magit-stash-popup "magit-stash" nil t)
@ -1529,8 +1529,8 @@ Show all diffs of a stash in a buffer.
;;;***
;;;### (autoloads nil "magit-submodule" "magit-submodule.el" (22505
;;;;;; 21412 229827 452000))
;;;### (autoloads nil "magit-submodule" "magit-submodule.el" (22508
;;;;;; 49899 681968 158000))
;;; Generated autoloads from magit-submodule.el
(autoload 'magit-submodule-popup "magit-submodule" nil t)
@ -1620,8 +1620,8 @@ Display a list of the current repository's submodules.
;;;***
;;;### (autoloads nil "magit-subtree" "magit-subtree.el" (22505 21412
;;;;;; 145827 462000))
;;;### (autoloads nil "magit-subtree" "magit-subtree.el" (22508 49899
;;;;;; 565967 908000))
;;; Generated autoloads from magit-subtree.el
(autoload 'magit-subtree-popup "magit-subtree" nil t)
@ -1657,8 +1657,8 @@ Extract the history of the subtree PREFIX.
;;;***
;;;### (autoloads nil "magit-wip" "magit-wip.el" (22505 21412 129827
;;;;;; 464000))
;;;### (autoloads nil "magit-wip" "magit-wip.el" (22508 49899 541967
;;;;;; 857000))
;;; Generated autoloads from magit-wip.el
(defvar magit-wip-after-save-mode nil "\
@ -1728,7 +1728,7 @@ command which is about to be called are committed.
;;;### (autoloads nil nil ("magit-core.el" "magit-git.el" "magit-mode.el"
;;;;;; "magit-pkg.el" "magit-process.el" "magit-section.el" "magit-utils.el")
;;;;;; (22505 21412 221827 453000))
;;;;;; (22508 49899 669968 132000))
;;;***

View File

@ -1026,10 +1026,12 @@ which, as the name suggests always visits the actual file."
(magit-display-file-buffer buffer)
(with-current-buffer buffer
(when line
(goto-char (point-min))
(forward-line (1- line))
(when col
(move-to-column col)))
(save-restriction
(widen)
(goto-char (point-min))
(forward-line (1- line))
(when col
(move-to-column col))))
(when unmerged-p
(smerge-start-session))
(run-hooks 'magit-diff-visit-file-hook)))))

Some files were not shown because too many files have changed in this diff Show More