Update packages

elpa/erlang-20161005.305/erlang-pkg.el

@@ -1,4 +0,0 @@
-(define-package "erlang" "20161005.305" "Erlang major mode" 'nil)
-;; Local Variables:
-;; no-byte-compile: t
-;; End:

elpa/erlang-20161007.57/erlang-autoloads.el

@@ -3,7 +3,7 @@
 ;;; Code:
 (add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
 
-;;;### (autoloads nil "erlang" "erlang.el" (22518 4433 253987 51000))
+;;;### (autoloads nil "erlang" "erlang.el" (22523 21259 84519 501000))
 ;;; Generated autoloads from erlang.el
 
 (autoload 'erlang-mode "erlang" "\
@@ -118,8 +118,23 @@ editing control characters:
 
 ;;;***
 
-;;;### (autoloads nil "erlang-start" "erlang-start.el" (22518 4433
+;;;### (autoloads nil "erlang-edoc" "erlang-edoc.el" (22523 21259
-;;;;;;  225986 910000))
+;;;;;;  104519 648000))
+;;; Generated autoloads from erlang-edoc.el
+
+(autoload 'erlang-edoc-mode "erlang-edoc" "\
+Toggle Erlang-Edoc mode on or off.
+With a prefix argument ARG, enable Erlang-Edoc mode if ARG is
+positive, and disable it otherwise.  If called from Lisp, enable
+the mode if ARG is omitted or nil, and toggle it if ARG is `toggle'.
+\\{erlang-edoc-mode-map}
+
+\(fn &optional ARG)" t nil)
+
+;;;***
+
+;;;### (autoloads nil "erlang-start" "erlang-start.el" (22523 21259
+;;;;;;  64519 353000))
 ;;; Generated autoloads from erlang-start.el
 
 (let ((a '("\\.erl\\'" . erlang-mode)) (b '("\\.hrl\\'" . erlang-mode))) (or (assoc (car a) auto-mode-alist) (setq auto-mode-alist (cons a auto-mode-alist))) (or (assoc (car b) auto-mode-alist) (setq auto-mode-alist (cons b auto-mode-alist))))
@@ -132,7 +147,7 @@ editing control characters:
 
 ;;;### (autoloads nil nil ("erlang-eunit.el" "erlang-flymake.el"
 ;;;;;;  "erlang-pkg.el" "erlang-skels-old.el" "erlang-skels.el" "erlang-test.el"
-;;;;;;  "erlang_appwiz.el") (22518 4433 269987 132000))
+;;;;;;  "erlang_appwiz.el") (22523 21259 100519 619000))
 
 ;;;***
 

elpa/erlang-20161007.57/erlang-edoc.el

@@ -0,0 +1,172 @@
+;;; erlang-edoc.el --- EDoc support for Erlang mode  -*- lexical-binding: t; -*-
+
+;; %CopyrightBegin%
+;;
+;; Copyright Ericsson AB 1996-2016. All Rights Reserved.
+;;
+;; Licensed under the Apache License, Version 2.0 (the "License");
+;; you may not use this file except in compliance with the License.
+;; You may obtain a copy of the License at
+;;
+;;     http://www.apache.org/licenses/LICENSE-2.0
+;;
+;; Unless required by applicable law or agreed to in writing, software
+;; distributed under the License is distributed on an "AS IS" BASIS,
+;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+;; See the License for the specific language governing permissions and
+;; limitations under the License.
+;;
+;; %CopyrightEnd%
+
+;;; Commentary:
+
+;; Ref: http://www.erlang.org/doc/apps/edoc/users_guide.html
+;;
+;; To use: (add-hook 'erlang-mode-hook 'erlang-edoc-mode)
+
+;;; Code:
+
+(defcustom erlang-edoc-indent-level 2
+  "Indentation level of xhtml in Erlang edoc."
+  :safe 'integerp
+  :group 'erlang)
+
+(defvar erlang-edoc-generic-tags
+  '("clear" "docfile" "end" "headerfile" "todo" "TODO" "type")
+  "Tags that can be used anywhere within a module.")
+
+(defvar erlang-edoc-overview-tags
+  '("author" "copyright" "reference" "see" "since" "title" "version")
+  "Tags that can be used in an overview file.")
+
+(defvar erlang-edoc-module-tags
+  '("author" "copyright" "deprecated" "doc" "hidden" "private" "reference"
+    "see" "since" "version")
+  "Tags that can be used before a module declaration.")
+
+(defvar erlang-edoc-function-tags
+  '("deprecated" "doc" "equiv" "hidden" "private" "see" "since" "spec"
+    "throws" "type")
+  "Tags that can be used before a function definition.")
+
+(defvar erlang-edoc-predefined-macros
+  '("date" "docRoot" "link" "module" "package" "section" "time"
+    "type" "version"))
+
+(defface erlang-edoc-tag '((t (:inherit font-lock-constant-face)))
+  "Face used to highlight edoc tags."
+  :group 'erlang)
+
+(defface erlang-edoc-macro '((t (:inherit font-lock-preprocessor-face)))
+  "Face used to highlight edoc macros."
+  :group 'erlang)
+
+(defface erlang-edoc-verbatim
+  '((t (:family "Monospace" :inherit font-lock-keyword-face)))
+  "Face used to highlight verbatim text."
+  :group 'erlang)
+
+(defface erlang-edoc-todo '((t (:inherit font-lock-warning-face)))
+  "Face used to highlight edoc macros."
+  :group 'erlang)
+
+(defface erlang-edoc-heading '((t (:inherit bold)))
+  "Face used to highlight edoc headings."
+  :group 'erlang)
+
+(defvar erlang-edoc-font-lock-keywords
+  '(("^%+\\s-*\\(@\\w+\\)\\_>" 1 'erlang-edoc-tag prepend)
+    ("^%+\\s-*" ("{\\(@\\w+\\)\\_>" nil nil (1 'erlang-edoc-macro prepend)))
+    ("^%+\\s-*" ("\\(?:@@\\)*\\(@[@{}]\\)" nil nil (1 'escape-glyph prepend)))
+    ("^%+\\s-*@\\(deprecated\\)\\_>" 1 font-lock-warning-face prepend)
+    ;; http://www.erlang.org/doc/apps/edoc/chapter.html#Wiki_notation
+    ("^%+\\s-*" ("[^`]`\\([^`]?\\|[^`].*?[^']\\)'"
+                 (forward-char -1) nil (1 'erlang-edoc-verbatim prepend)))
+    ("^%+\\s-*" ("\\[\\(\\(?:https?\\|file\\|ftp\\)://[^][]+\\)\\]"
+                 nil nil (1 'link prepend)))
+    ("^%+\\s-*\\(?:\\(?1:@todo\\|@TODO\\)\\_>\\|\\(?1:TODO\\):\\)"
+     1 'erlang-edoc-todo prepend)
+    ("^%+\\s-*\\(\\(=\\{2,4\\}\\)[^=\n].*[^=\n]\\2\\)\\s-*$"
+     1 'erlang-edoc-heading prepend)))
+
+(defun erlang-edoc-xml-context ()
+  "Parse edoc x(ht)ml context at comment start of current line."
+  (eval-and-compile (require 'xmltok))
+  (save-excursion
+    (beginning-of-line)
+    (when (looking-at "^%+\\s-*")
+      (let ((pt (match-end 0)) context)
+        (forward-comment (- (point)))
+        (while (< (point) pt)
+          (xmltok-forward)
+          (cond ((eq xmltok-type 'start-tag)
+                 (push (cons xmltok-type xmltok-start) context))
+                ((eq xmltok-type 'end-tag)
+                 (pop context))))
+        (goto-char pt)
+        (xmltok-forward)
+        (push (car (memq xmltok-type '(start-tag end-tag))) context)
+        context))))
+
+(defun erlang-edoc-indent-line ()
+  (let ((context (erlang-edoc-xml-context)))
+    (when context
+      (save-excursion
+        (beginning-of-line)
+        (re-search-forward "^%+\\s-*" (line-end-position))
+        (when (or (car context) (cadr context))
+          (let ((pad (when (cadr context)
+                       (save-excursion
+                         (goto-char (cdr (cadr context)))
+                         (- (current-column)
+                            (progn
+                              (beginning-of-line)
+                              (skip-chars-forward "%")
+                              (current-column)))))))
+            (just-one-space (cond ((not pad) 1)
+                                  ((eq (car context) 'end-tag) pad)
+                                  (t (+ erlang-edoc-indent-level pad)))))))
+      (when (looking-back "^%*\\s-*" (line-beginning-position))
+        (re-search-forward "\\=%*\\s-*")))))
+
+(defun erlang-edoc-before-module-declaration-p ()
+  (save-excursion
+    (beginning-of-line)
+    (forward-comment (point-max))
+    (or (eobp) (re-search-forward "^-module\\s-*(" nil t))))
+
+(defun erlang-edoc-completion-at-point ()
+  (when (eq (syntax-ppss-context (syntax-ppss)) 'comment)
+    (save-excursion
+      (skip-syntax-backward "w_")
+      (when (= (preceding-char) ?@)
+        (let* ((is-tag (looking-back "^%+\\s-*@" (line-beginning-position)))
+               (beg (point))
+               (end (progn (skip-syntax-forward "w_") (point)))
+               (table (cond
+                       ((not is-tag)
+                        erlang-edoc-predefined-macros)
+                       ((erlang-edoc-before-module-declaration-p)
+                        (append erlang-edoc-module-tags
+                                erlang-edoc-generic-tags))
+                       (t (append erlang-edoc-function-tags
+                                  erlang-edoc-generic-tags)))))
+          (list beg end table))))))
+
+;;;###autoload
+(define-minor-mode erlang-edoc-mode nil
+  :lighter " EDoc"
+  (cond (erlang-edoc-mode
+         (add-hook 'erlang-indent-line-hook #'erlang-edoc-indent-line nil t)
+         (font-lock-add-keywords nil erlang-edoc-font-lock-keywords t)
+         (add-hook 'completion-at-point-functions
+                   #'erlang-edoc-completion-at-point nil t))
+        (t
+         (remove-hook 'erlang-indent-line-hook #'erlang-edoc-indent-line t)
+         (font-lock-remove-keywords nil erlang-edoc-font-lock-keywords)
+         (remove-hook 'completion-at-point-functions
+                      #'erlang-edoc-completion-at-point t)))
+  (jit-lock-refontify))
+
+(provide 'erlang-edoc)
+;;; erlang-edoc.el ends here

elpa/erlang-20161007.57/erlang-pkg.el

@@ -0,0 +1,4 @@
+(define-package "erlang" "20161007.57" "Erlang major mode" 'nil)
+;; Local Variables:
+;; no-byte-compile: t
+;; End:

elpa/erlang-20161007.57/erlang-start.el

@@ -78,6 +78,7 @@
 (autoload 'erlang-find-tag-other-window "erlang"
   "Like `find-tag-other-window'.  Capable of retreiving Erlang modules.")
 
+(autoload 'erlang-edoc-mode "erlang-edoc" "Toggle Erlang-Edoc mode on or off." t)
 
 ;;
 ;; Associate files extensions ".erl" and ".hrl" with Erlang mode.

elpa/erlang-20161007.57/erlang.el

@@ -78,6 +78,10 @@
 
 ;; Variables:
 
+(defgroup erlang nil
+  "The Erlang programming language."
+  :group 'languages)
+
 (defconst erlang-version "2.7"
   "The version number of Erlang mode.")
 
@@ -2444,6 +2448,7 @@ Return the amount the indentation changed by."
     ;; after the indentation. Else stay at same point in text.
     (if (> (- (point-max) pos) (point))
 	(goto-char (- (point-max) pos)))
+    (run-hooks 'erlang-indent-line-hook)
     shift-amt))
 
 

elpa/flycheck-20161007.427/flycheck-autoloads.el

@@ -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" (22516 57907 641537
+;;;### (autoloads nil "flycheck" "flycheck.el" (22523 21256 196498
-;;;;;;  759000))
+;;;;;;  256000))
 ;;; 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") (22516 57907 637537 741000))
