Update packages

This commit is contained in:
Gergely Polonkai 2016-10-22 16:25:44 +02:00
parent 42b437055b
commit 0d078ffb05
1156 changed files with 238 additions and 219 deletions

View File

@ -3,7 +3,7 @@
;;; Code: ;;; Code:
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path)))) (add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
;;;### (autoloads nil "ag" "ag.el" (22454 5337 972625 179000)) ;;;### (autoloads nil "ag" "ag.el" (22539 28068 810569 198000))
;;; Generated autoloads from ag.el ;;; Generated autoloads from ag.el
(autoload 'ag "ag" "\ (autoload 'ag "ag" "\

View File

@ -1,2 +1,2 @@
;;; -*- no-byte-compile: t -*- ;;; -*- no-byte-compile: t -*-
(define-package "ag" "20160731.1323" "A front-end for ag ('the silver searcher'), the C ack replacement." '((dash "2.8.0") (s "1.9.0") (cl-lib "0.5"))) (define-package "ag" "20161021.2133" "A front-end for ag ('the silver searcher'), the C ack replacement." '((dash "2.8.0") (s "1.9.0") (cl-lib "0.5")))

View File

@ -5,7 +5,7 @@
;; Author: Wilfred Hughes <me@wilfred.me.uk> ;; Author: Wilfred Hughes <me@wilfred.me.uk>
;; Created: 11 January 2013 ;; Created: 11 January 2013
;; Version: 0.48 ;; Version: 0.48
;; Package-Version: 20160731.1323 ;; Package-Version: 20161021.2133
;; Package-Requires: ((dash "2.8.0") (s "1.9.0") (cl-lib "0.5")) ;; Package-Requires: ((dash "2.8.0") (s "1.9.0") (cl-lib "0.5"))
;;; Commentary: ;;; Commentary:
@ -195,9 +195,9 @@ different window, according to `ag-reuse-window'."
(defun ag/buffer-name (search-string directory regexp) (defun ag/buffer-name (search-string directory regexp)
"Return a buffer name formatted according to ag.el conventions." "Return a buffer name formatted according to ag.el conventions."
(cond (cond
(ag-reuse-buffers "*ag search*") (ag-reuse-buffers "*ag search")
(regexp (format "*ag search regexp:%s dir:%s*" search-string directory)) (regexp (format "*ag search regexp:%s dir:%s" search-string directory))
(:else (format "*ag search text:%s dir:%s*" search-string directory)))) (:else (format "*ag search text:%s dir:%s" search-string directory))))
(defun ag/format-ignore (ignores) (defun ag/format-ignore (ignores)
"Prepend '--ignore' to every item in IGNORES." "Prepend '--ignore' to every item in IGNORES."

View File

@ -3,8 +3,8 @@
;;; Code: ;;; Code:
(add-to-list 'load-path (directory-file-name (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" (22535 7931 202223 ;;;### (autoloads nil "flycheck" "flycheck.el" (22541 41885 978061
;;;;;; 337000)) ;;;;;; 448000))
;;; Generated autoloads from flycheck.el ;;; Generated autoloads from flycheck.el
(autoload 'flycheck-manual "flycheck" "\ (autoload 'flycheck-manual "flycheck" "\
@ -228,7 +228,7 @@ Use this together with the `option', `option-list' and
;;;*** ;;;***
;;;### (autoloads nil nil ("flycheck-buttercup.el" "flycheck-ert.el" ;;;### (autoloads nil nil ("flycheck-buttercup.el" "flycheck-ert.el"
;;;;;; "flycheck-pkg.el") (22535 7931 198223 338000)) ;;;;;; "flycheck-pkg.el") (22541 41885 968061 448000))
;;;*** ;;;***

View File

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

View File

