Update dependencies

This commit is contained in:
Gergely Polonkai 2016-09-26 19:08:35 +02:00
parent accb70984c
commit c64a3e5f63
256 changed files with 496 additions and 300 deletions

View File

@ -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
;;;;;; 244200 101000))
;;;### (autoloads nil "cider-apropos" "cider-apropos.el" (22505 21427
;;;;;; 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
;;;;;; 1819 228200 15000))
;;;### (autoloads nil "cider-browse-ns" "cider-browse-ns.el" (22505
;;;;;; 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
;;;;;; 1819 360200 722000))
;;;### (autoloads nil "cider-classpath" "cider-classpath.el" (22505
;;;;;; 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
;;;;;; 236200 58000))
;;;### (autoloads nil "cider-debug" "cider-debug.el" (22505 21427
;;;;;; 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
;;;;;; 1819 296200 380000))
;;;### (autoloads nil "cider-grimoire" "cider-grimoire.el" (22505
;;;;;; 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
;;;;;; 1819 288200 336000))
;;;### (autoloads nil "cider-inspector" "cider-inspector.el" (22505
;;;;;; 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
;;;;;; 186000))
;;;### (autoloads nil "cider-mode" "cider-mode.el" (22505 21427 441825
;;;;;; 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
;;;;;; 272200 251000))
;;;### (autoloads nil "cider-scratch" "cider-scratch.el" (22505 21427
;;;;;; 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
;;;;;; 1819 352200 679000))
;;;### (autoloads nil "cider-selector" "cider-selector.el" (22505
;;;;;; 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
;;;;;; 572000))
;;;### (autoloads nil "cider-test" "cider-test.el" (22505 21427 505825
;;;;;; 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
;;;;;; 615000))
;;;### (autoloads nil "cider-util" "cider-util.el" (22505 21427 521825
;;;;;; 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))
;;;***

View File

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

View File

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

View File

@ -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 "\C-m" #'cider-inspector-operate-on-point)
(define-key map (kbd "RET") #'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)

View File

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

View File

@ -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
;;;;;; 0))
;;;### (autoloads nil "flycheck" "flycheck.el" (22505 21423 841826
;;;;;; 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.
See the command `global-flycheck-mode' for a description of this minor mode.
Non-nil if Global Flycheck mode is enabled.
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))
;;;***

View File

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

View File

@ -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)
("Col" 3 nil :right-align t)
("Level" 8 flycheck-error-list-entry-level-<)
("ID" 6 t)
("Message (Checker)" 0 t)]
`[("Line" 5 flycheck-error-list-entry-< :right-align t)
("Col" 3 nil :right-align t)
("Level" 8 flycheck-error-list-entry-level-<)
("ID" 6 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) "")
'flycheck-error-list-id)
id-str 'flycheck-error-list-id id-str)
(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)

View File

