Update dependencies

elpa/cider-20160925.2057/cider-autoloads.el

@@ -1,9 +1,9 @@
 ;;; cider-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 "cider" "cider.el" (22500 1819 348200 658000))
+;;;### (autoloads nil "cider" "cider.el" (22505 21427 529825 550000))
 ;;; Generated autoloads from cider.el
 
 (autoload 'cider-version "cider" "\
@@ -40,8 +40,8 @@ gets associated with it.
 
 ;;;***
 
-;;;### (autoloads nil "cider-apropos" "cider-apropos.el" (22500 1819
+;;;### (autoloads nil "cider-apropos" "cider-apropos.el" (22505 21427
-;;;;;;  244200 101000))
+;;;;;;  429825 562000))
 ;;; Generated autoloads from cider-apropos.el
 
 (autoload 'cider-apropos "cider-apropos" "\
@@ -78,8 +78,8 @@ Shortcut for (cider-apropos-select <query> nil t).
 
 ;;;***
 
-;;;### (autoloads nil "cider-browse-ns" "cider-browse-ns.el" (22500
+;;;### (autoloads nil "cider-browse-ns" "cider-browse-ns.el" (22505
-;;;;;;  1819 228200 15000))
+;;;;;;  21427 417825 564000))
 ;;; Generated autoloads from cider-browse-ns.el
 
 (autoload 'cider-browse-ns "cider-browse-ns" "\
@@ -94,8 +94,8 @@ List all loaded namespaces in BUFFER.
 
 ;;;***
 
-;;;### (autoloads nil "cider-classpath" "cider-classpath.el" (22500
+;;;### (autoloads nil "cider-classpath" "cider-classpath.el" (22505
-;;;;;;  1819 360200 722000))
+;;;;;;  21427 545825 548000))
 ;;; Generated autoloads from cider-classpath.el
 
 (autoload 'cider-classpath "cider-classpath" "\
@@ -110,8 +110,8 @@ Open a classpath entry.
 
 ;;;***
 
-;;;### (autoloads nil "cider-debug" "cider-debug.el" (22500 1819
+;;;### (autoloads nil "cider-debug" "cider-debug.el" (22505 21427
-;;;;;;  236200 58000))
+;;;;;;  421825 563000))
 ;;; Generated autoloads from cider-debug.el
 
 (autoload 'cider-debug-defun-at-point "cider-debug" "\
@@ -127,8 +127,8 @@ a number of keys will be prompted to the user.
 
 ;;;***
 
-;;;### (autoloads nil "cider-grimoire" "cider-grimoire.el" (22500
+;;;### (autoloads nil "cider-grimoire" "cider-grimoire.el" (22505
-;;;;;;  1819 296200 380000))
+;;;;;;  21427 481825 556000))
 ;;; Generated autoloads from cider-grimoire.el
 
 (autoload 'cider-grimoire-web "cider-grimoire" "\
@@ -151,8 +151,8 @@ opposite of what that option dictates.
 
 ;;;***
 
-;;;### (autoloads nil "cider-inspector" "cider-inspector.el" (22500
+;;;### (autoloads nil "cider-inspector" "cider-inspector.el" (22505
-;;;;;;  1819 288200 336000))
+;;;;;;  21427 465825 558000))
 ;;; Generated autoloads from cider-inspector.el
 
 (autoload 'cider-inspect-last-sexp "cider-inspector" "\
@@ -190,7 +190,7 @@ current buffer's namespace.
 ;;;***
 
 ;;;### (autoloads nil "cider-macroexpansion" "cider-macroexpansion.el"
-;;;;;;  (22500 1819 336200 594000))
+;;;;;;  (22505 21427 513825 552000))
 ;;; Generated autoloads from cider-macroexpansion.el
 
 (autoload 'cider-macroexpand-1 "cider-macroexpansion" "\
@@ -207,8 +207,8 @@ Invoke \\=`clojure.walk/macroexpand-all\\=` on the expression preceding point.
 
 ;;;***
 
-;;;### (autoloads nil "cider-mode" "cider-mode.el" (22500 1819 260200
+;;;### (autoloads nil "cider-mode" "cider-mode.el" (22505 21427 441825
-;;;;;;  186000))
+;;;;;;  561000))
 ;;; Generated autoloads from cider-mode.el
 
 (defvar cider-mode-line '(:eval (format " cider[%s]" (cider--modeline-info))) "\
@@ -236,8 +236,8 @@ Minor mode for REPL interaction from a Clojure buffer.
 
 ;;;***
 
-;;;### (autoloads nil "cider-scratch" "cider-scratch.el" (22500 1819
+;;;### (autoloads nil "cider-scratch" "cider-scratch.el" (22505 21427
-;;;;;;  272200 251000))
+;;;;;;  449825 560000))
 ;;; Generated autoloads from cider-scratch.el
 
 (autoload 'cider-scratch "cider-scratch" "\
@@ -247,8 +247,8 @@ Go to the scratch buffer named `cider-scratch-buffer-name'.
 
 ;;;***
 
-;;;### (autoloads nil "cider-selector" "cider-selector.el" (22500
+;;;### (autoloads nil "cider-selector" "cider-selector.el" (22505
-;;;;;;  1819 352200 679000))
+;;;;;;  21427 537825 549000))
 ;;; Generated autoloads from cider-selector.el
 
 (autoload 'cider-selector "cider-selector" "\
@@ -263,13 +263,14 @@ See `def-cider-selector-method' for defining new methods.
 
 ;;;***
 
-;;;### (autoloads nil "cider-test" "cider-test.el" (22500 1819 332200
+;;;### (autoloads nil "cider-test" "cider-test.el" (22505 21427 505825
-;;;;;;  572000))
+;;;;;;  553000))
 ;;; Generated autoloads from cider-test.el
 
 (defvar cider-auto-test-mode nil "\
 Non-nil if Cider-Auto-Test mode is enabled.
-See the command `cider-auto-test-mode' for a description of this minor mode.
+See the `cider-auto-test-mode' command
+for a description of this minor mode.
 Setting this variable directly does not take effect;
 either customize it (see the info node `Easy Customization')
 or call the function `cider-auto-test-mode'.")
@@ -287,8 +288,8 @@ nothing if no tests are defined or if the file failed to load.
 
 ;;;***
 
-;;;### (autoloads nil "cider-util" "cider-util.el" (22500 1819 340200
+;;;### (autoloads nil "cider-util" "cider-util.el" (22505 21427 521825
-;;;;;;  615000))
+;;;;;;  551000))
 ;;; Generated autoloads from cider-util.el
 
 (autoload 'cider-view-manual "cider-util" "\
@@ -302,7 +303,7 @@ View the manual in your default browser.
 ;;;;;;  "cider-doc.el" "cider-eldoc.el" "cider-interaction.el" "cider-overlays.el"
 ;;;;;;  "cider-pkg.el" "cider-popup.el" "cider-repl.el" "cider-resolve.el"
 ;;;;;;  "cider-stacktrace.el" "nrepl-client.el" "nrepl-dict.el")
-;;;;;;  (22500 1819 381194 228000))
+;;;;;;  (22505 21427 553825 547000))
 
 ;;;***
 

elpa/cider-20160925.2057/cider-browse-ns.el