@ -979,9 +979,11 @@ Only has effect when variable `global-flycheck-mode' is non-nil."
"Syntax Checking" "Syntax Checking"
'(["Enable on-the-fly syntax checking" flycheck-mode '(["Enable on-the-fly syntax checking" flycheck-mode
:style toggle :selected flycheck-mode :style toggle :selected flycheck-mode
;; Don't let users toggle the mode if there is no syntax checker for this :enable (or flycheck-mode
;; buffer ;; Don't let users toggle the mode if there is no syntax
:enable (or flycheck-mode (flycheck-get-checker-for-buffer))] ;; checker for this buffer
(seq-find #'flycheck-checker-supports-major-mode-p
flycheck-checkers))]
["Check current buffer" flycheck-buffer flycheck-mode] ["Check current buffer" flycheck-buffer flycheck-mode]
["Clear errors in buffer" flycheck-clear t] ["Clear errors in buffer" flycheck-clear t]
"---" "---"
@ -1446,23 +1448,6 @@ A checker is disabled if it is contained in
`flycheck-disabled-checkers'." `flycheck-disabled-checkers'."
(memq checker flycheck-disabled-checkers)) (memq checker flycheck-disabled-checkers))
(defun flycheck-possibly-suitable-checkers ()
"Find possibly suitable checkers for the current buffer.
Return a list of all syntax checkers which could possibly be
suitable for the current buffer, if any problems in their setup
were fixed.
Currently this function collects all registered syntax checkers
whose `:modes' contain the current major mode or which do not
have any `:modes', but a `:predicate' that returns non-nil for
the current buffer."
(let (checkers)
(dolist (checker flycheck-checkers)
(when (flycheck-checker-supports-major-mode-p checker major-mode)
(push checker checkers)))
(nreverse checkers)))
;;; Generic syntax checkers ;;; Generic syntax checkers
(defconst flycheck-generic-checker-version 2 (defconst flycheck-generic-checker-version 2
@ -2161,7 +2146,9 @@ possible problems are shown."
(save-buffer)) (save-buffer))
(let ((buffer (current-buffer)) (let ((buffer (current-buffer))
(checkers (flycheck-possibly-suitable-checkers))) ;; Get all checkers that support the current major mode
(checkers (seq-filter #'flycheck-checker-supports-major-mode-p
flycheck-checkers)))
;; Now print all applicable checkers ;; Now print all applicable checkers
(with-help-window (get-buffer-create " *Flycheck checkers*") (with-help-window (get-buffer-create " *Flycheck checkers*")
@ -2607,7 +2594,7 @@ discarded."
(error "Unknown status %s from syntax checker %s" (error "Unknown status %s from syntax checker %s"
status checker)))))))) status checker))))))))
(defun flycheck-finish-current-syntax-check (errors cwd) (defun flycheck-finish-current-syntax-check (errors working-dir)
"Finish the current syntax-check in the current buffer with ERRORS. "Finish the current syntax-check in the current buffer with ERRORS.
ERRORS is a list of `flycheck-error' objects reported by the ERRORS is a list of `flycheck-error' objects reported by the
@ -2615,18 +2602,19 @@ current syntax check in `flycheck-current-syntax-check'.
Report all ERRORS and potentially start any next syntax checkers. Report all ERRORS and potentially start any next syntax checkers.
If the current syntax checker reported excessive errors, it is disabled If the current syntax checker reported excessive errors, it is
via `flycheck-disable-excessive-checker' for subsequent syntax disabled via `flycheck-disable-excessive-checker' for subsequent
checks. syntax checks.
Relative file names in ERRORS will be expanded relative to CWD directory." Relative file names in ERRORS will be expanded relative to
WORKING-DIR."
(let* ((syntax-check flycheck-current-syntax-check) (let* ((syntax-check flycheck-current-syntax-check)
(checker (flycheck-syntax-check-checker syntax-check)) (checker (flycheck-syntax-check-checker syntax-check))
(errors (flycheck-relevant-errors (errors (flycheck-relevant-errors
(flycheck-fill-and-expand-error-file-names (flycheck-fill-and-expand-error-file-names
(flycheck-filter-errors (flycheck-filter-errors
(flycheck-assert-error-list-p errors) checker) (flycheck-assert-error-list-p errors) checker)
cwd)))) working-dir))))
(unless (flycheck-disable-excessive-checker checker errors) (unless (flycheck-disable-excessive-checker checker errors)
(flycheck-report-current-errors errors)) (flycheck-report-current-errors errors))
(let ((next-checker (flycheck-get-next-checker-for-buffer checker))) (let ((next-checker (flycheck-get-next-checker-for-buffer checker)))
@ -3117,18 +3105,18 @@ with `flycheck-process-error-functions'."
(setq flycheck-current-errors nil) (setq flycheck-current-errors nil)
(flycheck-report-status 'not-checked)) (flycheck-report-status 'not-checked))
(defun flycheck-fill-and-expand-error-file-names (errors cwd) (defun flycheck-fill-and-expand-error-file-names (errors directory)
"Fill and expand file names in ERRORS. "Fill and expand file names in ERRORS relative to DIRECTORY.
Expand all file names of ERRORS against the CWD directory. Expand all file names of ERRORS against DIRECTORY. If the file
If the file name of an error is nil fill in the result of name of an error is nil fill in the result of function
function `buffer-file-name' in the current buffer. `buffer-file-name' in the current buffer.
Return ERRORS, modified in-place." Return ERRORS, modified in-place."
(seq-do (lambda (err) (seq-do (lambda (err)
(setf (flycheck-error-filename err) (setf (flycheck-error-filename err)
(-if-let (filename (flycheck-error-filename err)) (-if-let (filename (flycheck-error-filename err))
(expand-file-name filename cwd) (expand-file-name filename directory)
(buffer-file-name)))) (buffer-file-name))))
errors) errors)
errors) errors)

View File

@ -1,2 +0,0 @@
;;; -*- no-byte-compile: t -*-
(define-package "ggtags" "20161001.1836" "emacs frontend to GNU Global source code tagging system" '((emacs "24") (cl-lib "0.5")) :url "https://github.com/leoliu/ggtags" :keywords '("tools" "convenience"))

View File

@ -3,7 +3,7 @@
;;; Code: ;;; Code:
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path)))) (add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
;;;### (autoloads nil "ggtags" "ggtags.el" (22514 17682 180745 86000)) ;;;### (autoloads nil "ggtags" "ggtags.el" (22539 28064 510569 202000))
;;; Generated autoloads from ggtags.el ;;; Generated autoloads from ggtags.el
(autoload 'ggtags-find-project "ggtags" "\ (autoload 'ggtags-find-project "ggtags" "\

View File

@ -0,0 +1,2 @@
;;; -*- no-byte-compile: t -*-
(define-package "ggtags" "20161022.251" "emacs frontend to GNU Global source code tagging system" '((emacs "24") (cl-lib "0.5")) :url "https://github.com/leoliu/ggtags" :keywords '("tools" "convenience"))

View File

@ -3,8 +3,8 @@
;; Copyright (C) 2013-2016 Free Software Foundation, Inc. ;; Copyright (C) 2013-2016 Free Software Foundation, Inc.
;; Author: Leo Liu <sdl.web@gmail.com> ;; Author: Leo Liu <sdl.web@gmail.com>
;; Version: 0.8.12 ;; Version: 0.8.13
;; Package-Version: 20161001.1836 ;; Package-Version: 20161022.251
;; Keywords: tools, convenience ;; Keywords: tools, convenience
;; Created: 2013-01-29 ;; Created: 2013-01-29
;; URL: https://github.com/leoliu/ggtags ;; URL: https://github.com/leoliu/ggtags
@ -554,7 +554,7 @@ Value is new modtime if updated."
project) project)
(setq ggtags-last-default-directory default-directory) (setq ggtags-last-default-directory default-directory)
(setq ggtags-project-root (setq ggtags-project-root
(or (ignore-errors-unless-debug (or (ignore-errors
(file-name-as-directory (file-name-as-directory
(concat (file-remote-p default-directory) (concat (file-remote-p default-directory)
;; Resolves symbolic links ;; Resolves symbolic links

View File

@ -3,8 +3,8 @@
;;; Code: ;;; Code:
(add-to-list 'load-path (directory-file-name (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" (22536 47020 ;;;### (autoloads nil "helm-adaptive" "helm-adaptive.el" (22541 41895
;;;;;; 422666 353000)) ;;;;;; 808061 444000))
;;; Generated autoloads from helm-adaptive.el ;;; Generated autoloads from helm-adaptive.el
(defvar helm-adaptive-mode nil "\ (defvar helm-adaptive-mode nil "\
@ -30,8 +30,8 @@ Useful when you have a old or corrupted `helm-adaptive-history-file'.
;;;*** ;;;***
;;;### (autoloads nil "helm-apt" "helm-apt.el" (22536 47020 390666 ;;;### (autoloads nil "helm-apt" "helm-apt.el" (22541 41895 748061
;;;;;; 378000)) ;;;;;; 444000))
;;; Generated autoloads from helm-apt.el ;;; Generated autoloads from helm-apt.el
(autoload 'helm-apt "helm-apt" "\ (autoload 'helm-apt "helm-apt" "\
@ -42,8 +42,8 @@ With a prefix arg reload cache.
;;;*** ;;;***
;;;### (autoloads nil "helm-bookmark" "helm-bookmark.el" (22536 47020 ;;;### (autoloads nil "helm-bookmark" "helm-bookmark.el" (22541 41895
;;;;;; 474666 314000)) ;;;;;; 888061 444000))
;;; Generated autoloads from helm-bookmark.el ;;; Generated autoloads from helm-bookmark.el
(autoload 'helm-bookmarks "helm-bookmark" "\ (autoload 'helm-bookmarks "helm-bookmark" "\
@ -60,8 +60,8 @@ only if external library addressbook-bookmark.el is available.
;;;*** ;;;***
;;;### (autoloads nil "helm-buffers" "helm-buffers.el" (22536 47020 ;;;### (autoloads nil "helm-buffers" "helm-buffers.el" (22541 41895
;;;;;; 378666 386000)) ;;;;;; 728061 444000))
;;; Generated autoloads from helm-buffers.el ;;; Generated autoloads from helm-buffers.el
(autoload 'helm-buffers-list "helm-buffers" "\ (autoload 'helm-buffers-list "helm-buffers" "\
@ -76,8 +76,8 @@ Preconfigured `helm' lightweight version (buffer -> recentf).
;;;*** ;;;***
;;;### (autoloads nil "helm-color" "helm-color.el" (22536 47020 462666 ;;;### (autoloads nil "helm-color" "helm-color.el" (22541 41895 868061
;;;;;; 323000)) ;;;;;; 444000))
;;; Generated autoloads from helm-color.el ;;; Generated autoloads from helm-color.el
(autoload 'helm-colors "helm-color" "\ (autoload 'helm-colors "helm-color" "\
@ -87,8 +87,8 @@ Preconfigured `helm' for color.
;;;*** ;;;***
;;;### (autoloads nil "helm-command" "helm-command.el" (22536 47020 ;;;### (autoloads nil "helm-command" "helm-command.el" (22541 41895
;;;;;; 326666 426000)) ;;;;;; 638061 444000))
;;; Generated autoloads from helm-command.el ;;; Generated autoloads from helm-command.el
(autoload 'helm-M-x "helm-command" "\ (autoload 'helm-M-x "helm-command" "\
@ -106,8 +106,8 @@ You can get help on each command by persistent action.
;;;*** ;;;***
;;;### (autoloads nil "helm-config" "helm-config.el" (22536 47020 ;;;### (autoloads nil "helm-config" "helm-config.el" (22541 41895
;;;;;; 470666 317000)) ;;;;;; 878061 444000))
;;; Generated autoloads from helm-config.el ;;; Generated autoloads from helm-config.el
(autoload 'helm-configuration "helm-config" "\ (autoload 'helm-configuration "helm-config" "\
@ -117,8 +117,8 @@ Customize `helm'.
;;;*** ;;;***
;;;### (autoloads nil "helm-dabbrev" "helm-dabbrev.el" (22536 47020 ;;;### (autoloads nil "helm-dabbrev" "helm-dabbrev.el" (22541 41895
;;;;;; 398666 371000)) ;;;;;; 758061 444000))
;;; Generated autoloads from helm-dabbrev.el ;;; Generated autoloads from helm-dabbrev.el
(autoload 'helm-dabbrev "helm-dabbrev" "\ (autoload 'helm-dabbrev "helm-dabbrev" "\
@ -128,8 +128,8 @@ Preconfigured helm for dynamic abbreviations.
;;;*** ;;;***
;;;### (autoloads nil "helm-elisp" "helm-elisp.el" (22536 47020 466666 ;;;### (autoloads nil "helm-elisp" "helm-elisp.el" (22541 41895 868061
;;;;;; 320000)) ;;;;;; 444000))
;;; Generated autoloads from helm-elisp.el ;;; Generated autoloads from helm-elisp.el
(autoload 'helm-lisp-completion-at-point "helm-elisp" "\ (autoload 'helm-lisp-completion-at-point "helm-elisp" "\
@ -183,7 +183,7 @@ Preconfigured helm for complex command history.
;;;*** ;;;***
;;;### (autoloads nil "helm-elisp-package" "helm-elisp-package.el" ;;;### (autoloads nil "helm-elisp-package" "helm-elisp-package.el"
;;;;;; (22536 47020 330666 423000)) ;;;;;; (22541 41895 638061 444000))
;;; Generated autoloads from helm-elisp-package.el ;;; Generated autoloads from helm-elisp-package.el
(autoload 'helm-list-elisp-packages "helm-elisp-package" "\ (autoload 'helm-list-elisp-packages "helm-elisp-package" "\
@ -199,8 +199,8 @@ Same as `helm-list-elisp-packages' but don't fetch packages on remote.
;;;*** ;;;***
;;;### (autoloads nil "helm-elscreen" "helm-elscreen.el" (22536 47020 ;;;### (autoloads nil "helm-elscreen" "helm-elscreen.el" (22541 41895
;;;;;; 314666 434000)) ;;;;;; 608061 444000))
;;; Generated autoloads from helm-elscreen.el ;;; Generated autoloads from helm-elscreen.el
(autoload 'helm-elscreen "helm-elscreen" "\ (autoload 'helm-elscreen "helm-elscreen" "\
@ -215,8 +215,8 @@ Preconfigured helm to list elscreen in history order.
;;;*** ;;;***
;;;### (autoloads nil "helm-eshell" "helm-eshell.el" (22536 47020 ;;;### (autoloads nil "helm-eshell" "helm-eshell.el" (22541 41895
;;;;;; 350666 407000)) ;;;;;; 668061 444000))
;;; Generated autoloads from helm-eshell.el ;;; Generated autoloads from helm-eshell.el
(autoload 'helm-esh-pcomplete "helm-eshell" "\ (autoload 'helm-esh-pcomplete "helm-eshell" "\
@ -231,8 +231,8 @@ Preconfigured helm for eshell history.
;;;*** ;;;***
;;;### (autoloads nil "helm-eval" "helm-eval.el" (22536 47020 426666 ;;;### (autoloads nil "helm-eval" "helm-eval.el" (22541 41895 828061
;;;;;; 350000)) ;;;;;; 444000))
;;; Generated autoloads from helm-eval.el ;;; Generated autoloads from helm-eval.el
(autoload 'helm-eval-expression "helm-eval" "\ (autoload 'helm-eval-expression "helm-eval" "\
@ -252,8 +252,8 @@ Preconfigured helm for `helm-source-calculation-result'.
;;;*** ;;;***
;;;### (autoloads nil "helm-external" "helm-external.el" (22536 47020 ;;;### (autoloads nil "helm-external" "helm-external.el" (22541 41895
;;;;;; 302666 444000)) ;;;;;; 598061 444000))
;;; Generated autoloads from helm-external.el ;;; Generated autoloads from helm-external.el
(autoload 'helm-run-external-command "helm-external" "\ (autoload 'helm-run-external-command "helm-external" "\
@ -266,8 +266,8 @@ You can set your own list of commands with
;;;*** ;;;***
;;;### (autoloads nil "helm-files" "helm-files.el" (22536 47020 402666 ;;;### (autoloads nil "helm-files" "helm-files.el" (22541 41895 768061
;;;;;; 368000)) ;;;;;; 444000))
;;; Generated autoloads from helm-files.el ;;; Generated autoloads from helm-files.el
(autoload 'helm-projects-history "helm-files" "\ (autoload 'helm-projects-history "helm-files" "\
@ -355,8 +355,8 @@ It allows additionally to delete more than one connection at once.
;;;*** ;;;***
;;;### (autoloads nil "helm-font" "helm-font.el" (22536 47020 354666 ;;;### (autoloads nil "helm-font" "helm-font.el" (22541 41895 678061
;;;;;; 404000)) ;;;;;; 444000))
;;; Generated autoloads from helm-font.el ;;; Generated autoloads from helm-font.el
(autoload 'helm-select-xfont "helm-font" "\ (autoload 'helm-select-xfont "helm-font" "\
@ -371,8 +371,8 @@ Preconfigured helm for `ucs-names' math symbols.
;;;*** ;;;***
;;;### (autoloads nil "helm-grep" "helm-grep.el" (22536 47020 478666 ;;;### (autoloads nil "helm-grep" "helm-grep.el" (22541 41895 898061
;;;;;; 311000)) ;;;;;; 444000))
;;; Generated autoloads from helm-grep.el ;;; Generated autoloads from helm-grep.el
(autoload 'helm-goto-precedent-file "helm-grep" "\ (autoload 'helm-goto-precedent-file "helm-grep" "\
@ -399,8 +399,8 @@ With a prefix arg ARG git-grep the whole repository.
;;;*** ;;;***
;;;### (autoloads nil "helm-help" "helm-help.el" (22536 47020 298666 ;;;### (autoloads nil "helm-help" "helm-help.el" (22541 41895 588061
;;;;;; 447000)) ;;;;;; 444000))
;;; Generated autoloads from helm-help.el ;;; Generated autoloads from helm-help.el
(autoload 'helm-documentation "helm-help" "\ (autoload 'helm-documentation "helm-help" "\
@ -420,8 +420,8 @@ String displayed in mode-line in `helm-source-find-files'.")
;;;*** ;;;***
;;;### (autoloads nil "helm-id-utils" "helm-id-utils.el" (22536 47020 ;;;### (autoloads nil "helm-id-utils" "helm-id-utils.el" (22541 41895
;;;;;; 386666 380000)) ;;;;;; 748061 444000))
;;; Generated autoloads from helm-id-utils.el ;;; Generated autoloads from helm-id-utils.el
(autoload 'helm-gid "helm-id-utils" "\ (autoload 'helm-gid "helm-id-utils" "\
@ -435,8 +435,8 @@ See <https://www.gnu.org/software/idutils/>.
;;;*** ;;;***
;;;### (autoloads nil "helm-imenu" "helm-imenu.el" (22536 47020 366666 ;;;### (autoloads nil "helm-imenu" "helm-imenu.el" (22541 41895 708061
;;;;;; 395000)) ;;;;;; 444000))
;;; Generated autoloads from helm-imenu.el ;;; Generated autoloads from helm-imenu.el
(autoload 'helm-imenu "helm-imenu" "\ (autoload 'helm-imenu "helm-imenu" "\
@ -453,8 +453,8 @@ or it have an association in `helm-imenu-all-buffer-assoc'.
;;;*** ;;;***
;;;### (autoloads nil "helm-info" "helm-info.el" (22536 47020 362666 ;;;### (autoloads nil "helm-info" "helm-info.el" (22541 41895 688061
;;;;;; 398000)) ;;;;;; 444000))
;;; Generated autoloads from helm-info.el ;;; Generated autoloads from helm-info.el
(autoload 'helm-info "helm-info" "\ (autoload 'helm-info "helm-info" "\
@ -470,8 +470,8 @@ With a prefix-arg insert symbol at point.
;;;*** ;;;***
;;;### (autoloads nil "helm-locate" "helm-locate.el" (22536 47020 ;;;### (autoloads nil "helm-locate" "helm-locate.el" (22541 41895
;;;;;; 306666 440000)) ;;;;;; 598061 444000))
;;; Generated autoloads from helm-locate.el ;;; Generated autoloads from helm-locate.el
(autoload 'helm-projects-find-files "helm-locate" "\ (autoload 'helm-projects-find-files "helm-locate" "\
@ -498,8 +498,8 @@ Where db_path is a filename matched by
;;;*** ;;;***
;;;### (autoloads nil "helm-man" "helm-man.el" (22536 47020 430666 ;;;### (autoloads nil "helm-man" "helm-man.el" (22541 41895 838061
;;;;;; 347000)) ;;;;;; 444000))
;;; Generated autoloads from helm-man.el ;;; Generated autoloads from helm-man.el
(autoload 'helm-man-woman "helm-man" "\ (autoload 'helm-man-woman "helm-man" "\
@ -510,8 +510,8 @@ With a prefix arg reinitialize the cache.
;;;*** ;;;***
;;;### (autoloads nil "helm-misc" "helm-misc.el" (22536 47020 414666 ;;;### (autoloads nil "helm-misc" "helm-misc.el" (22541 41895 798061
;;;;;; 359000)) ;;;;;; 444000))
;;; Generated autoloads from helm-misc.el ;;; Generated autoloads from helm-misc.el
(autoload 'helm-browse-menubar "helm-misc" "\ (autoload 'helm-browse-menubar "helm-misc" "\
@ -552,8 +552,8 @@ Preconfigured `helm' that provide completion of `comint' history.
;;;*** ;;;***
;;;### (autoloads nil "helm-mode" "helm-mode.el" (22536 47020 286666 ;;;### (autoloads nil "helm-mode" "helm-mode.el" (22541 41895 558061
;;;;;; 456000)) ;;;;;; 444000))
;;; Generated autoloads from helm-mode.el ;;; Generated autoloads from helm-mode.el
(autoload 'helm-comp-read "helm-mode" "\ (autoload 'helm-comp-read "helm-mode" "\
@ -724,8 +724,8 @@ Note: This mode is incompatible with Emacs23.
;;;*** ;;;***
;;;### (autoloads nil "helm-net" "helm-net.el" (22536 47020 450666 ;;;### (autoloads nil "helm-net" "helm-net.el" (22541 41895 858061
;;;;;; 331000)) ;;;;;; 444000))
;;; Generated autoloads from helm-net.el ;;; Generated autoloads from helm-net.el
(autoload 'helm-surfraw "helm-net" "\ (autoload 'helm-surfraw "helm-net" "\
@ -745,8 +745,8 @@ Preconfigured `helm' for Wikipedia lookup with Wikipedia suggest.
;;;*** ;;;***
;;;### (autoloads nil "helm-org" "helm-org.el" (22536 47020 482666 ;;;### (autoloads nil "helm-org" "helm-org.el" (22541 41895 898061
;;;;;; 308000)) ;;;;;; 444000))
;;; Generated autoloads from helm-org.el ;;; Generated autoloads from helm-org.el
(autoload 'helm-org-agenda-files-headings "helm-org" "\ (autoload 'helm-org-agenda-files-headings "helm-org" "\
@ -777,8 +777,8 @@ Preconfigured helm for org templates.
;;;*** ;;;***
;;;### (autoloads nil "helm-regexp" "helm-regexp.el" (22536 47020 ;;;### (autoloads nil "helm-regexp" "helm-regexp.el" (22541 41895
;;;;;; 442666 338000)) ;;;;;; 848061 444000))
;;; Generated autoloads from helm-regexp.el ;;; Generated autoloads from helm-regexp.el
(autoload 'helm-moccur-mode "helm-regexp" "\ (autoload 'helm-moccur-mode "helm-regexp" "\
@ -817,8 +817,8 @@ The prefix arg can be set before calling
;;;*** ;;;***
;;;### (autoloads nil "helm-ring" "helm-ring.el" (22536 47020 294666 ;;;### (autoloads nil "helm-ring" "helm-ring.el" (22541 41895 578061
;;;;;; 450000)) ;;;;;; 444000))
;;; Generated autoloads from helm-ring.el ;;; Generated autoloads from helm-ring.el
(defvar helm-push-mark-mode nil "\ (defvar helm-push-mark-mode nil "\
@ -876,8 +876,8 @@ This command is useful when used with persistent action.
;;;*** ;;;***
;;;### (autoloads nil "helm-semantic" "helm-semantic.el" (22536 47020 ;;;### (autoloads nil "helm-semantic" "helm-semantic.el" (22541 41895
;;;;;; 370666 392000)) ;;;;;; 718061 444000))
;;; Generated autoloads from helm-semantic.el ;;; Generated autoloads from helm-semantic.el
(autoload 'helm-semantic "helm-semantic" "\ (autoload 'helm-semantic "helm-semantic" "\
@ -899,8 +899,8 @@ Fill in the symbol at point by default.
;;;*** ;;;***
;;;### (autoloads nil "helm-sys" "helm-sys.el" (22536 47020 394666 ;;;### (autoloads nil "helm-sys" "helm-sys.el" (22541 41895 758061
;;;;;; 374000)) ;;;;;; 444000))
;;; Generated autoloads from helm-sys.el ;;; Generated autoloads from helm-sys.el
(defvar helm-top-poll-mode nil "\ (defvar helm-top-poll-mode nil "\
@ -935,8 +935,8 @@ Preconfigured helm for xrandr.
;;;*** ;;;***
;;;### (autoloads nil "helm-tags" "helm-tags.el" (22536 47020 346666 ;;;### (autoloads nil "helm-tags" "helm-tags.el" (22541 41895 658061
;;;;;; 411000)) ;;;;;; 444000))
;;; Generated autoloads from helm-tags.el ;;; Generated autoloads from helm-tags.el
(autoload 'helm-etags-select "helm-tags" "\ (autoload 'helm-etags-select "helm-tags" "\
@ -955,8 +955,8 @@ This function aggregates three sources of tag files:
;;;*** ;;;***
;;;### (autoloads nil "helm-utils" "helm-utils.el" (22536 47020 318666 ;;;### (autoloads nil "helm-utils" "helm-utils.el" (22541 41895 628061
;;;;;; 431000)) ;;;;;; 444000))
;;; Generated autoloads from helm-utils.el ;;; Generated autoloads from helm-utils.el
(defvar helm-popup-tip-mode nil "\ (defvar helm-popup-tip-mode nil "\
@ -977,7 +977,7 @@ Show help-echo informations in a popup tip at end of line.
;;;*** ;;;***
;;;### (autoloads nil nil ("helm-easymenu.el" "helm-pkg.el" "helm-types.el") ;;;### (autoloads nil nil ("helm-easymenu.el" "helm-pkg.el" "helm-types.el")
;;;;;; (22536 47020 486666 305000)) ;;;;;; (22541 41895 908061 444000))
;;;*** ;;;***