+;;;;;;  "flycheck-pkg.el") (22523 21256 192498 226000))
 
 ;;;***
 

elpa/flycheck-20161007.427/flycheck-pkg.el

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

elpa/flycheck-20161007.427/flycheck.el

@@ -807,6 +807,13 @@ This variable is a normal hook.  See Info node `(elisp)Hooks'."
   :group 'flycheck-faces
   :package-version '(flycheck . "0.22"))
 
+(defface flycheck-error-list-id-with-explainer
+  '((t :inherit flycheck-error-list-id
+       :box (:style released-button)))
+  "Face for the error ID in the error list, for errors that have an explainer."
+  :group 'flycheck-faces
+  :package-version '(flycheck . "30"))
+
 (defface flycheck-error-list-checker-name
   '((t :inherit font-lock-function-name-face))
   "Face for the syntax checker name in the error list."
@@ -829,9 +836,9 @@ This variable is a normal hook.  See Info node `(elisp)Hooks'."
     (define-key map "l"         #'flycheck-list-errors)
     (define-key map (kbd "C-w") #'flycheck-copy-errors-as-kill)
     (define-key map "s"         #'flycheck-select-checker)
-    (define-key map "e"         #'flycheck-set-checker-executable)
     (define-key map "?"         #'flycheck-describe-checker)
     (define-key map "h"         #'flycheck-display-error-at-point)
+    (define-key map "e"         #'flycheck-explain-error-at-point)
     (define-key map "H"         #'display-local-help)
     (define-key map "i"         #'flycheck-manual)
     (define-key map "V"         #'flycheck-version)
@@ -982,6 +989,7 @@ Only has effect when variable `global-flycheck-mode' is non-nil."
      "---"
      ["Copy messages at point" flycheck-copy-errors-as-kill
       (flycheck-overlays-at (point))]
+     ["Explain error at point" flycheck-explain-error-at-point]
      "---"
      ["Select syntax checker" flycheck-select-checker flycheck-mode]
      ["Disable syntax checker" flycheck-disable-checker flycheck-mode]
@@ -1661,6 +1669,16 @@ are mandatory.
      This property is optional.  The default filter is
      `identity'.
 
+`:error-explainer FUNCTION'
+     A function to return an explanation text for errors
+     generated by this checker.
+
+     FUNCTION is called with a `flycheck-error' object and shall
+     return an explanation message for this error as a string, or
+     nil if there is no explanation for this error.
+
+     This property is optional.
+
 `:next-checkers NEXT-CHECKERS'
      A list denoting syntax checkers to apply after this syntax
      checker, in what we call \"chaining\" of syntax checkers.
@@ -1711,6 +1729,7 @@ Signal an error, if any property has an invalid value."
         (verify (plist-get properties :verify))
         (enabled (plist-get properties :enabled))
         (filter (or (plist-get properties :error-filter) #'identity))
+        (explainer (plist-get properties :error-explainer))
         (next-checkers (plist-get properties :next-checkers))
         (file (flycheck-current-load-file))
         (working-directory (plist-get properties :working-directory)))
@@ -1744,6 +1763,9 @@ Signal an error, if any property has an invalid value."
     (unless (functionp filter)
       (error ":error-filter %S of syntax checker %s is not a function"
              filter symbol))
+    (unless (or (null explainer) (functionp explainer))
+      (error ":error-explainer %S of syntax checker %S is not a function"
+             explainer symbol))
     (dolist (checker next-checkers)
       (flycheck-validate-next-checker checker))
 
@@ -1774,6 +1796,7 @@ Try to reinstall the package defining this syntax checker." symbol)
                        (verify            . ,verify)
                        (enabled           . ,real-enabled)
                        (error-filter      . ,filter)
+                       (error-explainer   . ,explainer)
                        (next-checkers     . ,next-checkers)
                        (documentation     . ,docstring)
                        (file              . ,file)
@@ -3814,6 +3837,7 @@ the beginning of the buffer."
     (define-key map (kbd "n") #'flycheck-error-list-next-error)
     (define-key map (kbd "p") #'flycheck-error-list-previous-error)
     (define-key map (kbd "g") #'flycheck-error-list-check-source)
+    (define-key map (kbd "e") #'flycheck-error-list-explain-error)
     (define-key map (kbd "RET") #'flycheck-error-list-goto-error)
     map)
   "The keymap of `flycheck-error-list-mode'.")
@@ -3903,7 +3927,15 @@ message to stretch arbitrarily far."
   "Go to the error at BUTTON."
   (flycheck-error-list-goto-error (button-start button)))
 
-(defsubst flycheck-error-list-make-cell (text &optional face help-echo)
+(define-button-type 'flycheck-error-list-explain-error
+  'action #'flycheck-error-list-button-explain-error
+  'help-echo "mouse-2, RET: explain error")
+
+(defun flycheck-error-list-button-explain-error (button)
+  "Explain the error at BUTTON."
+  (flycheck-error-list-explain-error (button-start button)))
+
+(defsubst flycheck-error-list-make-cell (text &optional face help-echo type)
   "Make an error list cell with TEXT and FACE.
 
 If FACE is nil don't set a FACE on TEXT.  If TEXT already has
@@ -3914,8 +3946,12 @@ list, do specify a FACE explicitly!
 
 If HELP-ECHO is non-nil, set a help-echo property on TEXT, with
 value HELP-ECHO.  This is convenient if you expect TEXT to be
-truncated."
+truncated.
-  (append (list text 'type 'flycheck-error-list)
+
+The cell will have the type TYPE unless TYPE is nil, and the
+default type `flycheck-error-list' will be used instead."
+  (append (list text 'type (if type type
+                             'flycheck-error-list))
           (and face (list 'face face))
           (and help-echo (list 'help-echo help-echo))))
 
@@ -3942,7 +3978,8 @@ Return a list with the contents of the table cell."
          (id (flycheck-error-id error))
          (id-str (if id (format "%s" id) ""))
          (checker (flycheck-error-checker error))
-         (msg-and-checker (flycheck-error-list-make-last-column flushed-msg checker)))
+         (msg-and-checker (flycheck-error-list-make-last-column flushed-msg checker))
+         (explainer (flycheck-checker-get checker 'error-explainer)))
     (list error
           (vector (flycheck-error-list-make-number-cell
                    line 'flycheck-error-list-line-number)
@@ -3950,8 +3987,11 @@ Return a list with the contents of the table cell."
                    column 'flycheck-error-list-column-number)
                   (flycheck-error-list-make-cell
                    (symbol-name (flycheck-error-level error)) level-face)
+                  ;; Error ID use a different face when an error-explainer is present
                   (flycheck-error-list-make-cell
-                   id-str 'flycheck-error-list-id id-str)
+                   id-str (if explainer 'flycheck-error-list-id-with-explainer
+                            'flycheck-error-list-id)
+                   id-str 'flycheck-error-list-explain-error)
                   (flycheck-error-list-make-cell
                    msg-and-checker nil msg-and-checker)))))
 
@@ -4120,6 +4160,17 @@ POS defaults to `point'."
       ;; Re-highlight the errors
       (flycheck-error-list-highlight-errors 'preserve-pos))))
 
+(defun flycheck-error-list-explain-error (&optional pos)
+  "Explain the error at POS in the error list.
+
+POS defaults to `point'."
+  (interactive)
+  (-when-let* ((error (tabulated-list-get-id pos))
+               (explainer (flycheck-checker-get (flycheck-error-checker error)
+                                                'error-explainer))
+               (explanation (funcall explainer error)))
+    (flycheck-display-error-explanation explanation)))
+
 (defun flycheck-error-list-next-error-pos (pos &optional n)
   "Starting from POS get the N'th next error in the error list.
 
@@ -4343,6 +4394,34 @@ universal prefix arg, and only the id with normal prefix arg."
       (seq-do #'kill-new (reverse messages))
       (message (string-join messages "\n")))))
 
+(defun flycheck-explain-error-at-point ()
+  "Display an explanation for the first explainable error at point.
+
+The first explainable error at point is the first error at point
+with a non-nil `:error-explainer' function defined in its
+checker.  The `:error-explainer' function is then called with
+this error to produce the explanation to display."
+  (interactive)
+  (-when-let* ((first-error
+                ;; Get the first error at point that has an `error-explainer'.
+                (seq-find (lambda (error)
+                            (flycheck-checker-get
+                             (flycheck-error-checker error) 'error-explainer))
+                          (flycheck-overlay-errors-at (point))))
+               (explainer
+                (flycheck-checker-get (flycheck-error-checker first-error)
+                                      'error-explainer))
+               (explanation (funcall explainer first-error)))
+    (flycheck-display-error-explanation explanation)))
+
+(defconst flycheck-explain-error-buffer "*Flycheck error explanation*"
+  "The name of the buffer to show error explanations.")
+
+(defun flycheck-display-error-explanation (explanation)
+  "Display the EXPLANATION string in a help buffer."
+  (with-help-window (get-buffer-create flycheck-explain-error-buffer)
+    (princ explanation)))
+
 
 ;;; Syntax checkers using external commands
 (defun flycheck-command-argument-p (arg)
@@ -5534,6 +5613,23 @@ about TSLint."
              (and (not (string-empty-p output))
                   (json-read-from-string output)))))
 
+(defun flycheck-parse-rust-collect-spans (span)
+  "Return a list of spans contained in a SPAN object."
+  (let ((spans))
+    (let-alist span
+      ;; With macro expansion errors, some spans will point to phony file names
+      ;; to indicate an error inside the std rust lib.  We skip these spans as
+      ;; they won't appear in flycheck anyway.
+      (unless (string= .file_name "<std macros>")
+        (push span spans))
+
+      ;; Macro expansion errors will have a span in the 'expansion' field, so we
+      ;; recursively collect it.
+      (if .expansion.span
+          (append (flycheck-parse-rust-collect-spans .expansion.span)
+                  spans)
+        spans))))
+
 (defun flycheck-parse-rust (output checker buffer)
   "Parse rust errors from OUTPUT and return a list of `flycheck-error'.
 
@@ -5562,12 +5658,15 @@ https://github.com/rust-lang/rust/blob/master/src/libsyntax/json.rs#L67-L139"
     ;; level (error, warning), while the spans have a filename, line, column,
     ;; and an optional label.  The primary span points to the root cause of the
     ;; error in the source text, while non-primary spans point to related
-    ;; causes.  In addition, each diagnostic can also have children diagnostics
+    ;; causes.  Spans may have an 'expansion' field for macro expansion errors;
-    ;; that are used to provide additional information through their message
+    ;; these expansion fields will contain another span (and so on).  In
-    ;; field, but do not seem to contain any spans (yet).
+    ;; addition, each diagnostic can also have children diagnostics that are
+    ;; used to provide additional information through their message field, but
+    ;; do not seem to contain any spans (yet).
     ;;
-    ;; We first iterate over diagnostics and their spans to turn every span into
+    ;; We first iterate over diagnostics, get all their spans and turn every
-    ;; a flycheck error object, that we collect into the `errors' list.
+    ;; span into a flycheck error object, that we collect into the `errors'
+    ;; list.
     (dolist (diagnostic diagnostics)
       (let ((error-message)
             (error-level)
@@ -5589,9 +5688,11 @@ https://github.com/rust-lang/rust/blob/master/src/libsyntax/json.rs#L67-L139"
                 ;; The 'code' field of the diagnostic contains the actual error
                 ;; code and an optional explanation that we ignore
                 error-code .code.code
-                spans .spans
+                ;; Collect all spans recursively
+                spans (seq-mapcat #'flycheck-parse-rust-collect-spans .spans)
                 children .children))
 
+        ;; Turn each span into a flycheck error
         (dolist (span spans)
           (let-alist span
             ;; Children lack any filename/line/column information, so we use
@@ -5610,7 +5711,9 @@ https://github.com/rust-lang/rust/blob/master/src/libsyntax/json.rs#L67-L139"
                   ;; Primary spans may have labels with additional information
                   (concat error-message (when .label
                                           (format " (%s)" .label)))
-                .label)
+                ;; If the label is empty, fallback on the error message,
+                ;; otherwise we won't be able to display anything
+                (or .label error-message))
               :id error-code
               :checker checker
               :buffer buffer
@@ -5730,6 +5833,7 @@ SYMBOL with `flycheck-def-executable-var'."
   (let ((command (plist-get properties :command))
         (parser (plist-get properties :error-parser))
         (filter (plist-get properties :error-filter))
+        (explainer (plist-get properties :error-explainer))
         (predicate (plist-get properties :predicate))
         (enabled-fn (plist-get properties :enabled))
         (verify-fn (plist-get properties :verify)))
@@ -5745,6 +5849,8 @@ SYMBOL with `flycheck-def-executable-var'."
          :error-patterns ',(plist-get properties :error-patterns)
          ,@(when filter
              `(:error-filter #',filter))
+         ,@(when explainer
+             `(:error-explainer #',explainer))
          :modes ',(plist-get properties :modes)
          ,@(when predicate
              `(:predicate #',predicate))
@@ -8557,6 +8663,12 @@ Relative paths are relative to the file being checked."
   :safe #'flycheck-string-list-p
   :package-version '(flycheck . "0.18"))
 
+(defun flycheck-rust-error-explainer (error)
+  "Return an explanation text for the given `flycheck-error' ERROR."
+  (-when-let (error-code (flycheck-error-id error))
+    (with-output-to-string
+      (call-process "rustc" nil standard-output nil "--explain" error-code))))
+
 (flycheck-define-checker rust-cargo
   "A Rust syntax checker using Cargo.
 
@@ -8578,6 +8690,7 @@ rustc command.  See URL `https://www.rust-lang.org'."
             (option-list "-L" flycheck-rust-library-path concat)
             (eval flycheck-rust-args))
   :error-parser flycheck-parse-rust
+  :error-explainer flycheck-rust-error-explainer
   :modes rust-mode
   :predicate (lambda ()
                ;; Since we build the entire project with cargo rustc we require
@@ -8604,6 +8717,7 @@ This syntax checker needs Rust 1.7 or newer.  See URL
             (eval (or flycheck-rust-crate-root
                       (flycheck-substitute-argument 'source-inplace 'rust))))
   :error-parser flycheck-parse-rust
+  :error-explainer flycheck-rust-error-explainer
   :modes rust-mode
   :predicate (lambda ()
                (and (not flycheck-rust-crate-root) (flycheck-buffer-saved-p))))

elpa/git-commit-20161009.252/git-commit-autoloads.el

@@ -3,8 +3,8 @@
 ;;; Code:
 (add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
 
-;;;### (autoloads nil "git-commit" "git-commit.el" (22514 17681 480743
+;;;### (autoloads nil "git-commit" "git-commit.el" (22523 21254 332484
-;;;;;;  481000))
+;;;;;;  538000))
 ;;; Generated autoloads from git-commit.el
 
 (defvar global-git-commit-mode t "\

elpa/git-commit-20161009.252/git-commit-pkg.el

@@ -1,2 +1,2 @@
 ;;; -*- no-byte-compile: t -*-
-(define-package "git-commit" "20160929.801" "Edit Git commit messages" '((emacs "24.4") (dash "20160820.501") (with-editor "20160812.1457")) :url "https://github.com/magit/magit" :keywords '("git" "tools" "vc"))
+(define-package "git-commit" "20161009.252" "Edit Git commit messages" '((emacs "24.4") (dash "20160820.501") (with-editor "20160812.1457")) :url "https://github.com/magit/magit" :keywords '("git" "tools" "vc"))

elpa/git-commit-20161009.252/git-commit.el

@@ -12,7 +12,7 @@
 ;; Maintainer: Jonas Bernoulli <jonas@bernoul.li>
 
 ;; Package-Requires: ((emacs "24.4") (dash "20160820.501") (with-editor "20160812.1457"))
-;; Package-Version: 20160929.801
+;; Package-Version: 20161009.252
 ;; Keywords: git tools vc
 ;; Homepage: https://github.com/magit/magit
 
@@ -102,11 +102,10 @@
 ;; files.
 
 ;; Finally this package highlights style errors, like lines that are
-;; too long, or when the second line is not empty.  It may even nag you
+;; too long, or when the second line is not empty.  It may even nag
-;; when you attempt to finish the commit without having fixed these
+;; you when you attempt to finish the commit without having fixed
-;; issues.  Some people like that nagging, I don't, so you'll have to
+;; these issues.  The style checks and many other settings can easily
-;; enable it.  Which brings me to the last point.  Like any
+;; be configured:
-;; respectable Emacs package, this one too is highly customizable:
 ;;
 ;;   M-x customize-group RET git-commit RET
 
@@ -124,6 +123,8 @@
 ;;;; Declarations
 
 (defvar flyspell-generic-check-word-predicate)
+(defvar font-lock-beg)
+(defvar font-lock-end)
 
 (declare-function magit-expand-git-file-name 'magit-git)
 
@@ -177,8 +178,7 @@ The major mode configured here is turned on by the minor mode
   "Hook run at the end of `git-commit-setup'."
   :group 'git-commit
   :type 'hook
-  :options '(
+  :options '(git-commit-save-message
-             git-commit-save-message
              git-commit-setup-changelog-support
              git-commit-turn-on-auto-fill
              git-commit-turn-on-flyspell
@@ -202,8 +202,23 @@ usually honor this wish and return non-nil."
   :type 'hook
   :group 'git-commit)
 
-(defcustom git-commit-summary-max-length 50
+(defcustom git-commit-style-convention-checks '(non-empty-second-line)
-  "Fontify characters beyond this column in summary lines as errors."
+  "List of checks performed by `git-commit-check-style-conventions'.
+Valid members are `non-empty-second-line' and `overlong-first-line'.
+That function is a member of `git-commit-finish-query-functions'."
+  :options '(non-empty-second-line overlong-summary-line)
+  :type '(list :convert-widget custom-hook-convert-widget)
+  :group 'git-commit)
+
+(defcustom git-commit-summary-max-length 68
+  "Column beyond which characters in the summary lines are highlighted.
+
+The highlighting indicates that the summary is getting too long
+by some standards.  It does in no way imply that going over the
+limit a few characters or in some cases even many characters is
+anything that deserves shaming.  It's just a friendly reminder
+that if you can make the summary shorter, then you might want
+to consider doing so."
   :group 'git-commit
   :safe 'numberp
   :type 'number)
@@ -460,18 +475,23 @@ finally check current non-comment text."
 
 (defun git-commit-check-style-conventions (force)
   "Check for violations of certain basic style conventions.
+
 For each violation ask the user if she wants to proceed anyway.
-This makes sure the summary line isn't too long and that the
+Option `git-commit-check-style-conventions' controls which
-second line is empty."
+conventions are checked."
   (or force
       (save-excursion
         (goto-char (point-min))
         (re-search-forward (git-commit-summary-regexp) nil t)
         (if (equal (match-string 1) "")
             t ; Just try; we don't know whether --allow-empty-message was used.
-          (and (or (equal (match-string 2) "")
+          (and (or (not (memq 'overlong-summary-line
+                              git-commit-style-convention-checks))
+                   (equal (match-string 2) "")
                    (y-or-n-p "Summary line is too long.  Commit anyway? "))
-               (or (not (match-string 3))
+               (or (not (memq 'non-empty-second-line
+                              git-commit-style-convention-checks))
+                   (not (match-string 3))
                    (y-or-n-p "Second line is not empty.  Commit anyway? ")))))))
 
 (defun git-commit-cancel-message ()
@@ -620,11 +640,6 @@ With a numeric prefix ARG, go forward ARG comments."
    ;; Non-empty non-comment second line
    (format "\\(?:\n%s\\|\n\\(.+\\)\\)?" comment-start)))
 
-;; These are let-bound while `font-lock-extend-region-functions' are
-;; run.
-(defvar font-lock-beg)
-(defvar font-lock-end)
-
 (defun git-commit-extend-region-summary-line ()
   "Identify the multiline summary-regexp construct.
 Added to `font-lock-extend-region-functions'."

elpa/helm-20161008.1318/helm-autoloads.el

@@ -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" (22516 57904
+;;;### (autoloads nil "helm-adaptive" "helm-adaptive.el" (22523 21252
-;;;;;;  857525 192000))
+;;;;;;  592471 731000))
 ;;; 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" (22516 57904 817525
+;;;### (autoloads nil "helm-apt" "helm-apt.el" (22523 21252 552471
-;;;;;;  11000))
+;;;;;;  436000))
 ;;; 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" (22516 57904
+;;;### (autoloads nil "helm-bookmark" "helm-bookmark.el" (22523 21252
-;;;;;;  909525 426000))
+;;;;;;  652472 172000))
 ;;; 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" (22516 57904
+;;;### (autoloads nil "helm-buffers" "helm-buffers.el" (22523 21252
-;;;;;;  809524 975000))
+;;;;;;  540471 347000))
 ;;; 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" (22516 57904 889525
+;;;### (autoloads nil "helm-color" "helm-color.el" (22523 21252 624471
-;;;;;;  336000))
+;;;;;;  966000))
 ;;; 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" (22516 57904
+;;;### (autoloads nil "helm-command" "helm-command.el" (22523 21252
-;;;;;;  761524 758000))
+;;;;;;  492470 995000))
 ;;; 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" (22516 57904