@@ -54,7 +54,7 @@
     (set-keymap-parent map cider-popup-buffer-mode-map)
     (define-key map "d" #'cider-browse-ns-doc-at-point)
     (define-key map "s" #'cider-browse-ns-find-at-point)
-    (define-key map [return] #'cider-browse-ns-operate-at-point)
+    (define-key map (kbd "RET") #'cider-browse-ns-operate-at-point)
     (define-key map "^" #'cider-browse-ns-all)
     (define-key map "n" #'next-line)
     (define-key map "p" #'previous-line)

elpa/cider-20160925.2057/cider-classpath.el

@@ -34,7 +34,7 @@
 (defvar cider-classpath-mode-map
   (let ((map (make-sparse-keymap)))
     (set-keymap-parent map cider-popup-buffer-mode-map)
-    (define-key map [return] #'cider-classpath-operate-on-point)
+    (define-key map (kbd "RET") #'cider-classpath-operate-on-point)
     (define-key map "n" #'next-line)
     (define-key map "p" #'previous-line)
     map))

elpa/cider-20160925.2057/cider-inspector.el

@@ -56,8 +56,7 @@ The page size can be also changed interactively within the inspector."
 (defvar cider-inspector-mode-map
   (let ((map (make-sparse-keymap)))
     (set-keymap-parent map cider-popup-buffer-mode-map)
-    (define-key map [return] #'cider-inspector-operate-on-point)
+    (define-key map (kbd "RET") #'cider-inspector-operate-on-point)
-    (define-key map "\C-m"   #'cider-inspector-operate-on-point)
     (define-key map [mouse-1] #'cider-inspector-operate-on-click)
     (define-key map "l" #'cider-inspector-pop)
     (define-key map "g" #'cider-inspector-refresh)

elpa/cider-20160925.2057/cider-pkg.el

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

elpa/flycheck-20160926.141/flycheck-autoloads.el

@@ -1,10 +1,10 @@
 ;;; flycheck-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 "flycheck" "flycheck.el" (22499 37047 135000
+;;;### (autoloads nil "flycheck" "flycheck.el" (22505 21423 841826
-;;;;;;  0))
+;;;;;;  8000))
 ;;; Generated autoloads from flycheck.el
 
 (autoload 'flycheck-manual "flycheck" "\
@@ -33,8 +33,9 @@ buffer manually.
 \(fn &optional ARG)" t nil)
 
 (defvar global-flycheck-mode nil "\
-Non-nil if Global-Flycheck mode is enabled.
+Non-nil if Global Flycheck mode is enabled.
-See the command `global-flycheck-mode' for a description of this minor mode.
+See the `global-flycheck-mode' command
+for a description of this minor mode.
 Setting this variable directly does not take effect;
 either customize it (see the info node `Easy Customization')
 or call the function `global-flycheck-mode'.")
@@ -43,7 +44,7 @@ or call the function `global-flycheck-mode'.")
 
 (autoload 'global-flycheck-mode "flycheck" "\
 Toggle Flycheck mode in all buffers.
-With prefix ARG, enable Global-Flycheck mode if ARG is positive;
+With prefix ARG, enable Global Flycheck mode if ARG is positive;
 otherwise, disable it.  If called from Lisp, enable the mode if
 ARG is omitted or nil.
 
@@ -103,7 +104,7 @@ The following PROPERTIES constitute an error level:
 
 \(fn LEVEL &rest PROPERTIES)" nil nil)
 
-(put 'flycheck-define-error-level 'lisp-indent-function '1)
+(function-put 'flycheck-define-error-level 'lisp-indent-function '1)
 
 (autoload 'flycheck-define-command-checker "flycheck" "\
 Define SYMBOL as syntax checker to run a command.
@@ -184,9 +185,9 @@ default `:verify' function of command checkers.
 
 \(fn SYMBOL DOCSTRING &rest PROPERTIES)" nil nil)
 
-(put 'flycheck-define-command-checker 'lisp-indent-function '1)
+(function-put 'flycheck-define-command-checker 'lisp-indent-function '1)
 
-(put 'flycheck-define-command-checker 'doc-string-elt '2)
+(function-put 'flycheck-define-command-checker 'doc-string-elt '2)
 
 (autoload 'flycheck-def-config-file-var "flycheck" "\
 Define SYMBOL as config file variable for CHECKER, with default FILE-NAME.
@@ -203,7 +204,7 @@ argument to `flycheck-define-checker'.
 
 \(fn SYMBOL CHECKER &optional FILE-NAME &rest CUSTOM-ARGS)" nil t)
 
-(put 'flycheck-def-config-file-var 'lisp-indent-function '3)
+(function-put 'flycheck-def-config-file-var 'lisp-indent-function '3)
 
 (autoload 'flycheck-def-option-var "flycheck" "\
 Define SYMBOL as option variable with INIT-VALUE for CHECKER.
@@ -220,14 +221,14 @@ Use this together with the `option', `option-list' and
 
 \(fn SYMBOL INIT-VALUE CHECKERS DOCSTRING &rest CUSTOM-ARGS)" nil t)
 
-(put 'flycheck-def-option-var 'lisp-indent-function '3)
+(function-put 'flycheck-def-option-var 'lisp-indent-function '3)
 
-(put 'flycheck-def-option-var 'doc-string-elt '4)
+(function-put 'flycheck-def-option-var 'doc-string-elt '4)
 
 ;;;***
 
 ;;;### (autoloads nil nil ("flycheck-buttercup.el" "flycheck-ert.el"
-;;;;;;  "flycheck-pkg.el") (22499 37047 144207 585000))
+;;;;;;  "flycheck-pkg.el") (22505 21423 837826 9000))
 
 ;;;***
 

elpa/flycheck-20160926.141/flycheck-pkg.el

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

elpa/flycheck-20160926.141/flycheck.el

@@ -1618,6 +1618,26 @@ are mandatory.
 
      This property is optional.
 
+`:enabled FUNCTION'
+     A function to determine whether to use the syntax checker in
+     the current buffer.
+
+     This function behaves as `:predicate', except that it's only
+     called the first time a syntax checker is to be used in a buffer.
+
+     If the function returns a non-nil value the checker is put in a
+     whitelist in `flycheck-enabled-checkers' to prevent further
+     invocations of `:enabled'.  Otherwise it is disabled via
+     `flycheck-disabled-checkers' to prevent any further use of it.
+
+     FUNCTION is called with CHECKER argument and shall return
+     non-nil if this syntax checker shall be used to check the
+     current buffer.  Otherwise it shall return nil.
+
+     FUNCTION is only called in matching major modes.
+
+     This property is optional.
+
 `:error-filter FUNCTION'
      A function to filter the errors returned by this checker.
 
@@ -1680,6 +1700,7 @@ Signal an error, if any property has an invalid value."
         (modes (plist-get properties :modes))
         (predicate (plist-get properties :predicate))
         (verify (plist-get properties :verify))
+        (enabled (plist-get properties :enabled))
         (filter (or (plist-get properties :error-filter) #'identity))
         (next-checkers (plist-get properties :next-checkers))
         (file (flycheck-current-load-file))
@@ -1699,6 +1720,9 @@ Signal an error, if any property has an invalid value."
     (unless (or (null verify) (functionp verify))
       (error ":verify %S of syntax checker %S is not a function"
              verify symbol))
+    (unless (or (null enabled) (functionp enabled))
+      (error ":enabled %S of syntax checker %S is not a function"
+             enabled symbol))
     (unless modes
       (error "Missing :modes in syntax checker %s" symbol))
     (dolist (mode modes)
@@ -1731,6 +1755,7 @@ Try to reinstall the package defining this syntax checker." symbol)
                        (modes             . ,modes)
                        (predicate         . ,real-predicate)
                        (verify            . ,verify)
+                       (enabled           . ,enabled)
                        (error-filter      . ,filter)
                        (next-checkers     . ,next-checkers)
                        (documentation     . ,docstring)
@@ -1761,6 +1786,27 @@ CHECKER supports buffers in the given major MODE.
 Return non-nil if CHECKER supports MODE and nil otherwise."
   (memq mode (flycheck-checker-get checker 'modes)))
 
+(defvar-local flycheck-enabled-checkers nil
+  "Syntax checkers included in automatic selection.
+
+A list of Flycheck syntax checkers included in automatic
+selection for current buffer.")
+
+(defun flycheck-may-enable-checker (checker)
+  "Whether a generic CHECKER may be enabled for current buffer.
+
+Return non-nil if CHECKER may be used for the current buffer, and
+nil otherwise."
+  (let* ((enabled (flycheck-checker-get checker 'enabled))
+         (shall-enable (and (not (flycheck-disabled-checker-p checker))
+                            (or (memq checker flycheck-enabled-checkers)
+                                (null enabled)
+                                (funcall enabled checker)))))
+    (if shall-enable
+        (cl-pushnew checker flycheck-enabled-checkers)
+      (cl-pushnew checker flycheck-disabled-checkers))
+    shall-enable))
+
 (defun flycheck-may-use-checker (checker)
   "Whether a generic CHECKER may be used.
 
@@ -1768,8 +1814,8 @@ Return non-nil if CHECKER may be used for the current buffer, and
 nil otherwise."
   (let ((predicate (flycheck-checker-get checker 'predicate)))
     (and (flycheck-valid-checker-p checker)
-         (not (flycheck-disabled-checker-p checker))
          (flycheck-checker-supports-major-mode-p checker major-mode)
+         (flycheck-may-enable-checker checker)
          (funcall predicate))))
 
 (defun flycheck-may-use-next-checker (next-checker)
@@ -3747,12 +3793,22 @@ the beginning of the buffer."
     map)
   "The keymap of `flycheck-error-list-mode'.")
 
+(defun flycheck-error-list-make-last-column (message checker)
+  "Compute contents of the last error list cell.
+
+MESSAGE and CHECKER are displayed in a single column to allow the
+message to stretch arbitrarily far."
+  (let ((checker-name (propertize (symbol-name checker)
+                                  'face 'flycheck-error-list-checker-name)))
+    (format (propertize "%s (%s)" 'face 'default)
+            message checker-name)))
+
 (defconst flycheck-error-list-format
-  [("Line" 5 flycheck-error-list-entry-< :right-align t)
+  `[("Line" 5 flycheck-error-list-entry-< :right-align t)
-   ("Col" 3 nil :right-align t)
+    ("Col" 3 nil :right-align t)
-   ("Level" 8 flycheck-error-list-entry-level-<)
+    ("Level" 8 flycheck-error-list-entry-level-<)
-   ("ID" 6 t)
+    ("ID" 6 t)
-   ("Message (Checker)" 0 t)]
+    (,(flycheck-error-list-make-last-column "Message" 'Checker) 0 t)]
   "Table format for the error list.")
 
 (defconst flycheck-error-list-padding 1
@@ -3820,16 +3876,21 @@ the beginning of the buffer."
   "Go to the error at BUTTON."
   (flycheck-error-list-goto-error (button-start button)))
 
-(defsubst flycheck-error-list-make-cell (text &optional face)
+(defsubst flycheck-error-list-make-cell (text &optional face help-echo)
   "Make an error list cell with TEXT and FACE.
 
 If FACE is nil don't set a FACE on TEXT.  If TEXT already has
 face properties, do not specify a FACE.  Note though, that if
 TEXT gets truncated it will not inherit any previous face
 properties.  If you expect TEXT to be truncated in the error
-list, do specify a FACE explicitly!"
+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."
   (append (list text 'type 'flycheck-error-list)
-          (and face (list 'face face))))
+          (and face (list 'face face))
+          (and help-echo (list 'help-echo help-echo))))
 
 (defsubst flycheck-error-list-make-number-cell (number face)
   "Make a table cell for a NUMBER with FACE.
@@ -3840,17 +3901,6 @@ string with attached text properties."
    (if (numberp number) (number-to-string number) "")
    face))
 
-(defun flycheck-error-list-make-last-column (message checker)
-  "Compute contents of the last error list cell.
-
-MESSAGE and CHECKER are displayed in a single column to allow the
-message to stretch arbitrarily far."
-  (let ((checker-name (propertize (symbol-name checker)
-                                  'face 'flycheck-error-list-checker-name)))
-    (format (propertize "%s (%s)" 'face 'default)
-            (flycheck-flush-multiline-message message)
-            checker-name)))
-
 (defun flycheck-error-list-make-entry (error)
   "Make a table cell for the given ERROR.
 
@@ -3861,8 +3911,11 @@ Return a list with the contents of the table cell."
          (column (flycheck-error-column error))
          (message (or (flycheck-error-message error)
                       (format "Unknown %s" (symbol-name level))))
+         (flushed-msg (flycheck-flush-multiline-message message))
          (id (flycheck-error-id error))
-         (checker (flycheck-error-checker 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)))
     (list error
           (vector (flycheck-error-list-make-number-cell
                    line 'flycheck-error-list-line-number)
@@ -3871,10 +3924,9 @@ Return a list with the contents of the table cell."
                   (flycheck-error-list-make-cell
                    (symbol-name (flycheck-error-level error)) level-face)
                   (flycheck-error-list-make-cell
-                   (if id (format "%s" id) "")
+                   id-str 'flycheck-error-list-id id-str)
-                   'flycheck-error-list-id)
                   (flycheck-error-list-make-cell
-                   (flycheck-error-list-make-last-column message checker))))))
+                   msg-and-checker nil msg-and-checker)))))
 
 (defun flycheck-flush-multiline-message (msg)
   "Prepare error message MSG for display in the error list.
@@ -5653,6 +5705,7 @@ SYMBOL with `flycheck-def-executable-var'."
         (parser (plist-get properties :error-parser))
         (filter (plist-get properties :error-filter))
         (predicate (plist-get properties :predicate))
+        (enabled-fn (plist-get properties :enabled))
         (verify-fn (plist-get properties :verify)))
 
     `(progn
@@ -5670,6 +5723,8 @@ SYMBOL with `flycheck-def-executable-var'."
          ,@(when predicate
              `(:predicate #',predicate))
          :next-checkers ',(plist-get properties :next-checkers)
+         ,@(when enabled-fn
+             `(:enabled #',enabled-fn))
          ,@(when verify-fn
              `(:verify #',verify-fn))
          :standard-input ',(plist-get properties :standard-input)

elpa/helm-20160925.2152/helm-autoloads.el

@@ -1,15 +1,16 @@
 ;;; helm-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-adaptive" "helm-adaptive.el" (22499 37042
+;;;### (autoloads nil "helm-adaptive" "helm-adaptive.el" (22505 21420
-;;;;;;  911000 0))
+;;;;;;  949826 366000))
 ;;; Generated autoloads from helm-adaptive.el
 
 (defvar helm-adaptive-mode nil "\
 Non-nil if Helm-Adaptive mode is enabled.
-See the command `helm-adaptive-mode' for a description of this minor mode.
+See the `helm-adaptive-mode' command
+for a description of this minor mode.
 Setting this variable directly does not take effect;
 either customize it (see the info node `Easy Customization')
 or call the function `helm-adaptive-mode'.")
@@ -29,8 +30,8 @@ Useful when you have a old or corrupted `helm-adaptive-history-file'.
 
 ;;;***
 
-;;;### (autoloads nil "helm-apt" "helm-apt.el" (22499 37042 869000
+;;;### (autoloads nil "helm-apt" "helm-apt.el" (22505 21420 917826
-;;;;;;  0))
+;;;;;;  372000))
 ;;; Generated autoloads from helm-apt.el
 
 (autoload 'helm-apt "helm-apt" "\
@@ -41,8 +42,8 @@ With a prefix arg reload cache.
 
 ;;;***
 
-;;;### (autoloads nil "helm-bookmark" "helm-bookmark.el" (22499 37042
+;;;### (autoloads nil "helm-bookmark" "helm-bookmark.el" (22505 21420
-;;;;;;  959000 0))
+;;;;;;  989826 364000))
 ;;; Generated autoloads from helm-bookmark.el
 
 (autoload 'helm-bookmarks "helm-bookmark" "\
@@ -59,8 +60,8 @@ only if external library addressbook-bookmark.el is available.
 
 ;;;***
 
-;;;### (autoloads nil "helm-buffers" "helm-buffers.el" (22499 37042
+;;;### (autoloads nil "helm-buffers" "helm-buffers.el" (22505 21420
-;;;;;;  853000 0))
+;;;;;;  905826 374000))
 ;;; Generated autoloads from helm-buffers.el
 
 (autoload 'helm-buffers-list "helm-buffers" "\
@@ -75,8 +76,8 @@ Preconfigured `helm' lightweight version (buffer -> recentf).
 
 ;;;***
 
-;;;### (autoloads nil "helm-color" "helm-color.el" (22499 37042 943000
+;;;### (autoloads nil "helm-color" "helm-color.el" (22505 21420 977826
-;;;;;;  0))
+;;;;;;  363000))
 ;;; Generated autoloads from helm-color.el
 
 (autoload 'helm-colors "helm-color" "\
@@ -86,8 +87,8 @@ Preconfigured `helm' for color.
 
 ;;;***
 
-;;;### (autoloads nil "helm-command" "helm-command.el" (22499 37042
+;;;### (autoloads nil "helm-command" "helm-command.el" (22505 21420
-;;;;;;  797000 0))
+;;;;;;  865826 377000))
 ;;; Generated autoloads from helm-command.el
 
 (autoload 'helm-M-x "helm-command" "\
@@ -105,8 +106,8 @@ You can get help on each command by persistent action.
 
 ;;;***
 
-;;;### (autoloads nil "helm-config" "helm-config.el" (22499 37042
+;;;### (autoloads nil "helm-config" "helm-config.el" (22505 21420
-;;;;;;  955000 0))
+;;;;;;  985826 363000))
 ;;; Generated autoloads from helm-config.el
 
 (autoload 'helm-configuration "helm-config" "\
@@ -116,8 +117,8 @@ Customize `helm'.
 
 ;;;***
 
-;;;### (autoloads nil "helm-dabbrev" "helm-dabbrev.el" (22499 37042
+;;;### (autoloads nil "helm-dabbrev" "helm-dabbrev.el" (22505 21420
-;;;;;;  879000 0))
+;;;;;;  925826 369000))
 ;;; Generated autoloads from helm-dabbrev.el
 
 (autoload 'helm-dabbrev "helm-dabbrev" "\
@@ -127,8 +128,8 @@ Preconfigured helm for dynamic abbreviations.
 
 ;;;***
 
-;;;### (autoloads nil "helm-elisp" "helm-elisp.el" (22499 37042 947000
+;;;### (autoloads nil "helm-elisp" "helm-elisp.el" (22505 21420 981826
-;;;;;;  0))
+;;;;;;  362000))
 ;;; Generated autoloads from helm-elisp.el
 
 (autoload 'helm-lisp-completion-at-point "helm-elisp" "\
@@ -182,7 +183,7 @@ Preconfigured helm for complex command history.
 ;;;***
 
 ;;;### (autoloads nil "helm-elisp-package" "helm-elisp-package.el"
-;;;;;;  (22499 37042 804000 0))
+;;;;;;  (22505 21420 869826 376000))
 ;;; Generated autoloads from helm-elisp-package.el
 
 (autoload 'helm-list-elisp-packages "helm-elisp-package" "\
@@ -198,8 +199,8 @@ Same as `helm-list-elisp-packages' but don't fetch packages on remote.
 
 ;;;***
 
-;;;### (autoloads nil "helm-elscreen" "helm-elscreen.el" (22499 37042
+;;;### (autoloads nil "helm-elscreen" "helm-elscreen.el" (22505 21420
-;;;;;;  785000 0))
+;;;;;;  857826 381000))
 ;;; Generated autoloads from helm-elscreen.el
 
 (autoload 'helm-elscreen "helm-elscreen" "\
@@ -214,8 +215,8 @@ Preconfigured helm to list elscreen in history order.
 
 ;;;***
 
-;;;### (autoloads nil "helm-eshell" "helm-eshell.el" (22499 37042
+;;;### (autoloads nil "helm-eshell" "helm-eshell.el" (22505 21420
-;;;;;;  822000 0))
+;;;;;;  885826 377000))
 ;;; Generated autoloads from helm-eshell.el
 
 (autoload 'helm-esh-pcomplete "helm-eshell" "\
@@ -230,8 +231,8 @@ Preconfigured helm for eshell history.
 
 ;;;***
 
-;;;### (autoloads nil "helm-eval" "helm-eval.el" (22499 37042 916000
+;;;### (autoloads nil "helm-eval" "helm-eval.el" (22505 21420 957826
-;;;;;;  0))
+;;;;;;  367000))
 ;;; Generated autoloads from helm-eval.el
 
 (autoload 'helm-eval-expression "helm-eval" "\
@@ -251,8 +252,8 @@ Preconfigured helm for `helm-source-calculation-result'.
 
 ;;;***
 
-;;;### (autoloads nil "helm-external" "helm-external.el" (22499 37042
+;;;### (autoloads nil "helm-external" "helm-external.el" (22505 21420
-;;;;;;  773000 0))
+;;;;;;  841826 378000))
 ;;; Generated autoloads from helm-external.el
 
 (autoload 'helm-run-external-command "helm-external" "\
@@ -265,8 +266,8 @@ You can set your own list of commands with
 
 ;;;***
 
-;;;### (autoloads nil "helm-files" "helm-files.el" (22499 37042 885000
+;;;### (autoloads nil "helm-files" "helm-files.el" (22505 21420 929826
-;;;;;;  0))
+;;;;;;  370000))
 ;;; Generated autoloads from helm-files.el
 
 (autoload 'helm-projects-history "helm-files" "\
@@ -354,8 +355,8 @@ It allows additionally to delete more than one connection at once.
 
 ;;;***
 
-;;;### (autoloads nil "helm-font" "helm-font.el" (22499 37042 830000
+;;;### (autoloads nil "helm-font" "helm-font.el" (22505 21420 889826
-;;;;;;  0))
+;;;;;;  375000))
 ;;; Generated autoloads from helm-font.el
 
 (autoload 'helm-select-xfont "helm-font" "\
@@ -370,8 +371,8 @@ Preconfigured helm for `ucs-names' math symbols.
 
 ;;;***
 
-;;;### (autoloads nil "helm-grep" "helm-grep.el" (22499 37042 964000
+;;;### (autoloads nil "helm-grep" "helm-grep.el" (22505 21420 997826
-;;;;;;  0))
+;;;;;;  363000))
 ;;; Generated autoloads from helm-grep.el
 
 (autoload 'helm-goto-precedent-file "helm-grep" "\
@@ -398,8 +399,8 @@ With a prefix arg ARG git-grep the whole repository.
 
 ;;;***
 
-;;;### (autoloads nil "helm-help" "helm-help.el" (22499 37042 766000
+;;;### (autoloads nil "helm-help" "helm-help.el" (22505 21420 837826
-;;;;;;  0))
+;;;;;;  380000))
 ;;; Generated autoloads from helm-help.el
 
 (autoload 'helm-documentation "helm-help" "\
@@ -419,8 +420,8 @@ String displayed in mode-line in `helm-source-find-files'.")
 
 ;;;***
 
-;;;### (autoloads nil "helm-id-utils" "helm-id-utils.el" (22499 37042
+;;;### (autoloads nil "helm-id-utils" "helm-id-utils.el" (22505 21420
-;;;;;;  861000 0))
+;;;;;;  909826 374000))
 ;;; Generated autoloads from helm-id-utils.el
 
 (autoload 'helm-gid "helm-id-utils" "\
@@ -434,8 +435,8 @@ See <https://www.gnu.org/software/idutils/>.
 
 ;;;***
 
-;;;### (autoloads nil "helm-imenu" "helm-imenu.el" (22499 37042 839000
+;;;### (autoloads nil "helm-imenu" "helm-imenu.el" (22505 21420 897826
-;;;;;;  0))
+;;;;;;  373000))
 ;;; Generated autoloads from helm-imenu.el
 
 (autoload 'helm-imenu "helm-imenu" "\
@@ -452,8 +453,8 @@ or it have an association in `helm-imenu-all-buffer-assoc'.
 
 ;;;***
 
-;;;### (autoloads nil "helm-info" "helm-info.el" (22499 37042 835000
+;;;### (autoloads nil "helm-info" "helm-info.el" (22505 21420 893826
-;;;;;;  0))
+;;;;;;  373000))
 ;;; Generated autoloads from helm-info.el
 
 (autoload 'helm-info "helm-info" "\
@@ -469,8 +470,8 @@ With a prefix-arg insert symbol at point.
 
 ;;;***
 
-;;;### (autoloads nil "helm-locate" "helm-locate.el" (22499 37042
+;;;### (autoloads nil "helm-locate" "helm-locate.el" (22505 21420
-;;;;;;  777000 0))
+;;;;;;  845826 379000))
 ;;; Generated autoloads from helm-locate.el
 
 (autoload 'helm-projects-find-files "helm-locate" "\
@@ -497,8 +498,8 @@ Where db_path is a filename matched by
 
 ;;;***
 
-;;;### (autoloads nil "helm-man" "helm-man.el" (22499 37042 924000
+;;;### (autoloads nil "helm-man" "helm-man.el" (22505 21420 961826
-;;;;;;  0))
+;;;;;;  368000))
 ;;; Generated autoloads from helm-man.el
 
 (autoload 'helm-man-woman "helm-man" "\
@@ -509,8 +510,8 @@ With a prefix arg reinitialize the cache.
 
 ;;;***
 
-;;;### (autoloads nil "helm-misc" "helm-misc.el" (22499 37042 903000
+;;;### (autoloads nil "helm-misc" "helm-misc.el" (22505 21420 945826
-;;;;;;  0))
+;;;;;;  368000))
 ;;; Generated autoloads from helm-misc.el
 
 (autoload 'helm-browse-menubar "helm-misc" "\
@@ -551,8 +552,8 @@ Preconfigured `helm' that provide completion of `comint' history.
 
 ;;;***
 
-;;;### (autoloads nil "helm-mode" "helm-mode.el" (22499 37042 752000
+;;;### (autoloads nil "helm-mode" "helm-mode.el" (22505 21420 829826
-;;;;;;  0))
+;;;;;;  385000))
 ;;; Generated autoloads from helm-mode.el
 
 (autoload 'helm-comp-read "helm-mode" "\
@@ -649,7 +650,7 @@ in `helm-current-prefix-arg', otherwise if prefix args were given before
 That's mean you can pass prefix args before or after calling a command
 that use `helm-comp-read' See `helm-M-x' for example.
 
-\(fn PROMPT COLLECTION &key TEST INITIAL-INPUT DEFAULT PRESELECT (buffer \"*Helm Completions*\") MUST-MATCH FUZZY REVERSE-HISTORY (requires-pattern 0) HISTORY INPUT-HISTORY (case-fold helm-comp-read-case-fold-search) (del-input t) (persistent-action nil) (persistent-help \"DoNothing\") (mode-line helm-comp-read-mode-line) HELP-MESSAGE (keymap helm-comp-read-map) (name \"Helm Completions\") CANDIDATES-IN-BUFFER MATCH-PART EXEC-WHEN-ONLY-ONE QUIT-WHEN-NO-CAND (volatile t) SORT (fc-transformer (quote helm-cr-default-transformer)) HIST-FC-TRANSFORMER MARKED-CANDIDATES NOMARK (alistp t) (candidate-number-limit helm-candidate-number-limit))" nil nil)
+\(fn PROMPT COLLECTION &key TEST INITIAL-INPUT DEFAULT PRESELECT (BUFFER \"*Helm Completions*\") MUST-MATCH FUZZY REVERSE-HISTORY (REQUIRES-PATTERN 0) HISTORY INPUT-HISTORY (CASE-FOLD helm-comp-read-case-fold-search) (DEL-INPUT t) (PERSISTENT-ACTION nil) (PERSISTENT-HELP \"DoNothing\") (MODE-LINE helm-comp-read-mode-line) HELP-MESSAGE (KEYMAP helm-comp-read-map) (NAME \"Helm Completions\") CANDIDATES-IN-BUFFER MATCH-PART EXEC-WHEN-ONLY-ONE QUIT-WHEN-NO-CAND (VOLATILE t) SORT (FC-TRANSFORMER \\='helm-cr-default-transformer) HIST-FC-TRANSFORMER MARKED-CANDIDATES NOMARK (ALISTP t) (CANDIDATE-NUMBER-LIMIT helm-candidate-number-limit))" nil nil)
 
 (autoload 'helm-read-file-name "helm-mode" "\
 Read a file name with helm completion.
@@ -687,11 +688,12 @@ Keys description:
 
 - MODE-LINE: A mode line message, default is `helm-read-file-name-mode-line-string'.
 
-\(fn PROMPT &key (name \"Read File Name\") (initial-input default-directory) (buffer \"*Helm file completions*\") TEST (case-fold helm-file-name-case-fold-search) PRESELECT HISTORY MUST-MATCH DEFAULT MARKED-CANDIDATES (candidate-number-limit helm-ff-candidate-number-limit) NOMARK (alistp t) (persistent-action (quote helm-find-files-persistent-action)) (persistent-help \"Hit1 Expand Candidate, Hit2 or (C-u) Find file\") (mode-line helm-read-file-name-mode-line-string))" nil nil)
+\(fn PROMPT &key (NAME \"Read File Name\") (INITIAL-INPUT default-directory) (BUFFER \"*Helm file completions*\") TEST (CASE-FOLD helm-file-name-case-fold-search) PRESELECT HISTORY MUST-MATCH DEFAULT MARKED-CANDIDATES (CANDIDATE-NUMBER-LIMIT helm-ff-candidate-number-limit) NOMARK (ALISTP t) (PERSISTENT-ACTION \\='helm-find-files-persistent-action) (PERSISTENT-HELP \"Hit1 Expand Candidate, Hit2 or (C-u) Find file\") (MODE-LINE helm-read-file-name-mode-line-string))" nil nil)
 
 (defvar helm-mode nil "\
 Non-nil if Helm mode is enabled.
-See the command `helm-mode' for a description of this minor mode.
+See the `helm-mode' command
+for a description of this minor mode.
 Setting this variable directly does not take effect;
 either customize it (see the info node `Easy Customization')
 or call the function `helm-mode'.")
@@ -722,8 +724,8 @@ Note: This mode is incompatible with Emacs23.
 
 ;;;***
 
-;;;### (autoloads nil "helm-net" "helm-net.el" (22499 37042 939000
+;;;### (autoloads nil "helm-net" "helm-net.el" (22505 21420 973826
-;;;;;;  0))
+;;;;;;  365000))
 ;;; Generated autoloads from helm-net.el
 
 (autoload 'helm-surfraw "helm-net" "\
@@ -743,8 +745,8 @@ Preconfigured `helm' for Wikipedia lookup with Wikipedia suggest.
 
 ;;;***
 
-;;;### (autoloads nil "helm-org" "helm-org.el" (22499 37042 970000
+;;;### (autoloads nil "helm-org" "helm-org.el" (22505 21421 1826
-;;;;;;  0))
+;;;;;;  361000))
 ;;; Generated autoloads from helm-org.el
 
 (autoload 'helm-org-agenda-files-headings "helm-org" "\
@@ -775,8 +777,8 @@ Preconfigured helm for org templates.
 
 ;;;***
 
-;;;### (autoloads nil "helm-regexp" "helm-regexp.el" (22499 37042
+;;;### (autoloads nil "helm-regexp" "helm-regexp.el" (22505 21420
-;;;;;;  935000 0))
+;;;;;;  969826 367000))
 ;;; Generated autoloads from helm-regexp.el
 
 (autoload 'helm-moccur-mode "helm-regexp" "\
@@ -815,13 +817,14 @@ The prefix arg can be set before calling
 
 ;;;***
 
-;;;### (autoloads nil "helm-ring" "helm-ring.el" (22499 37042 758000
+;;;### (autoloads nil "helm-ring" "helm-ring.el" (22505 21420 833826
-;;;;;;  0))
+;;;;;;  383000))
 ;;; Generated autoloads from helm-ring.el
 
 (defvar helm-push-mark-mode nil "\
 Non-nil if Helm-Push-Mark mode is enabled.
-See the command `helm-push-mark-mode' for a description of this minor mode.
+See the `helm-push-mark-mode' command
+for a description of this minor mode.
 Setting this variable directly does not take effect;
 either customize it (see the info node `Easy Customization')
 or call the function `helm-push-mark-mode'.")
@@ -873,8 +876,8 @@ This command is useful when used with persistent action.
 
 ;;;***
 
-;;;### (autoloads nil "helm-semantic" "helm-semantic.el" (22499 37042
+;;;### (autoloads nil "helm-semantic" "helm-semantic.el" (22505 21420
-;;;;;;  847000 0))
+;;;;;;  901826 374000))
 ;;; Generated autoloads from helm-semantic.el
 
 (autoload 'helm-semantic "helm-semantic" "\
@@ -896,13 +899,14 @@ Fill in the symbol at point by default.
 
 ;;;***
 
-;;;### (autoloads nil "helm-sys" "helm-sys.el" (22499 37042 876000
+;;;### (autoloads nil "helm-sys" "helm-sys.el" (22505 21420 921826
-;;;;;;  0))
+;;;;;;  370000))
 ;;; Generated autoloads from helm-sys.el
 
 (defvar helm-top-poll-mode nil "\
 Non-nil if Helm-Top-Poll mode is enabled.
-See the command `helm-top-poll-mode' for a description of this minor mode.
+See the `helm-top-poll-mode' command
+for a description of this minor mode.
 Setting this variable directly does not take effect;
 either customize it (see the info node `Easy Customization')
 or call the function `helm-top-poll-mode'.")
@@ -931,8 +935,8 @@ Preconfigured helm for xrandr.
 
 ;;;***
 
-;;;### (autoloads nil "helm-tags" "helm-tags.el" (22499 37042 817000
+;;;### (autoloads nil "helm-tags" "helm-tags.el" (22505 21420 881826
-;;;;;;  0))
+;;;;;;  378000))
 ;;; Generated autoloads from helm-tags.el
 
 (autoload 'helm-etags-select "helm-tags" "\
@@ -951,13 +955,14 @@ This function aggregates three sources of tag files:
 
 ;;;***
 
-;;;### (autoloads nil "helm-utils" "helm-utils.el" (22499 37042 791000
+;;;### (autoloads nil "helm-utils" "helm-utils.el" (22505 21420 861826
-;;;;;;  0))
+;;;;;;  380000))
 ;;; Generated autoloads from helm-utils.el
 
 (defvar helm-popup-tip-mode nil "\
 Non-nil if Helm-Popup-Tip mode is enabled.
-See the command `helm-popup-tip-mode' for a description of this minor mode.
+See the `helm-popup-tip-mode' command
+for a description of this minor mode.
 Setting this variable directly does not take effect;
 either customize it (see the info node `Easy Customization')
 or call the function `helm-popup-tip-mode'.")
@@ -972,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")
-;;;;;;  (22499 37042 988357 754000))
+;;;;;;  (22505 21421 5826 359000))
 
 ;;;***
 