View File

@ -928,6 +928,9 @@ These extensions will be added to command line with --include arg of grep."
((candidates-process :initform 'helm-grep-collect-candidates) ((candidates-process :initform 'helm-grep-collect-candidates)
(filter-one-by-one :initform 'helm-grep-filter-one-by-one) (filter-one-by-one :initform 'helm-grep-filter-one-by-one)
(keymap :initform helm-grep-map) (keymap :initform helm-grep-map)
(pcre :initarg :pcre :initform nil
:documentation
" Backend is using pcre regexp engine when non--nil.")
(nohighlight :initform t) (nohighlight :initform t)
(nomark :initform t) (nomark :initform t)
(backend :initarg :backend (backend :initarg :backend
@ -984,10 +987,11 @@ in recurse, and ignore EXTS, search being made recursively on files matching
(file-remote-p helm-ff-default-directory)) (file-remote-p helm-ff-default-directory))
(error "Error: Remote operation not supported with ack-grep.")) (error "Error: Remote operation not supported with ack-grep."))
(let* (non-essential (let* (non-essential
(ack-rec-p (helm-grep-use-ack-p :where 'recursive))
(exts (and recurse (exts (and recurse
;; [FIXME] I could handle this from helm-walk-directory. ;; [FIXME] I could handle this from helm-walk-directory.
(not (eq backend 'zgrep)) ; zgrep doesn't handle -r opt. (not (eq backend 'zgrep)) ; zgrep doesn't handle -r opt.
(not (helm-grep-use-ack-p :where 'recursive)) (not ack-rec-p)
(or exts (helm-grep-get-file-extensions targets)))) (or exts (helm-grep-get-file-extensions targets))))
(include-files (include-files
(and exts (and exts
@ -1000,7 +1004,7 @@ in recurse, and ignore EXTS, search being made recursively on files matching
(types (and (not include-files) (types (and (not include-files)
(not (eq backend 'zgrep)) (not (eq backend 'zgrep))
recurse recurse
(helm-grep-use-ack-p :where 'recursive) ack-rec-p
;; When %e format spec is not specified ;; When %e format spec is not specified
;; ignore types and do not prompt for choice. ;; ignore types and do not prompt for choice.
(string-match "%e" helm-grep-default-command) (string-match "%e" helm-grep-default-command)
@ -1034,7 +1038,8 @@ in recurse, and ignore EXTS, search being made recursively on files matching
'default-directory helm-ff-default-directory) ;; [1] 'default-directory helm-ff-default-directory) ;; [1]
;; Setup the source. ;; Setup the source.
(set source (helm-make-source src-name 'helm-grep-class (set source (helm-make-source src-name 'helm-grep-class
:backend backend)) :backend backend
:pcre (if recurse ack-rec-p (helm-grep-use-ack-p))))
(helm (helm
:sources source :sources source
:buffer (format "*helm %s*" (helm-grep-command recurse backend)) :buffer (format "*helm %s*" (helm-grep-command recurse backend))
@ -1413,6 +1418,9 @@ if available with current AG version."
(defclass helm-grep-ag-class (helm-source-async) (defclass helm-grep-ag-class (helm-source-async)
((nohighlight :initform t) ((nohighlight :initform t)
(pcre :initarg :pcre :initform t
:documentation
" Backend is using pcre regexp engine when non--nil.")
(keymap :initform helm-grep-map) (keymap :initform helm-grep-map)
(help-message :initform 'helm-grep-help-message) (help-message :initform 'helm-grep-help-message)
(filter-one-by-one :initform 'helm-grep-filter-one-by-one) (filter-one-by-one :initform 'helm-grep-filter-one-by-one)

View File

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

View File

@ -267,7 +267,8 @@ Default is `helm-current-buffer'."
Animation is used unless NOANIM is non--nil." Animation is used unless NOANIM is non--nil."
(helm-log-run-hook 'helm-goto-line-before-hook) (helm-log-run-hook 'helm-goto-line-before-hook)
(helm-match-line-cleanup) (helm-match-line-cleanup)
(unless helm-yank-point (setq helm-yank-point (point))) (with-helm-current-buffer
(unless helm-yank-point (setq helm-yank-point (point))))
(goto-char (point-min)) (goto-char (point-min))
(helm-goto-char (point-at-bol lineno)) (helm-goto-char (point-at-bol lineno))
(unless noanim (unless noanim
@ -612,7 +613,12 @@ If STRING is non--nil return instead a space separated string."
(catch 'empty-line (catch 'empty-line
(cl-loop with ov (cl-loop with ov
for r in (helm-remove-if-match for r in (helm-remove-if-match
"\\`!" (split-string helm-input)) "\\`!" (split-string
;; Needed for highlighting AG matches.
(if (with-helm-buffer
(assq 'pcre (helm-get-current-source)))
(helm--translate-pcre-to-elisp helm-input)
helm-input)))
do (save-excursion do (save-excursion
(goto-char start-match) (goto-char start-match)
(while (condition-case _err (while (condition-case _err
@ -630,6 +636,26 @@ If STRING is non--nil return instead a space separated string."
(overlay-put ov 'priority 1))))))) (overlay-put ov 'priority 1)))))))
(recenter))) (recenter)))
(defun helm--translate-pcre-to-elisp (regexp)
"Should translate pcre REGEXP to elisp regexp.
Assume regexp is a pcre based regexp."
(with-temp-buffer
(insert " " regexp " ")
(goto-char (point-min))
(save-excursion
;; match (){}| unquoted
(helm-awhile (and (re-search-forward "\\([(){}|]\\)" nil t)
(match-string 1))
(let ((pos (match-beginning 1)))
(if (eql (char-before pos) ?\\)
(delete-region pos (1- pos))
(replace-match (concat "\\" it) t t nil 1)))))
;; match \s or \S
(helm-awhile (and (re-search-forward "\\S\\?\\(\\s\\[sS]\\)[^-]" nil t)
(match-string 1))
(replace-match (concat it "-") t t nil 1))
(buffer-substring (1+ (point-min)) (1- (point-max)))))
(defun helm-match-line-cleanup () (defun helm-match-line-cleanup ()
(when helm-match-line-overlay (when helm-match-line-overlay
(delete-overlay helm-match-line-overlay) (delete-overlay helm-match-line-overlay)

View File

@ -3,7 +3,7 @@
;;; Code: ;;; Code:
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path)))) (add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
;;;### (autoloads nil "helm" "helm.el" (22538 14678 331196 868000)) ;;;### (autoloads nil "helm" "helm.el" (22541 41903 478061 441000))
;;; Generated autoloads from helm.el ;;; Generated autoloads from helm.el
(autoload 'helm-define-multi-key "helm" "\ (autoload 'helm-define-multi-key "helm" "\
@ -188,7 +188,7 @@ Enable/disable helm debugging from outside of helm session.
;;;*** ;;;***
;;;### (autoloads nil nil ("helm-core-pkg.el" "helm-lib.el" "helm-multi-match.el" ;;;### (autoloads nil nil ("helm-core-pkg.el" "helm-lib.el" "helm-multi-match.el"
;;;;;; "helm-source.el") (22538 14678 343196 850000)) ;;;;;; "helm-source.el") (22541 41903 498061 441000))
;;;*** ;;;***

View File

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

View File

@ -63,21 +63,16 @@ when these options are used."
;;; Build regexps ;;; Build regexps
;; ;;
;; ;;
(defvar helm-mm-space-regexp "[\\ ] " (defconst helm-mm-space-regexp "\\s\\\\s-"
"Regexp to represent space itself in multiple regexp match.") "Regexp to represent space itself in multiple regexp match.")
(defun helm-mm-split-pattern (pattern) (defun helm-mm-split-pattern (pattern)
"Split PATTERN if it contain spaces and return resulting list. "Split PATTERN if it contain spaces and return resulting list.
If spaces in PATTERN are escaped, don't split at this place. If spaces in PATTERN are escaped, don't split at this place.
i.e \"foo bar\"=> (\"foo\" \"bar\") i.e \"foo bar baz\"=> (\"foo\" \"bar\" \"baz\")
but \"foo\ bar\"=> (\"foobar\")." but \"foo\\ bar baz\"=> (\"foo\\s-bar\" \"baz\")."
(if (string= pattern "") (split-string
'("") (replace-regexp-in-string helm-mm-space-regexp "\\\\s-" pattern)))
(cl-loop for s in (split-string
(replace-regexp-in-string helm-mm-space-regexp
"\000\000" pattern)
" " t)
collect (replace-regexp-in-string "\000\000" " " s))))
(defun helm-mm-1-make-regexp (pattern) (defun helm-mm-1-make-regexp (pattern)
"Replace spaces in PATTERN with \"\.*\"." "Replace spaces in PATTERN with \"\.*\"."

View File

@ -3,8 +3,8 @@
;;; Code: ;;; Code:
(add-to-list 'load-path (directory-file-name (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" (22538 14680 167194 ;;;### (autoloads nil "git-rebase" "git-rebase.el" (22541 41908 238061
;;;;;; 56000)) ;;;;;; 440000))
;;; Generated autoloads from git-rebase.el ;;; Generated autoloads from git-rebase.el
(autoload 'git-rebase-mode "git-rebase" "\ (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" (22538 14680 243193 940000)) ;;;### (autoloads nil "magit" "magit.el" (22541 41908 348061 440000))
;;; Generated autoloads from magit.el ;;; Generated autoloads from magit.el
(autoload 'magit-status "magit" "\ (autoload 'magit-status "magit" "\
@ -501,8 +501,8 @@ Git, and Emacs in the echo area.
;;;*** ;;;***
;;;### (autoloads nil "magit-apply" "magit-apply.el" (22538 14680 ;;;### (autoloads nil "magit-apply" "magit-apply.el" (22541 41908
;;;;;; 187194 25000)) ;;;;;; 268061 440000))
;;; Generated autoloads from magit-apply.el ;;; Generated autoloads from magit-apply.el
(autoload 'magit-stage-file "magit-apply" "\ (autoload 'magit-stage-file "magit-apply" "\
@ -538,8 +538,8 @@ Remove all changes from the staging area.
;;;*** ;;;***
;;;### (autoloads nil "magit-autorevert" "magit-autorevert.el" (22538 ;;;### (autoloads nil "magit-autorevert" "magit-autorevert.el" (22541
;;;;;; 14680 139194 99000)) ;;;;;; 41908 158061 440000))
;;; Generated autoloads from magit-autorevert.el ;;; Generated autoloads from magit-autorevert.el
(defvar magit-revert-buffers t) (defvar magit-revert-buffers t)
@ -568,8 +568,8 @@ See `auto-revert-mode' for more information on Auto-Revert mode.
;;;*** ;;;***
;;;### (autoloads nil "magit-bisect" "magit-bisect.el" (22538 14680 ;;;### (autoloads nil "magit-bisect" "magit-bisect.el" (22541 41908
;;;;;; 179194 37000)) ;;;;;; 258061 440000))
;;; Generated autoloads from magit-bisect.el ;;; Generated autoloads from magit-bisect.el
(autoload 'magit-bisect-popup "magit-bisect" nil t) (autoload 'magit-bisect-popup "magit-bisect" nil t)
@ -620,8 +620,8 @@ bisect run'.
;;;*** ;;;***
;;;### (autoloads nil "magit-blame" "magit-blame.el" (22538 14680 ;;;### (autoloads nil "magit-blame" "magit-blame.el" (22541 41908
;;;;;; 231193 959000)) ;;;;;; 338061 440000))
;;; Generated autoloads from magit-blame.el ;;; Generated autoloads from magit-blame.el
(autoload 'magit-blame-popup "magit-blame" nil t) (autoload 'magit-blame-popup "magit-blame" nil t)
@ -645,8 +645,8 @@ only arguments available from `magit-blame-popup' should be used.
;;;*** ;;;***
;;;### (autoloads nil "magit-commit" "magit-commit.el" (22538 14680 ;;;### (autoloads nil "magit-commit" "magit-commit.el" (22541 41908
;;;;;; 143194 93000)) ;;;;;; 168061 440000))
;;; Generated autoloads from magit-commit.el ;;; Generated autoloads from magit-commit.el
(autoload 'magit-commit "magit-commit" "\ (autoload 'magit-commit "magit-commit" "\
@ -728,8 +728,8 @@ Create a squash commit targeting COMMIT and instantly rebase.
;;;*** ;;;***
;;;### (autoloads nil "magit-diff" "magit-diff.el" (22538 14680 223193 ;;;### (autoloads nil "magit-diff" "magit-diff.el" (22541 41908 318061
;;;;;; 968000)) ;;;;;; 440000))
;;; Generated autoloads from magit-diff.el ;;; Generated autoloads from magit-diff.el
(autoload 'magit-diff-popup "magit-diff" "\ (autoload 'magit-diff-popup "magit-diff" "\
@ -813,8 +813,8 @@ for a revision.
;;;*** ;;;***
;;;### (autoloads nil "magit-ediff" "magit-ediff.el" (22538 14680 ;;;### (autoloads nil "magit-ediff" "magit-ediff.el" (22541 41908
;;;;;; 211193 989000)) ;;;;;; 308061 440000))
;;; Generated autoloads from magit-ediff.el ;;; Generated autoloads from magit-ediff.el
(autoload 'magit-ediff-popup "magit-ediff" nil t) (autoload 'magit-ediff-popup "magit-ediff" nil t)
@ -902,8 +902,8 @@ stash that were staged.
;;;*** ;;;***
;;;### (autoloads nil "magit-extras" "magit-extras.el" (22538 14680 ;;;### (autoloads nil "magit-extras" "magit-extras.el" (22541 41908
;;;;;; 147194 87000)) ;;;;;; 188061 440000))
;;; Generated autoloads from magit-extras.el ;;; Generated autoloads from magit-extras.el
(autoload 'magit-run-git-gui "magit-extras" "\ (autoload 'magit-run-git-gui "magit-extras" "\
@ -973,8 +973,8 @@ on a position in a file-visiting buffer.
;;;*** ;;;***
;;;### (autoloads nil "magit-log" "magit-log.el" (22538 14680 215193 ;;;### (autoloads nil "magit-log" "magit-log.el" (22541 41908 308061
;;;;;; 982000)) ;;;;;; 440000))
;;; Generated autoloads from magit-log.el ;;; Generated autoloads from magit-log.el
(autoload 'magit-log-buffer-file-popup "magit-log" "\ (autoload 'magit-log-buffer-file-popup "magit-log" "\
@ -1056,8 +1056,8 @@ Show commits in a branch that are not merged in the upstream branch.
;;;*** ;;;***
;;;### (autoloads nil "magit-remote" "magit-remote.el" (22538 14680 ;;;### (autoloads nil "magit-remote" "magit-remote.el" (22541 41908
;;;;;; 263193 909000)) ;;;;;; 388061 439000))
;;; Generated autoloads from magit-remote.el ;;; Generated autoloads from magit-remote.el
(autoload 'magit-clone "magit-remote" "\ (autoload 'magit-clone "magit-remote" "\
@ -1289,8 +1289,8 @@ is asked to pull. START has to be reachable from that commit.
;;;*** ;;;***
;;;### (autoloads nil "magit-sequence" "magit-sequence.el" (22538 ;;;### (autoloads nil "magit-sequence" "magit-sequence.el" (22541
;;;;;; 14680 251193 925000)) ;;;;;; 41908 368061 440000))
;;; Generated autoloads from magit-sequence.el ;;; Generated autoloads from magit-sequence.el
(autoload 'magit-sequencer-continue "magit-sequence" "\ (autoload 'magit-sequencer-continue "magit-sequence" "\
@ -1440,8 +1440,8 @@ Abort the current rebase operation, restoring the original branch.
;;;*** ;;;***
;;;### (autoloads nil "magit-stash" "magit-stash.el" (22538 14680 ;;;### (autoloads nil "magit-stash" "magit-stash.el" (22541 41908
;;;;;; 199194 6000)) ;;;;;; 288061 440000))
;;; Generated autoloads from magit-stash.el ;;; Generated autoloads from magit-stash.el
(autoload 'magit-stash-popup "magit-stash" nil t) (autoload 'magit-stash-popup "magit-stash" nil t)
@ -1540,8 +1540,8 @@ Show all diffs of a stash in a buffer.
;;;*** ;;;***
;;;### (autoloads nil "magit-submodule" "magit-submodule.el" (22538 ;;;### (autoloads nil "magit-submodule" "magit-submodule.el" (22541
;;;;;; 14680 279193 884000)) ;;;;;; 41908 408061 439000))
;;; Generated autoloads from magit-submodule.el ;;; Generated autoloads from magit-submodule.el
(autoload 'magit-submodule-popup "magit-submodule" nil t) (autoload 'magit-submodule-popup "magit-submodule" nil t)
@ -1631,8 +1631,8 @@ Display a list of the current repository's submodules.
;;;*** ;;;***
;;;### (autoloads nil "magit-subtree" "magit-subtree.el" (22538 14680 ;;;### (autoloads nil "magit-subtree" "magit-subtree.el" (22541 41908
;;;;;; 171194 49000)) ;;;;;; 248061 440000))
;;; Generated autoloads from magit-subtree.el ;;; Generated autoloads from magit-subtree.el
(autoload 'magit-subtree-popup "magit-subtree" nil t) (autoload 'magit-subtree-popup "magit-subtree" nil t)
@ -1668,8 +1668,8 @@ Extract the history of the subtree PREFIX.
;;;*** ;;;***
;;;### (autoloads nil "magit-wip" "magit-wip.el" (22538 14680 155194 ;;;### (autoloads nil "magit-wip" "magit-wip.el" (22541 41908 208061
;;;;;; 73000)) ;;;;;; 440000))
;;; Generated autoloads from magit-wip.el ;;; Generated autoloads from magit-wip.el
(defvar magit-wip-after-save-mode nil "\ (defvar magit-wip-after-save-mode nil "\
@ -1739,7 +1739,7 @@ command which is about to be called are committed.
;;;### (autoloads nil nil ("magit-core.el" "magit-git.el" "magit-mode.el" ;;;### (autoloads nil nil ("magit-core.el" "magit-git.el" "magit-mode.el"
;;;;;; "magit-pkg.el" "magit-process.el" "magit-section.el" "magit-utils.el") ;;;;;; "magit-pkg.el" "magit-process.el" "magit-section.el" "magit-utils.el")
;;;;;; (22538 14680 271193 896000)) ;;;;;; (22541 41908 388061 439000))
;;;*** ;;;***

View File

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

View File

@ -796,8 +796,8 @@ as argument."
(when (featurep 'dired) (when (featurep 'dired)
(dired-uncache default-dir)) (dired-uncache default-dir))
(when (buffer-live-p process-buf) (when (buffer-live-p process-buf)
(magit-process-unset-mode-line)
(with-current-buffer process-buf (with-current-buffer process-buf
(magit-process-unset-mode-line)
(let ((inhibit-read-only t) (let ((inhibit-read-only t)
(marker (magit-section-start section))) (marker (magit-section-start section)))
(goto-char marker) (goto-char marker)
@ -834,18 +834,18 @@ as argument."
(if magit-process-raise-error (if magit-process-raise-error
(signal 'magit-git-error (list (format "%s (in %s)" msg default-dir))) (signal 'magit-git-error (list (format "%s (in %s)" msg default-dir)))
(when (buffer-live-p process-buf) (when (buffer-live-p process-buf)
(--when-let (magit-mode-get-buffer 'magit-status-mode) (with-current-buffer process-buf
(when (buffer-live-p it) (-when-let (status-buf (magit-mode-get-buffer 'magit-status-mode))
(with-current-buffer it (with-current-buffer status-buf
(setq magit-this-error msg)))) (setq magit-this-error msg)))))
(message "%s ... [%s buffer %s for details]" msg (message "%s ... [%s buffer %s for details]" msg
(-if-let (key (and (buffer-live-p command-buf) (-if-let (key (and (buffer-live-p command-buf)
(with-current-buffer command-buf (with-current-buffer command-buf
(car (where-is-internal (car (where-is-internal
'magit-process-buffer))))) 'magit-process-buffer)))))
(format "Hit %s to see" (key-description key)) (format "Hit %s to see" (key-description key))
"See") "See")
(buffer-name process-buf)))))) (buffer-name process-buf)))))
arg) arg)
(defun magit-process-display-buffer (process) (defun magit-process-display-buffer (process)

View File

@ -3123,7 +3123,7 @@ Also see *note (gitman)git-bisect:: .
When bisecting is not in progress, then the popup buffer features the When bisecting is not in progress, then the popup buffer features the
following commands. following commands.
B s (magit-bisect-start) B B (magit-bisect-start)
Start a bisect session. Start a bisect session.
@ -3131,7 +3131,7 @@ following commands.
command starts such a bisect session by asking for a known good and command starts such a bisect session by asking for a known good and
a bad commit. a bad commit.
B u (magit-bisect-run) B s (magit-bisect-run)
Bisect automatically by running commands after each step. Bisect automatically by running commands after each step.
@ -7561,6 +7561,7 @@ Appendix B Keystroke Index
* A s: Cherry picking. (line 39) * A s: Cherry picking. (line 39)
* B: Bisecting. (line 8) * B: Bisecting. (line 8)
* b: The branch popup. (line 12) * b: The branch popup. (line 12)
* B B: Bisecting. (line 16)
* B b: Bisecting. (line 31) * B b: Bisecting. (line 31)
* b b: The branch popup. (line 29) * b b: The branch popup. (line 29)
* b c: The branch popup. (line 47) * b c: The branch popup. (line 47)
@ -7570,9 +7571,8 @@ Appendix B Keystroke Index
* b n: The branch popup. (line 37) * b n: The branch popup. (line 37)
* B r: Bisecting. (line 47) * B r: Bisecting. (line 47)
* b r: The branch popup. (line 105) * b r: The branch popup. (line 105)
* B s: Bisecting. (line 16) * B s: Bisecting. (line 24)
* b s: The branch popup. (line 54) * b s: The branch popup. (line 54)
* B u: Bisecting. (line 24)
* b x: The branch popup. (line 82) * b x: The branch popup. (line 82)
* c: Initiating a commit. (line 8) * c: Initiating a commit. (line 8)
* c <1>: Editing rebase sequences. * c <1>: Editing rebase sequences.

View File

@ -1,5 +0,0 @@
(define-package "multiple-cursors" "20160719.216" "Multiple cursors for Emacs."
'((cl-lib "0.5")))
;; Local Variables:
;; no-byte-compile: t
;; End:

View File

@ -1,10 +1,10 @@
;;; multiple-cursors-autoloads.el --- automatically extracted autoloads ;;; multiple-cursors-autoloads.el --- automatically extracted autoloads
;; ;;
;;; Code: ;;; 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 "mc-edit-lines" "mc-edit-lines.el" (22490 32823 ;;;### (autoloads nil "mc-edit-lines" "mc-edit-lines.el" (22539 28048
;;;;;; 997859 430000)) ;;;;;; 230569 207000))
;;; Generated autoloads from mc-edit-lines.el ;;; Generated autoloads from mc-edit-lines.el
(autoload 'mc/edit-lines "mc-edit-lines" "\ (autoload 'mc/edit-lines "mc-edit-lines" "\
@ -34,7 +34,7 @@ Add one cursor to the beginning of each line in the active region.
;;;*** ;;;***
;;;### (autoloads nil "mc-hide-unmatched-lines-mode" "mc-hide-unmatched-lines-mode.el" ;;;### (autoloads nil "mc-hide-unmatched-lines-mode" "mc-hide-unmatched-lines-mode.el"
;;;;;; (22490 32824 21859 382000)) ;;;;;; (22539 28048 260569 207000))
;;; Generated autoloads from mc-hide-unmatched-lines-mode.el ;;; Generated autoloads from mc-hide-unmatched-lines-mode.el
(autoload 'mc-hide-unmatched-lines-mode "mc-hide-unmatched-lines-mode" "\ (autoload 'mc-hide-unmatched-lines-mode "mc-hide-unmatched-lines-mode" "\
@ -48,8 +48,8 @@ mode. To leave this mode press <return> or \"C-g\"
;;;*** ;;;***
;;;### (autoloads nil "mc-mark-more" "mc-mark-more.el" (22490 32824 ;;;### (autoloads nil "mc-mark-more" "mc-mark-more.el" (22539 28048
;;;;;; 45859 333000)) ;;;;;; 270569 207000))
;;; Generated autoloads from mc-mark-more.el ;;; Generated autoloads from mc-mark-more.el
(autoload 'mc/mark-next-like-this "mc-mark-more" "\ (autoload 'mc/mark-next-like-this "mc-mark-more" "\
@ -246,8 +246,8 @@ Mark the tag we're in and its pair for renaming.
;;;*** ;;;***
;;;### (autoloads nil "mc-mark-pop" "mc-mark-pop.el" (22490 32824 ;;;### (autoloads nil "mc-mark-pop" "mc-mark-pop.el" (22539 28048
;;;;;; 13859 397000)) ;;;;;; 250569 207000))
;;; Generated autoloads from mc-mark-pop.el ;;; Generated autoloads from mc-mark-pop.el
(autoload 'mc/mark-pop "mc-mark-pop" "\ (autoload 'mc/mark-pop "mc-mark-pop" "\
@ -259,7 +259,7 @@ to the popped mark.
;;;*** ;;;***
;;;### (autoloads nil "mc-separate-operations" "mc-separate-operations.el" ;;;### (autoloads nil "mc-separate-operations" "mc-separate-operations.el"
;;;;;; (22490 32824 29859 364000)) ;;;;;; (22539 28048 260569 207000))
;;; Generated autoloads from mc-separate-operations.el ;;; Generated autoloads from mc-separate-operations.el
(autoload 'mc/insert-numbers "mc-separate-operations" "\ (autoload 'mc/insert-numbers "mc-separate-operations" "\
@ -299,7 +299,7 @@ Aligns all cursors with whitespace like `mc/vertical-align' does
;;;*** ;;;***
;;;### (autoloads nil "multiple-cursors-core" "multiple-cursors-core.el" ;;;### (autoloads nil "multiple-cursors-core" "multiple-cursors-core.el"
;;;;;; (22490 32823 989859 446000)) ;;;;;; (22539 28048 220569 207000))
;;; Generated autoloads from multiple-cursors-core.el ;;; Generated autoloads from multiple-cursors-core.el
(autoload 'multiple-cursors-mode "multiple-cursors-core" "\ (autoload 'multiple-cursors-mode "multiple-cursors-core" "\
@ -310,7 +310,7 @@ Mode while multiple cursors are active.
;;;*** ;;;***
;;;### (autoloads nil "rectangular-region-mode" "rectangular-region-mode.el" ;;;### (autoloads nil "rectangular-region-mode" "rectangular-region-mode.el"
;;;;;; (22490 32824 9859 405000)) ;;;;;; (22539 28048 240569 207000))
;;; Generated autoloads from rectangular-region-mode.el ;;; Generated autoloads from rectangular-region-mode.el
(autoload 'set-rectangular-region-anchor "rectangular-region-mode" "\ (autoload 'set-rectangular-region-anchor "rectangular-region-mode" "\
@ -329,7 +329,7 @@ A mode for creating a rectangular region to edit
;;;*** ;;;***
;;;### (autoloads nil nil ("mc-cycle-cursors.el" "multiple-cursors-pkg.el" ;;;### (autoloads nil nil ("mc-cycle-cursors.el" "multiple-cursors-pkg.el"
;;;;;; "multiple-cursors.el") (22490 32824 65463 898000)) ;;;;;; "multiple-cursors.el") (22539 28048 280569 207000))
;;;*** ;;;***

View File

@ -575,9 +575,11 @@ from being executed if in multiple-cursors-mode."
(overlay-put cursor 'kill-ring kill-ring) (overlay-put cursor 'kill-ring kill-ring)
(overlay-put cursor 'kill-ring-yank-pointer kill-ring-yank-pointer))))))) (overlay-put cursor 'kill-ring-yank-pointer kill-ring-yank-pointer)))))))
(defvar mc/list-file (locate-user-emacs-file ".mc-lists.el") (defcustom mc/list-file (locate-user-emacs-file ".mc-lists.el")
"The position of the file that keeps track of your preferences "The position of the file that keeps track of your preferences
for running commands with multiple cursors.") for running commands with multiple cursors."
:type 'file
:group 'multiple-cursors)
(defun mc/dump-list (list-symbol) (defun mc/dump-list (list-symbol)
"Insert (setq 'LIST-SYMBOL LIST-VALUE) to current buffer." "Insert (setq 'LIST-SYMBOL LIST-VALUE) to current buffer."

View File

@ -0,0 +1,5 @@
(define-package "multiple-cursors" "20161021.1431" "Multiple cursors for Emacs."
'((cl-lib "0.5")))
;; Local Variables:
;; no-byte-compile: t
;; End:

View File

@ -1,7 +0,0 @@
(define-package "yasnippet" "20160924.2001" "Yet another snippet extension for Emacs."
'((cl-lib "0.5"))
:url "http://github.com/capitaomorte/yasnippet" :keywords
'("convenience" "emulation"))
;; Local Variables:
;; no-byte-compile: t
;; End:

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