+;;;### (autoloads nil "helm-config" "helm-config.el" (22523 21252
-;;;;;;  901525 390000))
+;;;;;;  648472 143000))
 ;;; Generated autoloads from helm-config.el
 
 (autoload 'helm-configuration "helm-config" "\
@@ -117,8 +117,8 @@ Customize `helm'.
 
 ;;;***
 
-;;;### (autoloads nil "helm-dabbrev" "helm-dabbrev.el" (22516 57904
+;;;### (autoloads nil "helm-dabbrev" "helm-dabbrev.el" (22523 21252
-;;;;;;  829525 65000))
+;;;;;;  564471 525000))
 ;;; 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" (22516 57904 893525
+;;;### (autoloads nil "helm-elisp" "helm-elisp.el" (22523 21252 640472
-;;;;;;  354000))
+;;;;;;  85000))
 ;;; 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"
-;;;;;;  (22516 57904 765524 776000))
+;;;;;;  (22523 21252 496471 24000))
 ;;; 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" (22516 57904
+;;;### (autoloads nil "helm-elscreen" "helm-elscreen.el" (22523 21252
-;;;;;;  753524 722000))
+;;;;;;  484470 935000))
 ;;; 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" (22516 57904
+;;;### (autoloads nil "helm-eshell" "helm-eshell.el" (22523 21252
-;;;;;;  789524 885000))
+;;;;;;  520471 201000))
 ;;; 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" (22516 57904 861525
+;;;### (autoloads nil "helm-eval" "helm-eval.el" (22523 21252 596471
-;;;;;;  209000))
+;;;;;;  760000))
 ;;; 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" (22516 57904
+;;;### (autoloads nil "helm-external" "helm-external.el" (22523 21252
-;;;;;;  741524 668000))
+;;;;;;  468470 818000))
 ;;; 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" (22516 57904 837525
+;;;### (autoloads nil "helm-files" "helm-files.el" (22523 21252 568471
-;;;;;;  102000))
+;;;;;;  554000))
 ;;; 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" (22516 57904 793524
+;;;### (autoloads nil "helm-font" "helm-font.el" (22523 21252 524471
-;;;;;;  903000))
+;;;;;;  230000))
 ;;; 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" (22516 57904 917525
+;;;### (autoloads nil "helm-grep" "helm-grep.el" (22523 21252 656472
-;;;;;;  462000))
+;;;;;;  201000))
 ;;; 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" (22516 57904 733524
+;;;### (autoloads nil "helm-help" "helm-help.el" (22523 21252 464470
-;;;;;;  632000))
+;;;;;;  789000))
 ;;; 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" (22516 57904