elpa/helm-20160925.2152/helm-bookmark.el

@@ -519,13 +519,28 @@ than `w3m-browse-url' use it."
 ;;; Addressbook.
 ;;
 ;;
+(defun helm-bookmark-addressbook-search-fn (pattern)
+  (helm-awhile (next-single-property-change (point) 'email)
+    (goto-char it)
+    (end-of-line)
+    (when (string-match pattern
+                        (get-text-property
+                         0 'email (buffer-substring
+                                   (point-at-bol) (point-at-eol))))
+      (cl-return
+       (+ (point) (match-end 0))))))
+
 (defclass helm-bookmark-addressbook-class (helm-source-in-buffer)
   ((init :initform (lambda ()
                      (require 'addressbook-bookmark nil t)
                      (bookmark-maybe-load-default-file)
                      (helm-init-candidates-in-buffer
                          'global
-                       (helm-bookmark-addressbook-setup-alist))))
+                       (cl-loop for b in (helm-bookmark-addressbook-setup-alist)
+                                collect (propertize
+                                         b 'email (bookmark-prop-get
+                                                   b 'email))))))
+   (search :initform 'helm-bookmark-addressbook-search-fn)
    (persistent-action :initform
                       (lambda (candidate)
                         (let ((bmk (helm-bookmark-get-bookmark-from-name
@@ -543,13 +558,11 @@ than `w3m-browse-url' use it."
          (bookmark      (helm-bookmark-get-bookmark-from-name
                          (car contacts)))
          (append   (message-buffers)))