@ -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
;;;;;; 911000 0))
;;;### (autoloads nil "helm-adaptive" "helm-adaptive.el" (22505 21420
;;;;;; 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
;;;;;; 0))
;;;### (autoloads nil "helm-apt" "helm-apt.el" (22505 21420 917826
;;;;;; 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
;;;;;; 959000 0))
;;;### (autoloads nil "helm-bookmark" "helm-bookmark.el" (22505 21420
;;;;;; 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
;;;;;; 853000 0))
;;;### (autoloads nil "helm-buffers" "helm-buffers.el" (22505 21420
;;;;;; 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
;;;;;; 0))
;;;### (autoloads nil "helm-color" "helm-color.el" (22505 21420 977826
;;;;;; 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
;;;;;; 797000 0))
;;;### (autoloads nil "helm-command" "helm-command.el" (22505 21420
;;;;;; 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
;;;;;; 955000 0))
;;;### (autoloads nil "helm-config" "helm-config.el" (22505 21420
;;;;;; 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
;;;;;; 879000 0))
;;;### (autoloads nil "helm-dabbrev" "helm-dabbrev.el" (22505 21420
;;;;;; 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
;;;;;; 0))
;;;### (autoloads nil "helm-elisp" "helm-elisp.el" (22505 21420 981826
;;;;;; 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
;;;;;; 785000 0))
;;;### (autoloads nil "helm-elscreen" "helm-elscreen.el" (22505 21420
;;;;;; 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
;;;;;; 822000 0))
;;;### (autoloads nil "helm-eshell" "helm-eshell.el" (22505 21420
;;;;;; 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
;;;;;; 0))
;;;### (autoloads nil "helm-eval" "helm-eval.el" (22505 21420 957826
;;;;;; 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
;;;;;; 773000 0))
;;;### (autoloads nil "helm-external" "helm-external.el" (22505 21420
;;;;;; 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
;;;;;; 0))
;;;### (autoloads nil "helm-files" "helm-files.el" (22505 21420 929826
;;;;;; 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
;;;;;; 0))
;;;### (autoloads nil "helm-font" "helm-font.el" (22505 21420 889826
;;;;;; 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
;;;;;; 0))
;;;### (autoloads nil "helm-grep" "helm-grep.el" (22505 21420 997826
;;;;;; 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
;;;;;; 0))
;;;### (autoloads nil "helm-help" "helm-help.el" (22505 21420 837826
;;;;;; 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
;;;;;; 861000 0))
;;;### (autoloads nil "helm-id-utils" "helm-id-utils.el" (22505 21420
;;;;;; 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
;;;;;; 0))
;;;### (autoloads nil "helm-imenu" "helm-imenu.el" (22505 21420 897826
;;;;;; 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
;;;;;; 0))
;;;### (autoloads nil "helm-info" "helm-info.el" (22505 21420 893826
;;;;;; 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
;;;;;; 777000 0))
;;;### (autoloads nil "helm-locate" "helm-locate.el" (22505 21420
;;;;;; 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
;;;;;; 0))
;;;### (autoloads nil "helm-man" "helm-man.el" (22505 21420 961826
;;;;;; 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
;;;;;; 0))
;;;### (autoloads nil "helm-misc" "helm-misc.el" (22505 21420 945826
;;;;;; 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
;;;;;; 0))
;;;### (autoloads nil "helm-mode" "helm-mode.el" (22505 21420 829826
;;;;;; 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
;;;;;; 0))
;;;### (autoloads nil "helm-net" "helm-net.el" (22505 21420 973826
;;;;;; 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
;;;;;; 0))
;;;### (autoloads nil "helm-org" "helm-org.el" (22505 21421 1826
;;;;;; 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
;;;;;; 935000 0))
;;;### (autoloads nil "helm-regexp" "helm-regexp.el" (22505 21420
;;;;;; 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
;;;;;; 0))
;;;### (autoloads nil "helm-ring" "helm-ring.el" (22505 21420 833826
;;;;;; 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
;;;;;; 847000 0))
;;;### (autoloads nil "helm-semantic" "helm-semantic.el" (22505 21420
;;;;;; 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
;;;;;; 0))
;;;### (autoloads nil "helm-sys" "helm-sys.el" (22505 21420 921826
;;;;;; 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
;;;;;; 0))
;;;### (autoloads nil "helm-tags" "helm-tags.el" (22505 21420 881826
;;;;;; 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
;;;;;; 0))
;;;### (autoloads nil "helm-utils" "helm-utils.el" (22505 21420 861826
;;;;;; 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))
;;;***

View File

@ -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
(when cc (addressbook-set-mail-buffer-1 (car it) nil cc))
(cl-loop for bmk in (cdr it) do
(addressbook-set-mail-buffer-1
(helm-bookmark-get-bookmark-from-name bmk) 'append cc))))))
(cl-loop for bmk in it do
(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."

View File

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

View File

@ -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))
:fuzzy-match t
:data #'helm-locate-library-scan-list
: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))

View File

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

View File

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

View File

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

View File

@ -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 ()
(cl-loop for buf in (buffer-list)
when (buffer-file-name buf)
collect it))
(defsubst helm-ag--search-buffer-p (bufname)
(cl-loop for regexp in helm-ag-ignore-buffer-patterns
never (string-match-p regexp bufname)))
(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))