+;;;### (autoloads nil "helm-id-utils" "helm-id-utils.el" (22523 21252
-;;;;;;  813524 993000))
+;;;;;;  544471 378000))
 ;;; 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" (22516 57904 801524
+;;;### (autoloads nil "helm-imenu" "helm-imenu.el" (22523 21252 532471
-;;;;;;  939000))
+;;;;;;  289000))
 ;;; 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" (22516 57904 797524
+;;;### (autoloads nil "helm-info" "helm-info.el" (22523 21252 528471
-;;;;;;  921000))
+;;;;;;  259000))
 ;;; 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" (22516 57904
+;;;### (autoloads nil "helm-locate" "helm-locate.el" (22523 21252
-;;;;;;  745524 686000))
+;;;;;;  476470 877000))
 ;;; 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" (22516 57904 869525
+;;;### (autoloads nil "helm-man" "helm-man.el" (22523 21252 604471
-;;;;;;  246000))
+;;;;;;  819000))
 ;;; 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" (22516 57904 853525
+;;;### (autoloads nil "helm-misc" "helm-misc.el" (22523 21252 584471
-;;;;;;  174000))
+;;;;;;  672000))
 ;;; 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" (22516 57904 717524
+;;;### (autoloads nil "helm-mode" "helm-mode.el" (22523 21252 448470
-;;;;;;  560000))
+;;;;;;  672000))
 ;;; 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" (22516 57904 885525
+;;;### (autoloads nil "helm-net" "helm-net.el" (22523 21252 616471
-;;;;;;  318000))
+;;;;;;  907000))
 ;;; 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" (22516 57904 921525
+;;;### (autoloads nil "helm-org" "helm-org.el" (22523 21252 664472
-;;;;;;  481000))
+;;;;;;  261000))
 ;;; 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" (22516 57904
+;;;### (autoloads nil "helm-regexp" "helm-regexp.el" (22523 21252
-;;;;;;  881525 300000))
+;;;;;;  612471 878000))
 ;;; 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" (22516 57904 729524
+;;;### (autoloads nil "helm-ring" "helm-ring.el" (22523 21252 460470
-;;;;;;  614000))
+;;;;;;  759000))
 ;;; 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" (22516 57904
+;;;### (autoloads nil "helm-semantic" "helm-semantic.el" (22523 21252
-;;;;;;  805524 957000))
+;;;;;;  536471 318000))
 ;;; 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" (22516 57904 825525
+;;;### (autoloads nil "helm-sys" "helm-sys.el" (22523 21252 556471
-;;;;;;  47000))
+;;;;;;  465000))
 ;;; 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" (22516 57904 781524
+;;;### (autoloads nil "helm-tags" "helm-tags.el" (22523 21252 512471
-;;;;;;  849000))
+;;;;;;  142000))
 ;;; 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" (22516 57904 757524
+;;;### (autoloads nil "helm-utils" "helm-utils.el" (22523 21252 488470
-;;;;;;  740000))
+;;;;;;  966000))
 ;;; 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")
-;;;;;;  (22516 57904 925525 499000))
+;;;;;;  (22523 21252 672472 320000))
 
 ;;;***
 

elpa/helm-20161008.1318/helm-grep.el

@@ -427,11 +427,14 @@ It is intended to use as a let-bound variable, DON'T set this globaly.")
          (pipes
           (helm-aif (cdr patterns)
               (cl-loop with pipcom = (pcase (helm-grep-command)
+                                       ;; Use grep for GNU regexp based tools.
                                        ((or "grep" "zgrep" "git-grep")
-                                         "grep --color=always")
+                                        (format "grep --color=always %s"
+                                                (if smartcase "-i" "")))
+                                       ;; Use ack-grep for PCRE based tools.
                                        ;; Sometimes ack-grep cmd is ack only.
                                        ((and (pred (string-match-p "ack")) ack)
-                                         (format "%s --color" ack)))
+                                        (format "%s --smart-case --color" ack)))
                        for p in it concat
                        (format " | %s %s" pipcom (shell-quote-argument p)))
             "")))

elpa/helm-20161008.1318/helm-pkg.el

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

elpa/helm-20161008.1318/helm-utils.el

@@ -648,7 +648,7 @@ If STRING is non--nil return instead a space separated string."
     (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))
+  (run-with-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)

elpa/helm-core-20161009.405/helm-core-autoloads.el

@@ -3,7 +3,7 @@
 ;;; Code:
 (add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
 
-;;;### (autoloads nil "helm" "helm.el" (22516 57898 381495 962000))
+;;;### (autoloads nil "helm" "helm.el" (22523 21247 808436 501000))
 ;;; Generated autoloads from helm.el
 
 (autoload 'helm-define-multi-key "helm" "\
@@ -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") (22516 57898 397496 35000))
+;;;;;;  "helm-source.el") (22523 21247 820436 589000))
 
 ;;;***
 

elpa/helm-core-20161009.405/helm-core-pkg.el

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

elpa/helm-core-20161009.405/helm.el

@@ -2382,7 +2382,7 @@ For ANY-PRESELECT ANY-RESUME ANY-KEYMAP ANY-DEFAULT ANY-HISTORY, See `helm'."
            (helm-get-current-source))
       (helm-mark-current-line t)
     (helm-update any-preselect))
-  (with-current-buffer (helm-buffer-get)
+  (with-helm-buffer
     (let* ((src        (helm-get-current-source))
            (src-keymap (assoc-default 'keymap src))
            (hist       (or (and any-history (symbolp any-history) any-history)
@@ -4678,8 +4678,11 @@ Returns the resulting buffer."
       (helm-prevent-switching-other-window :enabled nil))
     (unwind-protect
          (with-helm-window
-           (if (or helm-full-frame (one-window-p t))
+           (cond ((or helm-full-frame (one-window-p t))
-               (message "Error: Attempt to resplit a single window")
+                  (user-error "Attempt to resplit a single window"))
+                 ((helm-action-window)
+                  (user-error "Can't resplit while selecting actions"))
+                 (t
                   (let ((before-height (window-height)))
                     (delete-window)
                     (set-window-buffer
@@ -4701,7 +4704,7 @@ Returns the resulting buffer."
                                      (eq helm-split-window-default-side 'above))
                                  (split-window (selected-window) nil 'left))
                                 (t (split-window-horizontally)))))
-                  helm-buffer)))
+                     helm-buffer))))
            (setq helm--window-side-state (helm--get-window-side-state)))
       (when helm-prevent-escaping-from-minibuffer
         (helm-prevent-switching-other-window :enabled t)))))
@@ -4734,8 +4737,11 @@ If N is positive enlarge, if negative narrow."
   "Swap window holding `helm-buffer' with other window."
   (interactive)
   (with-helm-alive-p
-    (if (and helm-full-frame (one-window-p t))
+    (cond ((and helm-full-frame (one-window-p t))
-        (error "Error: Can't swap windows in a single window")
+           (user-error "Can't swap windows in a single window"))
+          ((helm-action-window)
+           (user-error "Can't resplit while selecting actions"))
+          (t
            (let* ((w1          (helm-window))
                   (split-state (eq helm-split-window-state 'horizontal))
                   (w1size      (window-total-size w1 split-state))
@@ -4770,7 +4776,7 @@ If N is positive enlarge, if negative narrow."
                (and resize (window-resize w2 resize split-state))
                (set-window-start w1 s2 t)
                (set-window-start w2 s1 t))
-          (setq helm--window-side-state (helm--get-window-side-state))))))
+             (setq helm--window-side-state (helm--get-window-side-state)))))))
 (put 'helm-swap-windows 'helm-only t)
 
 (defun helm--get-window-side-state ()

elpa/helm-projectile-20160922.4/helm-projectile-pkg.el

@@ -1 +0,0 @@
-(define-package "helm-projectile" "20160922.4" "Helm integration for Projectile" '((helm "1.7.7") (projectile "0.14.0") (cl-lib "0.3")) :url "https://github.com/bbatsov/helm-projectile" :keywords '("project" "convenience"))

elpa/helm-projectile-20161008.45/helm-projectile-autoloads.el

@@ -1,10 +1,10 @@
 ;;; helm-projectile-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-projectile" "helm-projectile.el" (22501
+;;;### (autoloads nil "helm-projectile" "helm-projectile.el" (22523
-;;;;;;  3214 979961 347000))
+;;;;;;  21245 720421 118000))
 ;;; Generated autoloads from helm-projectile.el
 
 (defvar helm-projectile-fuzzy-match t "\

elpa/helm-projectile-20161008.45/helm-projectile-pkg.el

@@ -0,0 +1,2 @@
+;;; -*- no-byte-compile: t -*-
+(define-package "helm-projectile" "20161008.45" "Helm integration for Projectile" '((helm "1.7.7") (projectile "0.14.0") (cl-lib "0.3")) :url "https://github.com/bbatsov/helm-projectile" :keywords '("project" "convenience"))

elpa/helm-projectile-20161008.45/helm-projectile.el

@@ -4,7 +4,7 @@
 
 ;; Author: Bozhidar Batsov
 ;; URL: https://github.com/bbatsov/helm-projectile
-;; Package-Version: 20160922.4
+;; Package-Version: 20161008.45
 ;; Created: 2011-31-07
 ;; Keywords: project, convenience
 ;; Version: 0.14.0
@@ -60,7 +60,7 @@
   "Helm support for projectile."
   :prefix "helm-projectile-"
   :group 'projectile
-  :link `(url-link :tag "helm-projectile homepage" "https://github.com/bbatsov/projectile"))
+  :link `(url-link :tag "GitHub" "https://github.com/bbatsov/helm-projectile"))
 
 (defvar helm-projectile-current-project-root)
 
@@ -371,6 +371,12 @@ CANDIDATE is the selected file.  Used when no file is explicitly marked."
                                             (list candidate))))
           (rename-buffer dired-buffer-name))))))
 