-    (addressbook-set-mail-buffer-1 bookmark append)
+    (addressbook-set-mail-buffer-1 bookmark append cc)
     (helm-aif (cdr contacts)
-        (progn
+        (cl-loop for bmk in it do
-          (when cc (addressbook-set-mail-buffer-1 (car it) nil cc))
+                 (addressbook-set-mail-buffer-1
-          (cl-loop for bmk in (cdr it) do
+                  (helm-bookmark-get-bookmark-from-name bmk) 'append cc)))))
-                   (addressbook-set-mail-buffer-1
-                    (helm-bookmark-get-bookmark-from-name bmk) 'append cc))))))
 
 (defun helm-bookmark-addressbook-setup-alist ()
   "Specialized filter function for addressbook bookmarks."

elpa/helm-20160925.2152/helm-color.el

@@ -41,6 +41,11 @@
   (helm-build-in-buffer-source "Customize Face"
     :init 'helm-custom-faces-init
     :get-line 'buffer-substring
+    :persistent-action (lambda (candidate)
+                         (helm-elisp--persistent-help
+                          (intern (car (split-string candidate)))
+                          'helm-describe-face))
+    :persistent-help "Describe face"
     :action '(("Customize"
                . (lambda (line)
                    (customize-face (intern (car (split-string line))))))

elpa/helm-20160925.2152/helm-elisp.el

@@ -130,6 +130,11 @@ fuzzy completion is not available in `completion-at-point'."
                  (function :tag "Show one liner in modeline."
                   helm-elisp-show-doc-modeline)))
 
+(defcustom helm-locate-library-fuzzy-match t
+  "Enable fuzzy-matching in `helm-locate-library' when non--nil."
+  :type 'boolean
+  :group 'helm-elisp)
+
 
 ;;; Show completion.
 ;;
@@ -783,9 +788,17 @@ i.e the `symbol-name' of any existing symbol."
   "Preconfigured helm to locate elisp libraries."
   (interactive)
   (helm :sources (helm-build-in-buffer-source  "Elisp libraries (Scan)"
-                   :data (lambda () (helm-locate-library-scan-list))
+                   :data #'helm-locate-library-scan-list
-                   :fuzzy-match t
+                   :fuzzy-match helm-locate-library-fuzzy-match
                    :keymap helm-generic-files-map
+                   :search (unless helm-locate-library-fuzzy-match
+                             (lambda (regexp)
+                               (re-search-forward
+                                (if helm-ff-transformer-show-only-basename
+                                    (replace-regexp-in-string
+                                     "\\`\\^" "" regexp)
+                                    regexp)
+                                nil t)))
                    :match-part (lambda (candidate)
                                  (if helm-ff-transformer-show-only-basename
                                      (helm-basename candidate) candidate))

elpa/helm-20160925.2152/helm-pkg.el

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

elpa/helm-ag-20160923.2128/helm-ag-autoloads.el

@@ -1,10 +1,10 @@
 ;;; helm-ag-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-ag" "helm-ag.el" (22499 37040 953000
+;;;### (autoloads nil "helm-ag" "helm-ag.el" (22505 21414 577827
-;;;;;;  0))
+;;;;;;  160000))
 ;;; Generated autoloads from helm-ag.el
 
 (autoload 'helm-ag-pop-stack "helm-ag" "\

elpa/helm-ag-20160923.2128/helm-ag-pkg.el

@@ -1 +1,2 @@
-(define-package "helm-ag" "20160917.2126" "the silver searcher with helm interface" '((emacs "24.4") (helm "2.0")) :url "https://github.com/syohex/emacs-helm-ag")
+;;; -*- no-byte-compile: t -*-
+(define-package "helm-ag" "20160923.2128" "the silver searcher with helm interface" '((emacs "24.4") (helm "2.0")) :url "https://github.com/syohex/emacs-helm-ag")

elpa/helm-ag-20160923.2128/helm-ag.el

@@ -4,7 +4,7 @@
 
 ;; Author: Syohei YOSHIDA <syohex@gmail.com>
 ;; URL: https://github.com/syohex/emacs-helm-ag
-;; Package-Version: 20160917.2126
+;; Package-Version: 20160923.2128
 ;; Version: 0.56
 ;; Package-Requires: ((emacs "24.4") (helm "2.0"))
 
@@ -100,6 +100,10 @@ They are specified to `--ignore' options."
   "Use temporary buffer for persistent action."
   :type 'boolean)
 
+(defcustom helm-ag-ignore-buffer-patterns nil
+  "Use temporary buffer for persistent action."
+  :type '(repeat regexp))
+
 (defcustom helm-ag-show-status-function 'helm-ag-show-status-default-mode-line
   "Function called after that `ag' process is finished after `helm-do-ag'.
 Default behaviour shows finish and result in mode-line."
@@ -195,10 +199,19 @@ Default behaviour shows finish and result in mode-line."
         (list query)
       (nconc (nreverse options) (list query)))))
 
-(defsubst helm-ag--file-visited-buffers ()
+(defsubst helm-ag--search-buffer-p (bufname)
-  (cl-loop for buf in (buffer-list)
+  (cl-loop for regexp in helm-ag-ignore-buffer-patterns
-           when (buffer-file-name buf)
+           never (string-match-p regexp bufname)))
-           collect it))
+
+(defun helm-ag--file-visited-buffers ()
+  (let ((bufs (cl-loop for buf in (buffer-list)
+                       when (buffer-file-name buf)
+                       collect it)))
+    (if (not helm-ag-ignore-buffer-patterns)
+        bufs
+      (cl-loop for buf in bufs
+               when (helm-ag--search-buffer-p buf)
+               collect buf))))
 
 (defun helm-ag--construct-targets (targets)
   (let ((default-directory helm-ag--default-directory))

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

@@ -1,10 +1,10 @@
 ;;; js2-mode-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 "js2-imenu-extras" "js2-imenu-extras.el" (22490
+;;;### (autoloads nil "js2-imenu-extras" "js2-imenu-extras.el" (22505
-;;;;;;  24930 491422 560000))
+;;;;;;  21387 313830 549000))
 ;;; 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" (22490 24930 511422