View File

@ -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
;;;;;; 24930 491422 560000))
;;;### (autoloads nil "js2-imenu-extras" "js2-imenu-extras.el" (22505
;;;;;; 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
;;;;;; 501000))
;;;### (autoloads nil "js2-mode" "js2-mode.el" (22505 21387 337830
;;;;;; 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))
;;;***

View File

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

View File

@ -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")
(mouse-set-point event)
(setq deactivate-mark t)
(interactive "e\np")
(mouse-set-point event promote-to-region)
(when js2-mode-show-overlay
(let ((node (js2-node-at-point))
beg end)

View File

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

View File

@ -105,9 +105,7 @@
:group 'faces
:group 'git-rebase)
(defface git-rebase-hash
'((((class color) (background light)) :foreground "grey60")
(((class color) (background dark)) :foreground "grey40"))
(defface git-rebase-hash '((t (:inherit magit-hash)))
"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")
(next-line . "move point to next line")
(git-rebase-backward-line . "move point to previous 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))
"Font lock keywords for Git-Rebase mode.")
(git-rebase-match-killed-action 0 'git-rebase-killed-action t)
(,(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

View File

@ -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
;;;;;; 0))
;;;### (autoloads nil "git-rebase" "git-rebase.el" (22505 21412 141827
;;;;;; 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.
See the command `global-magit-file-mode' for a description of this minor mode.
Non-nil if Global Magit-File mode is enabled.
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
;;;;;; 532000 0))
;;;### (autoloads nil "magit-apply" "magit-apply.el" (22505 21412
;;;;;; 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
;;;;;; 37036 461000 0))
;;;### (autoloads nil "magit-autorevert" "magit-autorevert.el" (22505
;;;;;; 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
;;;;;; 524000 0))
;;;### (autoloads nil "magit-bisect" "magit-bisect.el" (22505 21412
;;;;;; 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
;;;;;; 570000 0))
;;;### (autoloads nil "magit-blame" "magit-blame.el" (22505 21412
;;;;;; 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
;;;;;; 465000 0))
;;;### (autoloads nil "magit-commit" "magit-commit.el" (22505 21412
;;;;;; 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
;;;;;; 0))
;;;### (autoloads nil "magit-diff" "magit-diff.el" (22505 21412 185827
;;;;;; 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
;;;;;; 552000 0))
;;;### (autoloads nil "magit-ediff" "magit-ediff.el" (22505 21412
;;;;;; 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
;;;;;; 476000 0))
;;;### (autoloads nil "magit-extras" "magit-extras.el" (22505 21412
;;;;;; 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
;;;;;; 0))
;;;### (autoloads nil "magit-log" "magit-log.el" (22505 21412 181827
;;;;;; 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
;;;;;; 641000 0))
;;;### (autoloads nil "magit-remote" "magit-remote.el" (22505 21412
;;;;;; 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
;;;;;; 37036 628000 0))
;;;### (autoloads nil "magit-sequence" "magit-sequence.el" (22505
;;;;;; 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
;;;;;; 545000 0))
;;;### (autoloads nil "magit-stash" "magit-stash.el" (22505 21412
;;;;;; 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
;;;;;; 37036 658000 0))
;;;### (autoloads nil "magit-submodule" "magit-submodule.el" (22505
;;;;;; 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
;;;;;; 515000 0))
;;;### (autoloads nil "magit-subtree" "magit-subtree.el" (22505 21412
;;;;;; 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
;;;;;; 0))
;;;### (autoloads nil "magit-wip" "magit-wip.el" (22505 21412 129827
;;;;;; 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))
;;;***

View File

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

View File

@ -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))
(line-beginning-position)))
(rend (save-excursion (goto-char (region-end))
(line-end-position)))
(rbeg (magit-diff-hunk-region-beginning))
(rend (magit-diff-hunk-region-end))
(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
(goto-char (region-beginning))
(line-beginning-position)))
(rbeg (magit-diff-hunk-region-beginning))
(rend (region-end))
(send (magit-section-end section))
(patch nil))

View File

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

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