+(advice-add 'helm-find-file-or-marked :after
+            (lambda (orig-fun &rest args)
+              "Run `projectile-find-file-hook' if using projectile."
+              (when (and projectile-mode (projectile-project-p))
+                (run-hooks 'projectile-find-file-hook))))
+
 (defvar helm-projectile-find-file-map
   (let ((map (copy-keymap helm-find-files-map)))
     (helm-projectile-define-key map
@@ -670,6 +676,17 @@ Other file extensions can be customized with the variable `projectile-other-file
 The contents of this list are passed as the arguments to `helm-make-actions'."
   :group 'helm-projectile)
 
+(defcustom helm-projectile-set-input-automatically t
+  "If non-nil, attempt to set search input automatically.
+Automatic input selection uses the region (if there is an active
+region), otherwise it uses the current symbol at point (if there
+is one). Applies to `helm-projectile-grep' and
+`helm-projectile-ack' only. If the `helm-ag' package is
+installed, then automatic input behavior for `helm-projectile-ag'
+can be customized using `helm-ag-insert-at-point'."
+  :group 'helm-projectile
+  :type 'boolean)
+
 (defun helm-projectile-grep-or-ack (&optional dir use-ack-p ack-ignored-pattern ack-executable)
   "Perform helm-grep at project root.
 DIR directory where to search
@@ -716,9 +733,10 @@ If it is nil, or ack/ack-grep not found then use default grep command."
             :requires-pattern 2))
     (helm
      :sources 'helm-source-grep
-     :input (if (region-active-p)
+     :input (when helm-projectile-set-input-automatically
+              (if (region-active-p)
                   (buffer-substring-no-properties (region-beginning) (region-end))
-              (thing-at-point 'symbol))
+                (thing-at-point 'symbol)))
      :buffer (format "*helm %s*" (if use-ack-p
                                      "ack"
                                    "grep"))
@@ -747,7 +765,7 @@ If it is nil, or ack/ack-grep not found then use default grep command."
 DIR is the project root, if not set then current directory is used"
   (interactive)
   (let ((project-root (or dir (projectile-project-root) (error "You're not in a project"))))
-    (funcall'run-with-timer 0.01 nil
+    (funcall 'run-with-timer 0.01 nil
              #'helm-projectile-grep-or-ack project-root nil)))
 
 ;;;###autoload
@@ -766,7 +784,7 @@ DIR is the project root, if not set then current directory is used"
           (helm-ack-grep-executable (cond
                                      ((executable-find "ack") "ack")
                                      ((executable-find "ack-grep") "ack-grep")
-                                     (t (error "ack or ack-grep is not available.")))))
+                                     (t (error "ack or ack-grep is not available")))))
       (funcall 'run-with-timer 0.01 nil
                #'helm-projectile-grep-or-ack project-root t ack-ignored helm-ack-grep-executable))))
 

elpa/js2-mode-20161009.341/js2-mode-autoloads.el

@@ -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" (22518
+;;;### (autoloads nil "js2-imenu-extras" "js2-imenu-extras.el" (22523
-;;;;;;  4413 133886 14000))
+;;;;;;  21232 276321 957000))
 ;;; 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" (22518 4413 157886
+;;;### (autoloads nil "js2-mode" "js2-mode.el" (22523 21232 296322
-;;;;;;  136000))
+;;;;;;  105000))
 ;;; 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")
-;;;;;;  (22518 4413 149886 96000))
+;;;;;;  (22523 21232 288322 46000))
 
 ;;;***
 

elpa/js2-mode-20161009.341/js2-mode-pkg.el

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

elpa/js2-mode-20161009.341/js2-mode.el

@@ -7734,14 +7734,14 @@ is only true until the node is added to its parent; i.e., while parsing."
         ;; Tell cc-engine the bounds of the comment.
         (js2-record-text-property beg (1- end) 'c-in-sws t)))))
 
-(defun js2-peek-token ()
+(defun js2-peek-token (&optional modifier)
   "Return the next token type without consuming it.
 If `js2-ti-lookahead' is positive, return the type of next token
 from `js2-ti-tokens'.  Otherwise, call `js2-get-token'."
   (if (not (zerop js2-ti-lookahead))
       (js2-token-type
        (aref js2-ti-tokens (mod (1+ js2-ti-tokens-cursor) js2-ti-ntokens)))
-    (let ((tt (js2-get-token-internal nil)))
+    (let ((tt (js2-get-token-internal modifier)))
       (js2-unget-token)
       tt)))
 
@@ -10805,7 +10805,7 @@ expression)."
         (when (and (>= js2-language-version 200)
                    (= js2-NAME tt)
                    (member prop '("get" "set" "async"))
-                   (member (js2-peek-token)
+                   (member (js2-peek-token 'KEYWORD_IS_NAME)
                            (list js2-NAME js2-STRING js2-NUMBER js2-LB)))
           (setq previous-token (js2-current-token)
                 tt (js2-get-prop-name-token))))

elpa/magit-20161006.346/magit.info

@@ -1,177 +0,0 @@
-This is magit.info, produced by makeinfo version 5.2 from magit.texi.
-
-Magit is an interface to the version control system Git, implemented as
-an Emacs package.  Magit aspires to be a complete Git porcelain.  While
-we cannot (yet) claim that Magit wraps and improves upon each and every
-Git command, it is complete enough to allow even experienced Git users
-to perform almost all of their daily version control tasks directly from
-within Emacs.  While many fine Git clients exist, only Magit and Git
-itself deserve to be called porcelains.
-
-     Copyright (C) 2015-2016 Jonas Bernoulli <jonas@bernoul.li>
-
-     You can redistribute this document and/or modify it under the terms
-     of the GNU General Public License as published by the Free Software
-     Foundation, either version 3 of the License, or (at your option)
-     any later version.
-
-     This document is distributed in the hope that it will be useful,
-     but WITHOUT ANY WARRANTY; without even the implied warranty of
-     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-     General Public License for more details.
-INFO-DIR-SECTION Emacs
-START-INFO-DIR-ENTRY
-* Magit: (magit).       Using Git from Emacs with Magit.
-END-INFO-DIR-ENTRY
-
-
-Indirect:
-magit.info-1: 1222
-magit.info-2: 320085
-
-Tag Table:
-(Indirect)
-Node: Top1222
-Node: Introduction6446
-Node: Installation11169
-Node: Updating from an older release11544
-Node: Installing from an Elpa archive13139
-Node: Installing from the Git repository14478
-Node: Post-installation tasks17325
-Node: Getting started18714
-Node: Interface concepts24443
-Node: Modes and Buffers24717
-Node: Switching Buffers26462
-Node: Naming Buffers31003
-Node: Quitting Windows33838
-Node: Automatic Refreshing of Magit Buffers35470
-Node: Automatic Saving of File-Visiting Buffers38238
-Node: Automatic Reverting of File-Visiting Buffers39423
-Node: Risk of Reverting Automatically44419
-Node: Sections46802
-Node: Section movement47743
-Node: Section visibility51670
-Node: Section hooks55261
-Node: Section types and values57542
-Node: Section options58812
-Node: Popup buffers and prefix commands59284
-Node: Completion and confirmation60598
-Node: Running Git63504
-Node: Viewing Git output63740
-Node: Running Git manually64740
-Node: Git executable66866
-Node: Global Git arguments68873
-Node: Inspecting69680
-Node: Status buffer70827
-Node: Status sections73692
-Node: Status header sections79571
-Node: Status options82128
-Node: Repository list82852
-Node: Logging85010
-Node: Refreshing logs87748
-Node: Log Buffer89133
-Node: Select from log92429
-Node: Reflog93369
-Node: Diffing93847
-Node: Refreshing diffs96867
-Node: Diff buffer99848
-Node: Diff options101750
-Node: Revision buffer105050
-Node: Ediffing106005
-Node: References buffer109595
-Node: References sections114305
-Node: Bisecting115180
-Node: Visiting blobs116919
-Node: Blaming117428
-Node: Manipulating120858
-Node: Repository setup121174
-Node: Staging and unstaging122214
-Node: Staging from file-visiting buffers126303
-Node: Applying127471
-Node: Committing129364
-Node: Initiating a commit129947
-Node: Editing commit messages133259
-Node: Branching143655
-Node: The two remotes143855
-Node: The branch popup146399
-Node: The branch config popup155100
-Node: Merging161006
-Node: Resolving conflicts163174
-Ref: orgradiotarget1164259
-Node: Rebasing168131
-Node: Editing rebase sequences171772
-Node: Information about in-progress rebase174802
-Ref: Information about in-progress rebase-Footnote-1181638
-Node: Cherry picking182224
-Node: Reverting183830
-Node: Resetting185193
-Node: Stashing186705
-Node: Transferring189879
-Node: Remotes190117
-Node: Fetching191403
-Node: Pulling192769
-Node: Pushing193615
-Node: Creating and sending patches198359
-Node: Applying patches199054
-Node: Miscellaneous200052
-Node: Tagging200355
-Node: Notes201140
-Node: Submodules203665
-Node: Listing submodules203880
-Node: Submodule popup205699
-Node: Subtree206982
-Node: Common commands208230
-Node: Wip modes209975
-Node: Minor mode for buffers visiting files216711
-Node: Minor mode for buffers visiting blobs220185
-Node: Customizing220990
-Node: Per-repository configuration222662
-Node: Essential settings224296
-Node: Safety224620
-Node: Performance226453
-Node: Plumbing234415
-Node: Calling Git235239
-Node: Getting a value from Git236762
-Node: Calling Git for effect239866
-Node: Section plumbing246370
-Node: Creating sections246598
-Node: Section selection250497
-Node: Matching sections252177
-Node: Refreshing buffers257386
-Node: Conventions260521
-Node: Confirmation and completion260698
-Node: Theming Faces261596
-Node: FAQ269747
-Node: Magit is slow271360
-Node: I changed several thousand files at once and now Magit is unusable271561
-Node: I am having problems committing272277
-Node: Diffs are collapsed after un-/staging272723
-Node: I don't understand how branching and pushing work274201
-Node: I don't like the key binding in v24274576
-Node: I cannot install the pre-requisites for Magit v2274915
-Node: I am using an Emacs release older than v244275380
-Node: I am using a Git release older than v194276993
-Node: I am using MS Windows and cannot push with Magit277980
-Node: I am using OS X and SOMETHING works in shell but not in Magit278584
-Node: How to install the gitman info manual?279375
-Node: How can I show Git's output?281916
-Node: Diffs contain control sequences282703
-Node: Expanding a file to show the diff causes it to disappear283708
-Node: Point is wrong in the ‘COMMIT_EDITMSG’ buffer284243
-Node: The mode-line information isn't always up-to-date285273
-Node: Can Magit be used as ‘ediff-version-control-package’?286341
-Node: How to show diffs for gpg-encrypted files?288385
-Node: Emacs 245 hangs when loading Magit288982
-Node: Symbol's value as function is void ‘--some’289557
-Node: Where is the branch manager289891
-Node: Keystroke Index290182
-Node: Command Index320085
-Node: Function Index350094
-Node: Variable Index363988
-
-End Tag Table
-
-
-Local Variables:
-coding: utf-8
-End:

elpa/magit-20161009.1658/git-rebase.el

@@ -419,7 +419,7 @@ running 'man git-rebase' at the command line) for details."
     (setq save-place nil)))
 
 (defun git-rebase-cancel-confirm (force)
-  (or (not (buffer-modified-p)) force (y-or-n-p "Abort this rebase? ")))
+  (or (not (buffer-modified-p)) force (magit-y-or-n-p "Abort this rebase? ")))
 
 (defun git-rebase-autostash-save ()
   (--when-let (magit-file-line (magit-git-dir "rebase-merge/autostash"))

elpa/magit-20161009.1658/magit-autoloads.el

@@ -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" (22518 23931 262097
+;;;### (autoloads nil "git-rebase" "git-rebase.el" (22523 21243 636405
-;;;;;;  370000))
+;;;;;;  758000))
 ;;; 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" (22518 23931 346097 642000))
+;;;### (autoloads nil "magit" "magit.el" (22523 21243 716406 348000))
 ;;; Generated autoloads from magit.el
 
 (autoload 'magit-status "magit" "\
@@ -76,7 +76,7 @@ existing one.
 
 (autoload 'magit-dired-jump "magit" "\
 Visit file at point using Dired.
-With a prefix argument, visit in other window.  If there
+With a prefix argument, visit in another window.  If there
 is no file at point then instead visit `default-directory'.
 
 \(fn &optional OTHER-WINDOW)" t nil)
@@ -501,8 +501,8 @@ Git, and Emacs in the echo area.
 
 ;;;***
 
-;;;### (autoloads nil "magit-apply" "magit-apply.el" (22518 23931
+;;;### (autoloads nil "magit-apply" "magit-apply.el" (22523 21243
-;;;;;;  282097 435000))
+;;;;;;  656405 906000))
 ;;; Generated autoloads from magit-apply.el
 
 (autoload 'magit-stage-file "magit-apply" "\
@@ -538,8 +538,8 @@ Remove all changes from the staging area.
 
 ;;;***
 
-;;;### (autoloads nil "magit-autorevert" "magit-autorevert.el" (22518
+;;;### (autoloads nil "magit-autorevert" "magit-autorevert.el" (22523
-;;;;;;  23931 218097 227000))
+;;;;;;  21243 588405 405000))
 ;;; Generated autoloads from magit-autorevert.el
 
 (defvar magit-revert-buffers t)
@@ -568,8 +568,8 @@ See `auto-revert-mode' for more information on Auto-Revert mode.
 
 ;;;***
 
-;;;### (autoloads nil "magit-bisect" "magit-bisect.el" (22518 23931
+;;;### (autoloads nil "magit-bisect" "magit-bisect.el" (22523 21243
-;;;;;;  274097 410000))
+;;;;;;  652405 876000))
 ;;; Generated autoloads from magit-bisect.el
  (autoload 'magit-bisect-popup "magit-bisect" nil t)
 
@@ -620,8 +620,8 @@ bisect run'.
 
 ;;;***
 
-;;;### (autoloads nil "magit-blame" "magit-blame.el" (22518 23931
+;;;### (autoloads nil "magit-blame" "magit-blame.el" (22523 21243
-;;;;;;  334097 603000))
+;;;;;;  704406 260000))
 ;;; Generated autoloads from magit-blame.el
  (autoload 'magit-blame-popup "magit-blame" nil t)
 
@@ -645,8 +645,8 @@ only arguments available from `magit-blame-popup' should be used.
 
 ;;;***
 
-;;;### (autoloads nil "magit-commit" "magit-commit.el" (22518 23931
+;;;### (autoloads nil "magit-commit" "magit-commit.el" (22523 21243
-;;;;;;  226097 254000))
+;;;;;;  604405 523000))
 ;;; Generated autoloads from magit-commit.el
 
 (autoload 'magit-commit "magit-commit" "\
@@ -728,8 +728,8 @@ Create a squash commit targeting COMMIT and instantly rebase.
 
 ;;;***
 
-;;;### (autoloads nil "magit-diff" "magit-diff.el" (22518 23931 326097
+;;;### (autoloads nil "magit-diff" "magit-diff.el" (22523 21243 696406
-;;;;;;  578000))
+;;;;;;  200000))
 ;;; Generated autoloads from magit-diff.el
 
 (autoload 'magit-diff-popup "magit-diff" "\
@@ -813,8 +813,8 @@ for a revision.
 
 ;;;***
 
-;;;### (autoloads nil "magit-ediff" "magit-ediff.el" (22518 23931
+;;;### (autoloads nil "magit-ediff" "magit-ediff.el" (22523 21243
-;;;;;;  310097 526000))
+;;;;;;  684406 112000))
 ;;; Generated autoloads from magit-ediff.el
  (autoload 'magit-ediff-popup "magit-ediff" nil t)
 
@@ -902,8 +902,8 @@ stash that were staged.
 
 ;;;***
 
-;;;### (autoloads nil "magit-extras" "magit-extras.el" (22518 23931
+;;;### (autoloads nil "magit-extras" "magit-extras.el" (22523 21243
-;;;;;;  230097 268000))
+;;;;;;  608405 552000))
 ;;; Generated autoloads from magit-extras.el
 
 (autoload 'magit-run-git-gui "magit-extras" "\
@@ -973,8 +973,8 @@ on a position in a file-visiting buffer.
 
 ;;;***
 
-;;;### (autoloads nil "magit-log" "magit-log.el" (22518 23931 322097
+;;;### (autoloads nil "magit-log" "magit-log.el" (22523 21243 692406
-;;;;;;  564000))
+;;;;;;  171000))
 ;;; Generated autoloads from magit-log.el
 
 (autoload 'magit-log-buffer-file-popup "magit-log" "\
@@ -1056,8 +1056,8 @@ Show commits in a branch that are not merged in the upstream branch.
 
 ;;;***
 
-;;;### (autoloads nil "magit-remote" "magit-remote.el" (22518 23931
+;;;### (autoloads nil "magit-remote" "magit-remote.el" (22523 21243
-;;;;;;  366097 706000))
+;;;;;;  740406 526000))
 ;;; Generated autoloads from magit-remote.el
 
 (autoload 'magit-clone "magit-remote" "\
@@ -1289,8 +1289,8 @@ is asked to pull.  START has to be reachable from that commit.
 
 ;;;***
 
-;;;### (autoloads nil "magit-sequence" "magit-sequence.el" (22518
+;;;### (autoloads nil "magit-sequence" "magit-sequence.el" (22523
-;;;;;;  23931 354097 668000))
+;;;;;;  21243 724406 407000))
 ;;; Generated autoloads from magit-sequence.el
 
 (autoload 'magit-sequencer-continue "magit-sequence" "\
@@ -1440,8 +1440,8 @@ Abort the current rebase operation, restoring the original branch.
 
 ;;;***
 
-;;;### (autoloads nil "magit-stash" "magit-stash.el" (22518 23931
+;;;### (autoloads nil "magit-stash" "magit-stash.el" (22523 21243
-;;;;;;  298097 487000))
+;;;;;;  672406 24000))
 ;;; Generated autoloads from magit-stash.el
  (autoload 'magit-stash-popup "magit-stash" nil t)
 
@@ -1540,8 +1540,8 @@ Show all diffs of a stash in a buffer.
 
 ;;;***
 
-;;;### (autoloads nil "magit-submodule" "magit-submodule.el" (22518
+;;;### (autoloads nil "magit-submodule" "magit-submodule.el" (22523
-;;;;;;  23931 386097 771000))
+;;;;;;  21243 760406 672000))
 ;;; Generated autoloads from magit-submodule.el
  (autoload 'magit-submodule-popup "magit-submodule" nil t)
 
@@ -1631,8 +1631,8 @@ Display a list of the current repository's submodules.
 
 ;;;***
 
-;;;### (autoloads nil "magit-subtree" "magit-subtree.el" (22518 23931
+;;;### (autoloads nil "magit-subtree" "magit-subtree.el" (22523 21243
-;;;;;;  266097 383000))
+;;;;;;  640405 788000))
 ;;; Generated autoloads from magit-subtree.el
  (autoload 'magit-subtree-popup "magit-subtree" nil t)
 
@@ -1668,8 +1668,8 @@ Extract the history of the subtree PREFIX.
 
 ;;;***
 
-;;;### (autoloads nil "magit-wip" "magit-wip.el" (22518 23931 242097
+;;;### (autoloads nil "magit-wip" "magit-wip.el" (22523 21243 620405
-;;;;;;  306000))
+;;;;;;  640000))
 ;;; Generated autoloads from magit-wip.el
 
 (defvar magit-wip-after-save-mode nil "\
@@ -1739,7 +1739,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")
-;;;;;;  (22518 23931 374097 733000))
+;;;;;;  (22523 21243 744406 555000))
 
 ;;;***
 

elpa/magit-20161009.1658/magit-commit.el

@@ -249,12 +249,11 @@ depending on the value of option `magit-commit-squash-confirm'."
           (unless edit
             (push "--no-edit" args))
           (if rebase
-              (with-editor "GIT_EDITOR"
+              (magit-with-editor
-                (let ((magit-process-popup-time -1))
                 (magit-call-git
                  "commit" (-remove-first
                            (apply-partially #'string-match-p "\\`--gpg-sign=")
-                             args))))
+                           args)))
             (magit-run-git-with-editor "commit" args)))
       (magit-log-select
         `(lambda (commit)

elpa/magit-20161009.1658/magit-diff.el

@@ -34,7 +34,7 @@
 ;; For `magit-diff-popup'
 (declare-function magit-stash-show 'magit-stash)
 ;; For `magit-diff-visit-file'
-(declare-function magit-dired-jump 'magit)
+(declare-function dired-jump 'dired-x)
 (declare-function magit-find-file-noselect 'magit)
 (declare-function magit-status-internal 'magit)
 ;; For `magit-diff-while-committing'
@@ -112,11 +112,8 @@ instead customize `magit-diff-highlight-hunk-region-functions'."
                         "Magit 2.9.0")
 
 (defcustom magit-diff-highlight-hunk-region-functions
-  `(magit-diff-highlight-hunk-region-dim-outside
+  '(magit-diff-highlight-hunk-region-dim-outside
-    ,@(and magit-diff-show-lines-boundary
+    magit-diff-highlight-hunk-region-using-overlays)
-           (list (if t ;(version< emacs-version "25.1")
-                     'magit-diff-highlight-hunk-region-using-overlays
-                   'magit-diff-highlight-hunk-region-using-underline))))
   "The functions used to highlight the hunk-internal region.
 
 `magit-diff-highlight-hunk-region-dim-outside' overlays the outside
@@ -124,15 +121,12 @@ of the hunk internal selection with a face that causes the added and
 removed lines to have the same background color as context lines.
 This function should not be removed from the value of this option.
 
-  TEMPORARY NOTICE: there is a severe bug in
-  `magit-diff-highlight-hunk-region-using-underline'
-  and it has been temporarily removed.
-
 `magit-diff-highlight-hunk-region-using-overlays' and
 `magit-diff-highlight-hunk-region-using-underline' emphasize the
 region by placing delimiting horizonal lines before and after it.
-Which implementation is preferable depends on the Emacs version,
+Both of these functions have glitches which cannot be fixed due
-and the more suitable one is part of the default value.
+to limitations of Emacs' display engine.  For more information
+see https://github.com/magit/magit/issues/2758 ff.
 
 Instead of, or in addition to, using delimiting horizontal lines,
 to emphasize the boundaries, you may which to emphasize the text
@@ -146,6 +140,7 @@ calling the face function instead."
   :group 'magit-diff
   :type 'hook
   :options '(magit-diff-highlight-hunk-region-dim-outside
+             magit-diff-highlight-hunk-region-using-underline
              magit-diff-highlight-hunk-region-using-overlays
              magit-diff-highlight-hunk-region-using-face))
 
@@ -316,7 +311,7 @@ and https://debbugs.gnu.org/cgi/bugreport.cgi?bug=7847."
   :group 'magit-faces)
 
 (defface magit-diff-file-heading-highlight
-  '((t :inherit (magit-diff-file-heading magit-section-highlight)))
+  '((t :inherit (magit-section-highlight)))
   "Face for current diff file headings."
   :group 'magit-faces)
 
@@ -1030,15 +1025,23 @@ Customize variable `magit-diff-refine-hunk' to change the default mode."
 (defun magit-diff-visit-file (file &optional other-window force-worktree)
   "From a diff, visit the corresponding file at the appropriate position.
 
-When the file is already being displayed in another window of the
-same frame, then just select that window and adjust point.  With
-a prefix argument also display in another window.
-
 If the diff shows changes in the worktree, the index, or `HEAD',
-then visit the actual file.  Otherwise when the diff is about
+then visit the actual file.  Otherwise, when the diff is about an
-an older commit, then visit the respective blob using
+older commit or a range, then visit the appropriate blob.
-`magit-find-file'.  Also see `magit-diff-visit-file-worktree'
+
-which, as the name suggests always visits the actual file."
+If point is on a removed line, then visit the blob for the first
+parent of the commit which removed that line, i.e. the last
+commit where that line still existed.  Otherwise visit the blob
+for the commit whose changes are being shown.
+
+When the diff is about a range of commits, then, for the time
+being, the point this function jumps to often is only an
+approximation.
+
+When the file or blob to be displayed is already being displayed
+in another window of the same frame, then just select that window
+and adjust point.  Otherwise, or with a prefix argument, display
+the buffer in another window."
   (interactive (list (--if-let (magit-file-at-point)
                          (expand-file-name it)
                        (user-error "No file at point"))
@@ -1061,16 +1064,24 @@ which, as the name suggests always visits the actual file."
                      ((derived-mode-p 'magit-diff-mode)
                       (--when-let (car magit-refresh-args)
                         (and (string-match "\\.\\.\\([^.].*\\)?[ \t]*\\'" it)
-                             (match-string 1 it))))))
+                             (match-string 1 it))))
+                     ((derived-mode-p 'magit-status-mode)
+                      (magit-rev-name "HEAD"))))
           (unmerged-p (magit-anything-unmerged-p file))
           hunk line col buffer)