+;;;### (autoloads nil "js2-mode" "js2-mode.el" (22505 21387 337830
-;;;;;;  501000))
+;;;;;;  546000))
 ;;; 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")
-;;;;;;  (22490 24930 528528 252000))
+;;;;;;  (22505 21387 329830 547000))
 
 ;;;***
 

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

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

elpa/js2-mode-20160926.723/js2-mode.el

@@ -1130,7 +1130,6 @@ information."
 
 (defvar js2-mode-map
   (let ((map (make-sparse-keymap)))
-    (define-key map [mouse-1] #'js2-mode-show-node)
     (define-key map (kbd "M-j") #'js2-line-break)
     (define-key map (kbd "C-c C-e") #'js2-mode-hide-element)
     (define-key map (kbd "C-c C-s") #'js2-mode-show-element)
@@ -11400,7 +11399,6 @@ If so, we don't ever want to use bounce-indent."
 (defvar js2-minor-mode-map
   (let ((map (make-sparse-keymap)))
     (define-key map (kbd "C-c C-`") #'js2-next-error)
-    (define-key map [mouse-1] #'js2-mode-show-node)
     map)
   "Keymap used when `js2-minor-mode' is active.")
 
@@ -11732,11 +11730,15 @@ buffer will only rebuild its `js2-mode-ast' if the buffer is dirty."
         (unless interrupted-p
           (setq js2-mode-parse-timer nil))))))
 
-(defun js2-mode-show-node (event)
+;; We bound it to [mouse-1] previously.  But the signature of
+;; mouse-set-point changed around 24.4, so it's kind of hard to keep
+;; it working in 24.1-24.3.  Since the command is not hugely
+;; important, we removed the binding (#356).  Maybe we'll bring it
+;; back when supporting <24.4 is not a goal anymore.
+(defun js2-mode-show-node (event &optional promote-to-region)
   "Debugging aid:  highlight selected AST node on mouse click."
-  (interactive "e")
+  (interactive "e\np")
-  (mouse-set-point event)
+  (mouse-set-point event promote-to-region)
-  (setq deactivate-mark t)
   (when js2-mode-show-overlay
     (let ((node (js2-node-at-point))
           beg end)

elpa/let-alist-1.0.4.signed

@@ -1 +0,0 @@
-Good signature from 474F05837FBDEF9B GNU ELPA Signing Agent <elpasign@elpa.gnu.org> (trust undefined) created at 2015-06-12T11:05:02+0200 using DSA

elpa/magit-20160926.517/git-rebase.el

@@ -105,9 +105,7 @@
   :group 'faces
   :group 'git-rebase)
 
-(defface git-rebase-hash
+(defface git-rebase-hash '((t (:inherit magit-hash)))
-  '((((class color) (background light)) :foreground "grey60")
-    (((class color) (background  dark)) :foreground "grey40"))
   "Face for commit hashes."
   :group 'git-rebase-faces)
 
@@ -120,6 +118,16 @@
   "Face for commented action and exec lines."
   :group 'git-rebase-faces)
 
+(defface git-rebase-comment-hash
+  '((t (:inherit git-rebase-hash :weight bold)))
+  "Face for commit hashes in commit message comments."
+  :group 'git-rebase-faces)
+
+(defface git-rebase-comment-heading
+  '((t :inherit font-lock-keyword-face))
+  "Face used for headings in rebase message comments."
+  :group 'git-commit-faces)
+
 ;;; Keymaps
 
 (defvar git-rebase-mode-map
@@ -172,8 +180,8 @@
 (defvar git-rebase-command-descriptions
   '((with-editor-finish        . "tell Git to make it happen")
     (with-editor-cancel        . "tell Git that you changed your mind, i.e. abort")
-    (previous-line             . "move point to previous line")
+    (git-rebase-backward-line  . "move point to previous line")
-    (next-line                 . "move point to next line")
+    (forward-line              . "move point to next line")
     (git-rebase-move-line-up   . "move the commit at point up")
     (git-rebase-move-line-down . "move the commit at point down")
     (git-rebase-show-commit    . "show the commit at point in another buffer")
@@ -395,7 +403,7 @@ running 'man git-rebase' at the command line) for details."
         (concat "^\\(" (regexp-quote comment-start) "?"
                 "\\(?:[fprse]\\|pick\\|reword\\|edit\\|squash\\|fixup\\|exec\\)\\) "
                 "\\(?:\\([^ \n]+\\) \\(.*\\)\\)?"))
-  (setq font-lock-defaults '(git-rebase-mode-font-lock-keywords t t))
+  (setq font-lock-defaults (list (git-rebase-mode-font-lock-keywords) t t))
   (unless git-rebase-show-instructions
     (let ((inhibit-read-only t))
       (flush-lines git-rebase-comment-re)))
@@ -427,7 +435,8 @@ running 'man git-rebase' at the command line) for details."
 (defun git-rebase-match-killed-action (limit)
   (re-search-forward (concat git-rebase-comment-re "[^ \n].*") limit t))
 
-(defconst git-rebase-mode-font-lock-keywords
+(defun git-rebase-mode-font-lock-keywords ()
+  "Font lock keywords for Git-Rebase mode."
   `(("^\\([efprs]\\|pick\\|reword\\|edit\\|squash\\|fixup\\) \\([^ \n]+\\) \\(.*\\)"
      (1 'font-lock-keyword-face)
      (2 'git-rebase-hash)
@@ -436,8 +445,12 @@ running 'man git-rebase' at the command line) for details."
      (1 'font-lock-keyword-face)
      (2 'git-rebase-description))
     (git-rebase-match-comment-line 0 'font-lock-comment-face)
-    (git-rebase-match-killed-action 0 'git-rebase-killed-action t))
+    (git-rebase-match-killed-action 0 'git-rebase-killed-action t)
-  "Font lock keywords for Git-Rebase mode.")
+    (,(format "^%s Rebase \\([^ ]*\\) onto \\([^ ]*\\)" comment-start)
+     (1 'git-rebase-comment-hash t)
+     (2 'git-rebase-comment-hash t))
+    (,(format "^%s \\(Commands:\\)" comment-start)
+     (1 'git-rebase-comment-heading t))))
 
 (defun git-rebase-mode-show-keybindings ()
   "Modify the \"Commands:\" section of the comment Git generates

elpa/magit-20160926.517/magit-autoloads.el

@@ -1,10 +1,10 @@
 ;;; magit-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 "git-rebase" "git-rebase.el" (22499 37036 509000
+;;;### (autoloads nil "git-rebase" "git-rebase.el" (22505 21412 141827
-;;;;;;  0))
+;;;;;;  463000))
 ;;; 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" (22499 37036 591000 0))
+;;;### (autoloads nil "magit" "magit.el" (22505 21412 205827 455000))
 ;;; Generated autoloads from magit.el
 
 (autoload 'magit-status "magit" "\
@@ -423,8 +423,9 @@ defaulting to the tag at point.
  (autoload 'magit-file-popup "magit" nil t)
 
 (defvar global-magit-file-mode nil "\
-Non-nil if Global-Magit-File mode is enabled.
+Non-nil if Global Magit-File mode is enabled.
-See the command `global-magit-file-mode' for a description of this minor mode.
+See the `global-magit-file-mode' command
+for a description of this minor mode.
 Setting this variable directly does not take effect;
 either customize it (see the info node `Easy Customization')
 or call the function `global-magit-file-mode'.")
@@ -433,7 +434,7 @@ or call the function `global-magit-file-mode'.")
 
 (autoload 'global-magit-file-mode "magit" "\
 Toggle Magit-File mode in all buffers.
-With prefix ARG, enable Global-Magit-File mode if ARG is positive;
+With prefix ARG, enable Global Magit-File mode if ARG is positive;
 otherwise, disable it.  If called from Lisp, enable the mode if
 ARG is omitted or nil.
 
@@ -489,8 +490,8 @@ Git, and Emacs in the echo area.
 
 ;;;***
 
-;;;### (autoloads nil "magit-apply" "magit-apply.el" (22499 37036
+;;;### (autoloads nil "magit-apply" "magit-apply.el" (22505 21412
-;;;;;;  532000 0))
+;;;;;;  157827 461000))
 ;;; Generated autoloads from magit-apply.el
 
 (autoload 'magit-stage-file "magit-apply" "\
@@ -526,15 +527,16 @@ Remove all changes from the staging area.
 
 ;;;***
 
-;;;### (autoloads nil "magit-autorevert" "magit-autorevert.el" (22499
+;;;### (autoloads nil "magit-autorevert" "magit-autorevert.el" (22505
-;;;;;;  37036 461000 0))
+;;;;;;  21412 101827 468000))
 ;;; Generated autoloads from magit-autorevert.el
 
 (defvar magit-revert-buffers t)
 
 (defvar magit-auto-revert-mode (and magit-revert-buffers (not global-auto-revert-mode) (not noninteractive)) "\
 Non-nil if Magit-Auto-Revert mode is enabled.
-See the command `magit-auto-revert-mode' for a description of this minor mode.
+See the `magit-auto-revert-mode' command
+for a description of this minor mode.
 Setting this variable directly does not take effect;
 either customize it (see the info node `Easy Customization')
 or call the function `magit-auto-revert-mode'.")
@@ -555,8 +557,8 @@ See `auto-revert-mode' for more information on Auto-Revert mode.
 
 ;;;***
 
-;;;### (autoloads nil "magit-bisect" "magit-bisect.el" (22499 37036
+;;;### (autoloads nil "magit-bisect" "magit-bisect.el" (22505 21412
-;;;;;;  524000 0))
+;;;;;;  153827 461000))
 ;;; Generated autoloads from magit-bisect.el
  (autoload 'magit-bisect-popup "magit-bisect" nil t)
 
@@ -607,8 +609,8 @@ bisect run'.
 
 ;;;***
 
-;;;### (autoloads nil "magit-blame" "magit-blame.el" (22499 37036
+;;;### (autoloads nil "magit-blame" "magit-blame.el" (22505 21412
-;;;;;;  570000 0))
+;;;;;;  193827 456000))
 ;;; Generated autoloads from magit-blame.el
  (autoload 'magit-blame-popup "magit-blame" nil t)
 
@@ -632,8 +634,8 @@ only arguments available from `magit-blame-popup' should be used.
 
 ;;;***
 
-;;;### (autoloads nil "magit-commit" "magit-commit.el" (22499 37036
+;;;### (autoloads nil "magit-commit" "magit-commit.el" (22505 21412
-;;;;;;  465000 0))
+;;;;;;  109827 467000))
 ;;; Generated autoloads from magit-commit.el
 
 (autoload 'magit-commit "magit-commit" "\
@@ -715,8 +717,8 @@ Create a squash commit targeting COMMIT and instantly rebase.
 
 ;;;***
 
-;;;### (autoloads nil "magit-diff" "magit-diff.el" (22499 37036 565000
+;;;### (autoloads nil "magit-diff" "magit-diff.el" (22505 21412 185827
-;;;;;;  0))
+;;;;;;  457000))
 ;;; Generated autoloads from magit-diff.el
 
 (autoload 'magit-diff-popup "magit-diff" "\
@@ -800,8 +802,8 @@ for a revision.
 
 ;;;***
 
-;;;### (autoloads nil "magit-ediff" "magit-ediff.el" (22499 37036
+;;;### (autoloads nil "magit-ediff" "magit-ediff.el" (22505 21412
-;;;;;;  552000 0))
+;;;;;;  177827 458000))
 ;;; Generated autoloads from magit-ediff.el
  (autoload 'magit-ediff-popup "magit-ediff" nil t)
 
@@ -889,8 +891,8 @@ stash that were staged.
 
 ;;;***
 
-;;;### (autoloads nil "magit-extras" "magit-extras.el" (22499 37036
+;;;### (autoloads nil "magit-extras" "magit-extras.el" (22505 21412
-;;;;;;  476000 0))
+;;;;;;  121827 465000))
 ;;; Generated autoloads from magit-extras.el
 
 (autoload 'magit-run-git-gui "magit-extras" "\
@@ -960,8 +962,8 @@ on a position in a file-visiting buffer.
 
 ;;;***
 
-;;;### (autoloads nil "magit-log" "magit-log.el" (22499 37036 560000
+;;;### (autoloads nil "magit-log" "magit-log.el" (22505 21412 181827
-;;;;;;  0))
+;;;;;;  458000))
 ;;; Generated autoloads from magit-log.el
 
 (autoload 'magit-log-buffer-file-popup "magit-log" "\
@@ -1043,8 +1045,8 @@ Show commits in a branch that are not merged in the upstream branch.
 
 ;;;***
 
-;;;### (autoloads nil "magit-remote" "magit-remote.el" (22499 37036
+;;;### (autoloads nil "magit-remote" "magit-remote.el" (22505 21412
-;;;;;;  641000 0))
+;;;;;;  217827 453000))
 ;;; Generated autoloads from magit-remote.el
 
 (autoload 'magit-clone "magit-remote" "\
@@ -1276,8 +1278,8 @@ is asked to pull.  START has to be reachable from that commit.
 
 ;;;***
 
-;;;### (autoloads nil "magit-sequence" "magit-sequence.el" (22499
+;;;### (autoloads nil "magit-sequence" "magit-sequence.el" (22505
-;;;;;;  37036 628000 0))
+;;;;;;  21412 209827 454000))
 ;;; Generated autoloads from magit-sequence.el
 
 (autoload 'magit-sequencer-continue "magit-sequence" "\
@@ -1427,8 +1429,8 @@ Abort the current rebase operation, restoring the original branch.
 
 ;;;***
 
-;;;### (autoloads nil "magit-stash" "magit-stash.el" (22499 37036
+;;;### (autoloads nil "magit-stash" "magit-stash.el" (22505 21412
-;;;;;;  545000 0))
+;;;;;;  169827 459000))
 ;;; Generated autoloads from magit-stash.el
  (autoload 'magit-stash-popup "magit-stash" nil t)
 
@@ -1527,8 +1529,8 @@ Show all diffs of a stash in a buffer.
 
 ;;;***
 
-;;;### (autoloads nil "magit-submodule" "magit-submodule.el" (22499
+;;;### (autoloads nil "magit-submodule" "magit-submodule.el" (22505
-;;;;;;  37036 658000 0))
+;;;;;;  21412 229827 452000))
 ;;; Generated autoloads from magit-submodule.el
  (autoload 'magit-submodule-popup "magit-submodule" nil t)
 
@@ -1618,8 +1620,8 @@ Display a list of the current repository's submodules.
 
 ;;;***
 
-;;;### (autoloads nil "magit-subtree" "magit-subtree.el" (22499 37036
+;;;### (autoloads nil "magit-subtree" "magit-subtree.el" (22505 21412
-;;;;;;  515000 0))
+;;;;;;  145827 462000))
 ;;; Generated autoloads from magit-subtree.el
  (autoload 'magit-subtree-popup "magit-subtree" nil t)
 
@@ -1655,13 +1657,14 @@ Extract the history of the subtree PREFIX.
 
 ;;;***
 
-;;;### (autoloads nil "magit-wip" "magit-wip.el" (22499 37036 487000
+;;;### (autoloads nil "magit-wip" "magit-wip.el" (22505 21412 129827
-;;;;;;  0))
+;;;;;;  464000))
 ;;; Generated autoloads from magit-wip.el
 
 (defvar magit-wip-after-save-mode nil "\
 Non-nil if Magit-Wip-After-Save mode is enabled.
-See the command `magit-wip-after-save-mode' for a description of this minor mode.
+See the `magit-wip-after-save-mode' command
+for a description of this minor mode.
 Setting this variable directly does not take effect;
 either customize it (see the info node `Easy Customization')
 or call the function `magit-wip-after-save-mode'.")
@@ -1682,7 +1685,8 @@ See `magit-wip-after-save-local-mode' for more information on Magit-Wip-After-Sa
 
 (defvar magit-wip-after-apply-mode nil "\
 Non-nil if Magit-Wip-After-Apply mode is enabled.
-See the command `magit-wip-after-apply-mode' for a description of this minor mode.")
+See the `magit-wip-after-apply-mode' command
+for a description of this minor mode.")
 
 (custom-autoload 'magit-wip-after-apply-mode "magit-wip" nil)
 
@@ -1700,7 +1704,8 @@ in the index.
 
 (defvar magit-wip-before-change-mode nil "\
 Non-nil if Magit-Wip-Before-Change mode is enabled.
-See the command `magit-wip-before-change-mode' for a description of this minor mode.")
+See the `magit-wip-before-change-mode' command
+for a description of this minor mode.")
 
 (custom-autoload 'magit-wip-before-change-mode "magit-wip" nil)
 
@@ -1723,7 +1728,7 @@ command which is about to be called are committed.
 
 ;;;### (autoloads nil nil ("magit-core.el" "magit-git.el" "magit-mode.el"
 ;;;;;;  "magit-pkg.el" "magit-process.el" "magit-section.el" "magit-utils.el")
-;;;;;;  (22499 37036 664798 723000))
+;;;;;;  (22505 21412 221827 453000))
 
 ;;;***
 

elpa/magit-20160926.517/magit-commit.el

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

elpa/magit-20160926.517/magit-diff.el

@@ -2076,7 +2076,15 @@ are highlighted."
       (recurse magit-root-section))))
 
 
-;;; Highlight Region
+;;; Hunk Region
+
+(defun magit-diff-hunk-region-beginning ()
+  (save-excursion (goto-char (region-beginning))
+                  (line-beginning-position)))
+
+(defun magit-diff-hunk-region-end ()
+  (save-excursion (goto-char (region-end))
+                  (line-end-position)))
 
 (defvar magit-diff-unmarked-lines-keep-foreground t)
 
@@ -2092,10 +2100,8 @@ are highlighted."
                        (eq (region-end) (region-beginning)))))
     (let ((sbeg (magit-section-start section))
           (cbeg (magit-section-content section))
-          (rbeg (save-excursion (goto-char (region-beginning))
+          (rbeg (magit-diff-hunk-region-beginning))
-                                (line-beginning-position)))
+          (rend (magit-diff-hunk-region-end))
-          (rend (save-excursion (goto-char (region-end))
-                                (line-end-position)))
           (send (magit-section-end section))
           (face (if magit-diff-highlight-hunk-body
                     'magit-diff-context-highlight
@@ -2138,9 +2144,7 @@ are highlighted."
 (defun magit-diff-hunk-region-patch (section &optional args)
   (let ((op (if (member "--reverse" args) "+" "-"))
         (sbeg (magit-section-start section))
-        (rbeg (save-excursion
+        (rbeg (magit-diff-hunk-region-beginning))
-                (goto-char (region-beginning))
-                (line-beginning-position)))
         (rend (region-end))
         (send (magit-section-end section))
         (patch nil))

elpa/magit-20160926.517/magit-pkg.el

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