-      (when (and rev (magit-rev-head-p rev))
-        (setq rev nil))
-      (setq hunk
       (pcase (magit-diff-scope)
-              ((or `hunk `region) current)
+        ((or `hunk `region)
-              ((or `file `files)  (car (magit-section-children current)))
+         (cond ((not rev))
-              (`list (car (magit-section-children
+               ((save-excursion (goto-char (line-beginning-position))
+                                (looking-at "-"))
+                (setq rev (magit-rev-name (concat rev "~"))))
+               ((magit-rev-head-p rev)
+                (setq rev nil)))
+         (setq hunk current))
+        ((or `file `files)
+         (setq hunk (car (magit-section-children current))))
+        (`list
+         (setq hunk (car (magit-section-children
                           (car (magit-section-children current)))))))
       (when (and hunk
                  ;; Currently the `hunk' type is also abused for file
@@ -1138,9 +1149,12 @@ or `HEAD'."
          (prefix (- (length value) 2))
          (cpos   (marker-position (magit-section-content section)))
          (stop   (line-number-at-pos))
-         (cstart (save-excursion (goto-char cpos) (line-number-at-pos)))
+         (cstart (save-excursion (goto-char cpos)
-         (line   (car (last value))))
+                                 (line-number-at-pos)))
-    (string-match "^\\+\\([0-9]+\\)" line)
+         (prior  (save-excursion (goto-char (line-beginning-position))
+                                 (looking-at "-")))
+         (line   (nth (if prior 1 2) value)))
+    (string-match (format "^%s\\([0-9]+\\)" (if prior "-" "\\+")) line)
     (setq line (string-to-number (match-string 1 line)))
     (when (> cstart stop)
       (save-excursion
@@ -1151,7 +1165,8 @@ or `HEAD'."
       (goto-char cpos)
       (while (< (line-number-at-pos) stop)
         (unless (string-match-p
-                 "-" (buffer-substring (point) (+ (point) prefix)))
+                 (if prior "\\+" "-")
+                 (buffer-substring (point) (+ (point) prefix)))
           (cl-incf line))
         (forward-line)))
     line))
@@ -1166,7 +1181,7 @@ or `HEAD'."
 (defun magit-diff-visit-directory (directory &optional other-window)
   (if (equal (magit-toplevel directory)
              (magit-toplevel))
-      (magit-dired-jump other-window)
+      (dired-jump other-window (concat directory "/."))
     (let ((display-buffer-overriding-action
            (if other-window
                '(nil (inhibit-same-window t))
@@ -2217,6 +2232,33 @@ other method."
         (magit-diff--make-hunk-overlay end (1+ end) 'after-string  str))
     (magit-diff-highlight-hunk-region-using-face section)))
 
+(defun magit-diff-highlight-hunk-region-using-underline (section)
+  "Emphasize the hunk-internal region using delimiting horizontal lines.
+This is implemented by overlining and underlining the first and
+last (visual) lines of the region.  In Emacs 24, using this
+method causes `move-end-of-line' to jump to the next line, so
+we only use it in Emacs 25 where that glitch was fixed (see
+https://github.com/magit/magit/pull/2293 for more details)."
+  (if (window-system)
+      (let* ((beg (magit-diff-hunk-region-beginning))
+             (end (magit-diff-hunk-region-end))
+             (beg-eol (save-excursion (goto-char beg)
+                                      (end-of-visual-line)
+                                      (point)))
+             (end-bol (save-excursion (goto-char end)
+                                      (beginning-of-visual-line)
+                                      (point)))
+             (color (face-background 'magit-diff-lines-boundary nil t)))
+        (cl-flet ((ln (b e &rest face)
+                      (magit-diff--make-hunk-overlay
+                       b e 'face face 'after-string
+                       (magit-diff--hunk-after-string face))))
+          (if (= beg end-bol)
+              (ln beg beg-eol :overline color :underline color)
+            (ln beg beg-eol :overline color)
+            (ln end-bol end :underline color))))
+    (magit-diff-highlight-hunk-region-using-face section)))
+
 (defun magit-diff--make-hunk-overlay (start end &rest args)
   (let ((ov (make-overlay start end nil t)))
     (overlay-put ov 'evaporate t)
@@ -2227,8 +2269,11 @@ other method."
 (defun magit-diff--hunk-after-string (face)
   (propertize "\s"
               'face face
-              'display (list 'space :align-to `(+ (,(window-body-width nil t))
+              'display (list 'space :align-to
-                                                  ,(window-hscroll)))
+                             `(+ (0 . right)
+                                 ,(min (window-hscroll)
+                                       (- (line-end-position)
+                                          (line-beginning-position)))))
               ;; This prevents the cursor from being rendered at the
               ;; edge of the window.
               'cursor t))

elpa/magit-20161009.1658/magit-git.el

@@ -96,7 +96,9 @@
   :type 'string)
 
 (defcustom magit-git-global-arguments
-  '("--no-pager" "--literal-pathspecs" "-c" "core.preloadindex=true")
+  `("--no-pager" "--literal-pathspecs" "-c" "core.preloadindex=true"
+    ,@(and (eq system-type 'windows-nt)
+           (list "-c" "i18n.logOutputEncoding=UTF-8")))
   "Global git arguments.
 
 The arguments set here are used every time the git executable is
@@ -110,13 +112,11 @@ anything that is part of the default value, unless you really
 know what you are doing.  And think very hard before adding
 something; it will be used every time Magit runs Git for any
 purpose."
-  :package-version '(magit . "2.1.0")
+  :package-version '(magit . "2.9.0")
   :group 'magit
+  :group 'magit-process
   :type '(repeat string))
 
-(define-obsolete-variable-alias 'magit-git-standard-options
-  'magit-git-global-arguments "2.1.0")
-
 (defcustom magit-git-debug nil
   "Whether to enable additional reporting of git errors.
 
@@ -203,6 +203,25 @@ change the upstream and many which create new branches."
                value)))
        ,@body)))
 
+(defmacro magit-with-editor (&rest body)
+  "Like `with-editor' but let-bind some more variables."
+  (declare (indent 0) (debug (body)))
+  `(let ((magit-process-popup-time -1)
+         ;; The user may have customized `shell-file-name' to
+         ;; something which results in `w32-shell-dos-semantics' nil
+         ;; (which changes the quoting style used by
+         ;; `shell-quote-argument'), but Git for Windows expects shell
+         ;; quoting in the dos style.
+         (shell-file-name (if (and (eq system-type 'windows-nt)
+                                   ;; If we have Cygwin mount points
+                                   ;; the git flavor is cygwin, so dos
+                                   ;; shell quoting is probably wrong.
+                                   (not magit-cygwin-mount-points))
+                              "cmdproxy"
+                            shell-file-name)))
+     (with-editor "GIT_EDITOR"
+       ,@body)))
+
 (defun magit-process-git-arguments (args)
   "Prepare ARGS for a function that invokes Git.
 
@@ -1041,9 +1060,9 @@ where COMMITS is the number of commits in TAG but not in REV."
 
 (defun magit-list-worktrees ()
   (let (worktrees worktree)
-    (dolist (line (let ((magit-git-standard-options
+    (dolist (line (let ((magit-git-global-arguments
                          ;; KLUDGE At least in v2.8.3 this triggers a segfault.
-                         (remove "--no-pager" magit-git-standard-options)))
+                         (remove "--no-pager" magit-git-global-arguments)))
                     (magit-git-lines "worktree" "list" "--porcelain")))
       (cond ((string-prefix-p "worktree" line)
              (push (setq worktree (list (substring line 9) nil nil nil))
@@ -1394,17 +1413,19 @@ Return a list of two integers: (A>B B>A)."
          (and (not (equal previous branch)) previous)))))
 
 (defun magit-read-starting-point (prompt)
-  (or (magit-completing-read
+  (or (magit-completing-read (concat prompt " starting at")
-       (concat prompt " starting at")
                              (cons "HEAD" (magit-list-refnames))
                              nil nil nil 'magit-revision-history
+                             (magit--default-starting-point))
+      (user-error "Nothing selected")))
+
+(defun magit--default-starting-point ()
   (or (let ((r (magit-remote-branch-at-point))
             (l (magit-local-branch-at-point)))
         (if magit-prefer-remote-upstream (or r l) (or l r)))
       (magit-commit-at-point)
       (magit-stash-at-point)
       (magit-get-current-branch)))
-      (user-error "Nothing selected")))
 
 (defun magit-read-tag (prompt &optional require-match)
   (magit-completing-read prompt (magit-list-tags) nil
@@ -1437,20 +1458,44 @@ Return a list of two integers: (A>B B>A)."
                              (magit-remote-at-point)
                              (magit-get-remote))))
 
+(defun magit-read-module-path (prompt)
+  (magit-completing-read prompt (magit-get-submodules)))
+
 ;;; Variables
 
+(defun magit-config-get-from-cached-list (key)
+  (gethash
+   ;; `git config --list' downcases first and last components of the key.
+   (--> key
+        (replace-regexp-in-string "\\`[^.]+" #'downcase it t t)
+        (replace-regexp-in-string "[^.]+\\'" #'downcase it t t))
+   (magit--with-refresh-cache (list 'config (magit-toplevel))
+     (let ((configs (make-hash-table :test 'equal)))
+       (dolist (conf (magit-git-items "config" "--list" "-z"))
+         (let* ((nl-pos (cl-position ?\n conf))
+                (key (substring conf 0 nl-pos))
+                (val (if nl-pos (substring conf (1+ nl-pos)) "")))
+           (puthash key (nconc (gethash key configs) (list val)) configs)))
+       configs))))
+
 (defun magit-get (&rest keys)
   "Return the value of Git config entry specified by KEYS."
-  (magit-git-str "config" (mapconcat 'identity keys ".")))
+  (car (last (apply 'magit-get-all keys))))
 
 (defun magit-get-all (&rest keys)
   "Return all values of the Git config entry specified by KEYS."
-  (let ((magit-git-debug nil))
+  (let ((magit-git-debug nil)
-    (magit-git-items "config" "-z" "--get-all" (mapconcat 'identity keys "."))))
+        (key (mapconcat 'identity keys ".")))
+    (if magit--refresh-cache
+        (magit-config-get-from-cached-list key)
+      (magit-git-items "config" "-z" "--get-all" key))))
 
 (defun magit-get-boolean (&rest keys)
   "Return the boolean value of Git config entry specified by KEYS."
-  (magit-git-true "config" "--bool" (mapconcat 'identity keys ".")))
+  (let ((key (mapconcat 'identity keys ".")))
+    (if magit--refresh-cache
+        (equal "true" (car (magit-config-get-from-cached-list key)))
+      (magit-git-true "config" "--bool" key))))
 
 (defun magit-set (val &rest keys)
   "Set Git config settings specified by KEYS to VAL."
@@ -1465,6 +1510,8 @@ Return a list of two integers: (A>B B>A)."
 
 ;;; magit-git.el ends soon
 
+(define-obsolete-variable-alias 'magit-git-standard-options
+  'magit-git-global-arguments "Magit 2.1.0")
 (define-obsolete-function-alias 'magit-get-tracked-ref
   'magit-get-upstream-ref "Magit 2.4.0")
 (define-obsolete-function-alias 'magit-get-tracked-branch

elpa/magit-20161009.1658/magit-log.el

@@ -282,9 +282,6 @@ the upstream isn't ahead of the current branch) show."
   :group 'magit-status
   :type '(repeat (string :tag "Argument")))
 
-(define-obsolete-variable-alias 'magit-log-section-args
-  'magit-log-section-arguments "2.2.0")
-
 ;;; Commands
 
 (defvar magit-log-popup
@@ -1511,6 +1508,8 @@ and the respective options are `magit-log-show-margin' and
 
 ;;; magit-log.el ends soon
 
+(define-obsolete-variable-alias 'magit-log-section-args
+  'magit-log-section-arguments "Magit 2.2.0")
 (define-obsolete-function-alias 'magit-insert-unpulled-or-recent-commits
   'magit-insert-unpulled-from-upstream-or-recent "Magit 2.4.0")
 

elpa/magit-20161009.1658/magit-mode.el

@@ -465,8 +465,12 @@ Magit is documented in info node `(magit)'."
 
 (defvar-local magit-region-overlays nil)
 
-(defun magit-highlight-region (start end window rol)
+(defun magit-delete-region-overlays ()
   (mapc #'delete-overlay magit-region-overlays)
+  (setq magit-region-overlays nil))
+
+(defun magit-highlight-region (start end window rol)
+  (magit-delete-region-overlays)
   (if (and (run-hook-with-args-until-success 'magit-region-highlight-hook
                                              (magit-current-section))
            (not magit-keep-region-overlay))
@@ -476,7 +480,7 @@ Magit is documented in info node `(magit)'."
 
 (defun magit-unhighlight-region (rol)
   (setq magit-section-highlighted-section nil)
-  (mapc #'delete-overlay magit-region-overlays)
+  (magit-delete-region-overlays)
   (funcall (default-value 'redisplay-unhighlight-region-function) rol))
 
 (defvar-local magit-refresh-args nil

elpa/magit-20161009.1658/magit-pkg.el

@@ -1,4 +1,4 @@
-(define-package "magit" "20161006.346" "A Git porcelain inside Emacs"
+(define-package "magit" "20161009.1658" "A Git porcelain inside Emacs"
   '((emacs "24.4")
     (async "20160711.223")
     (dash "20160820.501")

elpa/magit-20161009.1658/magit-process.el

@@ -45,14 +45,17 @@
 
 ;;; Options
 
-(defcustom magit-log-output-coding-system 'utf-8
+(defcustom magit-git-output-coding-system
-  "Default coding system for receiving log output from Git.
+  (and (eq system-type 'windows-nt) 'utf-8)
+  "Coding system for receiving output from Git.
 
-Should be consistent with the Git config value `i18n.logOutputEncoding'."
+If non-nil, the Git config value `i18n.logOutputEncoding' should
-  :package-version '(magit . "2.8.0")
+be set via `magit-git-global-arguments' to value consistent with
+this."
+  :package-version '(magit . "2.9.0")
   :group 'magit-process
-  :group 'magit-log
+  :type '(choice (coding-system :tag "Coding system to decode Git output")
-  :type '(coding-system :tag "Coding system to decode Git log output"))
+                 (const :tag "Use system default" nil)))
 
 (defcustom magit-process-connection-type (not (eq system-type 'cygwin))
   "Connection type used for the Git process.
@@ -303,8 +306,7 @@ before use.
 Process output goes into a new section in the buffer returned by
 `magit-process-buffer'."
   (run-hooks 'magit-pre-call-git-hook)
-  (let ((coding-system-for-read
+  (let ((default-process-coding-system (magit--process-coding-system)))
-         (or coding-system-for-read magit-log-output-coding-system)))
     (apply #'magit-call-process magit-git-executable
            (magit-process-git-arguments args))))
 
@@ -410,9 +412,7 @@ current when this function was called (if it is a Magit buffer
 and still alive), as well as the respective Magit status buffer.
 
 See `magit-start-process' and `with-editor' for more information."
-  (with-editor "GIT_EDITOR"
+  (magit-with-editor (magit-run-git-async args)))
-    (let ((magit-process-popup-time -1))
-      (magit-run-git-async args))))
 
 (defun magit-run-git-sequencer (&rest args)
   "Export GIT_EDITOR and start Git.
@@ -428,9 +428,7 @@ If the sequence stops at a commit, make the section representing
 that commit the current section by moving `point' there.
 
 See `magit-start-process' and `with-editor' for more information."
-  (with-editor "GIT_EDITOR"
+  (apply #'magit-run-git-with-editor args)
-    (let ((magit-process-popup-time -1))
-      (magit-run-git-async args)))
   (set-process-sentinel magit-this-process #'magit-sequencer-process-sentinel)
   magit-this-process)
 
@@ -454,8 +452,7 @@ and still alive), as well as the respective Magit status buffer.
 
 See `magit-start-process' for more information."
   (run-hooks 'magit-pre-start-git-hook)
-  (let ((coding-system-for-read
+  (let ((default-process-coding-system (magit--process-coding-system)))
-         (or coding-system-for-read magit-log-output-coding-system)))
     (apply #'magit-start-process magit-git-executable input
            (magit-process-git-arguments args))))
 
@@ -593,7 +590,8 @@ Magit status buffer."
   "Special sentinel used by `magit-run-git-sequencer'."
   (when (memq (process-status process) '(exit signal))
     (magit-process-sentinel process event)
-    (--when-let (magit-mode-get-buffer 'magit-status-mode)
+    (--when-let (with-current-buffer (process-get process 'command-buf)
+                  (magit-mode-get-buffer 'magit-status-mode))
       (with-current-buffer it
         (--when-let
             (magit-get-section
@@ -700,12 +698,13 @@ Return the matched string suffixed with \": \", if needed."
             (t                             (concat prompt ": "))))))
 
 (defun magit--process-coding-system ()
+  (let ((fro (or magit-git-output-coding-system
+                 (car default-process-coding-system)))
+        (to (cdr default-process-coding-system)))
     (if magit-process-ensure-unix-line-ending
-      (cons (coding-system-change-eol-conversion
+        (cons (coding-system-change-eol-conversion fro 'unix)
-             (car default-process-coding-system) 'unix)
+              (coding-system-change-eol-conversion to 'unix))
-            (coding-system-change-eol-conversion
+      (cons fro to))))
-             (cdr default-process-coding-system) 'unix))
-      default-process-coding-system))
 
 (defvar magit-credential-hook nil
   "Hook run before Git needs credentials.")
@@ -832,8 +831,10 @@ as argument."
                    "Git failed")))
       (if magit-process-raise-error
           (signal 'magit-git-error (list (format "%s (in %s)" msg default-dir)))
-        (--when-let (magit-mode-get-buffer 'magit-status-mode)
+        (--when-let (with-current-buffer command-buf
-          (setq magit-this-error msg))
+                      (magit-mode-get-buffer 'magit-status-mode))
+          (with-current-buffer it
+            (setq magit-this-error msg)))
         (message "%s ... [%s buffer %s for details]" msg
                  (-if-let (key (and (buffer-live-p command-buf)
                                     (with-current-buffer command-buf
@@ -864,6 +865,10 @@ as argument."
                              process))))))
 
 ;;; magit-process.el ends soon
+
+(define-obsolete-variable-alias 'magit-git-output-coding-system
+  'magit-log-output-coding-system "Magit 2.9.0")
+
 (provide 'magit-process)
 ;; Local Variables:
 ;; indent-tabs-mode: nil

elpa/magit-20161009.1658/magit-submodule.el

@@ -174,7 +174,7 @@ For each section insert the path and the output of `git describe --tags'."
           (dolist (module modules)
             (let ((default-directory
                     (expand-file-name (file-name-as-directory module))))
-              (magit-insert-section (file module t)
+              (magit-insert-section (submodule module t)
                 (insert (propertize (format col-format module)
                                     'face 'magit-diff-file-heading))
                 (if (not (file-exists-p ".git"))
@@ -196,6 +196,41 @@ For each section insert the path and the output of `git describe --tags'."
     map)
   "Keymap for `submodules' sections.")
 
+(defvar magit-submodule-section-map
+  (let ((map (make-sparse-keymap)))
+    (define-key map [C-return] 'magit-submodule-visit)
+    (define-key map "\C-j"     'magit-submodule-visit)
+    (define-key map [remap magit-visit-thing]  'magit-submodule-visit)
+    (define-key map [remap magit-delete-thing] 'magit-submodule-deinit)
+    (define-key map "K" 'magit-file-untrack)
+    (define-key map "R" 'magit-file-rename)
+    map)
+  "Keymap for `submodule' sections.")
+
+(defun magit-submodule-visit (module &optional other-window)
+  "Visit MODULE by calling `magit-status' on it.
+Offer to initialize MODULE if it's not checked out yet.
+With a prefix argument, visit in another window."
+  (interactive (list (or (magit-section-when submodule)
+                         (magit-read-module-path "Visit module"))
+                     current-prefix-arg))
+  (magit-with-toplevel
+    (let ((path (expand-file-name module)))
+      (if (and (not (file-exists-p (expand-file-name ".git" module)))
+               (not (y-or-n-p (format "Initialize submodule '%s' first?"
+                                      module))))
+          (when (file-exists-p path)
+            (dired-jump other-window (concat path "/.")))
+        (magit-run-git-async "submodule" "update" "--init" "--" module)
+        (set-process-sentinel
+         magit-this-process
+         (lambda (process event)
+           (let ((magit-process-raise-error t))
+             (magit-process-sentinel process event))
+           (when (and (eq (process-status      process) 'exit)
+                      (=  (process-exit-status process) 0))
+             (magit-diff-visit-directory path other-window))))))))
+
 ;;;###autoload
 (defun magit-insert-modules-unpulled-from-upstream ()
   "Insert sections for modules that haven't been pulled from the upstream.

elpa/magit-20161009.1658/magit-utils.el

@@ -62,6 +62,34 @@ want Magit to use Helm for completion, you can set this option to
                 (function-item helm--completing-read-default)
                 (function :tag "Other")))
 
+(defcustom magit-no-confirm-default nil
+  "A list of commands which should just use the default choice.
+
+Many commands let the user choose the target they act on offering
+a sensible default as default choice.  If you think that that
+default is so sensible that it should always be used without even
+offering other choices, then add that command here.
+
+Commands have to explicitly support this option.  Currently only
+these commands do:
+  `magit-branch'
+  `magit-branch-and-checkout'
+  `magit-branch-orphan'
+  `magit-worktree-branch'
+    For these four commands `magit-branch-read-upstream-first'
+    must be non-nil, or adding them here has no effect.
+  `magit-branch-rename'
+  `magit-tag'"
+  :package-version '(magit . "2.9.0")
+  :group 'magit-commands
+  :type '(list :convert-widget custom-hook-convert-widget)
+  :options '(magit-branch
+             magit-branch-and-checkout
+             magit-branch-orphan
+             magit-branch-rename
+             magit-worktree-branch
+             magit-tag))
+
 (defcustom magit-no-confirm nil
   "A list of symbols for actions Magit should not confirm, or t.
 
@@ -153,6 +181,7 @@ Global settings:
   as adding all of these symbols individually."
   :package-version '(magit . "2.1.0")
   :group 'magit
+  :group 'magit-commands
   :type '(choice (const :tag "No confirmation needed" t)
                  (set (const reverse)           (const discard)
                       (const rename)            (const resurrect)
@@ -163,6 +192,15 @@ Global settings:
                       (const stage-all-changes) (const unstage-all-changes)
                       (const safe-with-wip))))
 
+(defcustom magit-slow-confirm nil
+  "Whether to ask user \"y or n\" or \"yes or no\" questions.
+When this is nil (the default), then `y-or-n-p' is used when the
+user has to confirm a potentially destructive action.  When this
+is non-nil, then `yes-or-no-p' is used instead."
+  :package-version '(magit . "2.9.0")
+  :group 'magit-commands
+  :type 'boolean)
+
 (defcustom magit-no-message nil
   "A list of messages Magit should not display.
 
@@ -338,6 +376,13 @@ This is similar to `read-string', but
            ',(mapcar 'car clauses))
      ,@(--map `(,(car it) ,@(cddr it)) clauses)))
 
+(defun magit-y-or-n-p (prompt)
+  "Ask user a \"y or n\" or a \"yes or no\" question.
+Also see option `magit-slow-confirm'."
+  (if magit-slow-confirm
+      (yes-or-no-p prompt)
+    (y-or-n-p prompt)))
+
 (cl-defun magit-confirm (action &optional prompt prompt-n (items nil sitems))
   (declare (indent defun))
   (setq prompt-n (format (concat (or prompt-n prompt) "? ") (length items))
@@ -355,9 +400,9 @@ This is similar to `read-string', but
                                    unstage-all-changes))))))
          (or (not sitems) items))
         ((not sitems)
-         (y-or-n-p prompt))
+         (magit-y-or-n-p prompt))
         ((= (length items) 1)
-         (and (y-or-n-p prompt) items))
+         (and (magit-y-or-n-p prompt) items))
         ((> (length items) 1)
          (let ((buffer (get-buffer-create " *Magit Confirm*")))
            (with-current-buffer buffer
@@ -366,7 +411,7 @@ This is similar to `read-string', but
                            '((window-height . fit-window-to-buffer)))
               (lambda (window _value)
                 (with-selected-window window
-                  (unwind-protect (and (y-or-n-p prompt-n) items)
+                  (unwind-protect (and (magit-y-or-n-p prompt-n) items)
                     (when (window-live-p window)
                       (quit-restore-window window 'kill)))))
               (dolist (item items)