The SSH host key has changed on 8 April, 2022 to this one: SHA256:573uTBSeh74kvOo0HJXi5ijdzRm8me27suzNEDlGyrQ

Update packages

gerrit-package
Gergely Polonkai 6 years ago
parent 9777493048
commit 1ee823ee92
  1. 14
      elpa/async-20160513.128/async-autoloads.el
  2. 44
      elpa/async-20160513.128/async-bytecomp.el
  3. 2
      elpa/async-20160513.128/async-pkg.el
  4. 10
      elpa/async-20160513.128/async.el
  5. 159
      elpa/async-20160513.128/dired-async.el
  6. 6
      elpa/async-20160513.128/smtpmail-async.el
  7. 1
      elpa/buffer-move-20160108.708/buffer-move-pkg.el
  8. 4
      elpa/buffer-move-20160615.1103/buffer-move-autoloads.el
  9. 1
      elpa/buffer-move-20160615.1103/buffer-move-pkg.el
  10. 12
      elpa/buffer-move-20160615.1103/buffer-move.el
  11. 1
      elpa/coffee-mode-20160419.1947/coffee-mode-pkg.el
  12. 4
      elpa/coffee-mode-20160520.146/coffee-mode-autoloads.el
  13. 1
      elpa/coffee-mode-20160520.146/coffee-mode-pkg.el
  14. 37
      elpa/coffee-mode-20160520.146/coffee-mode.el
  15. 0
      elpa/company-20160626.1903/company-abbrev.el
  16. 70
      elpa/company-20160626.1903/company-autoloads.el
  17. 0
      elpa/company-20160626.1903/company-bbdb.el
  18. 0
      elpa/company-20160626.1903/company-capf.el
  19. 0
      elpa/company-20160626.1903/company-clang.el
  20. 0
      elpa/company-20160626.1903/company-cmake.el
  21. 0
      elpa/company-20160626.1903/company-css.el
  22. 0
      elpa/company-20160626.1903/company-dabbrev-code.el
  23. 25
      elpa/company-20160626.1903/company-dabbrev.el
  24. 9
      elpa/company-20160626.1903/company-eclim.el
  25. 0
      elpa/company-20160626.1903/company-elisp.el
  26. 0
      elpa/company-20160626.1903/company-etags.el
  27. 0
      elpa/company-20160626.1903/company-files.el
  28. 0
      elpa/company-20160626.1903/company-gtags.el
  29. 0
      elpa/company-20160626.1903/company-ispell.el
  30. 0
      elpa/company-20160626.1903/company-keywords.el
  31. 0
      elpa/company-20160626.1903/company-nxml.el
  32. 0
      elpa/company-20160626.1903/company-oddmuse.el
  33. 2
      elpa/company-20160626.1903/company-pkg.el
  34. 0
      elpa/company-20160626.1903/company-semantic.el
  35. 0
      elpa/company-20160626.1903/company-template.el
  36. 0
      elpa/company-20160626.1903/company-tempo.el
  37. 0
      elpa/company-20160626.1903/company-xcode.el
  38. 0
      elpa/company-20160626.1903/company-yasnippet.el
  39. 212
      elpa/company-20160626.1903/company.el
  40. 1
      elpa/company-shell-20160212.1139/company-shell-pkg.el
  41. 4
      elpa/company-shell-20160528.507/company-shell-autoloads.el
  42. 1
      elpa/company-shell-20160528.507/company-shell-pkg.el
  43. 7
      elpa/company-shell-20160528.507/company-shell.el
  44. 1
      elpa/dash-20160306.1222/dash-pkg.el
  45. 2
      elpa/dash-20160619.611/dash-autoloads.el
  46. 1
      elpa/dash-20160619.611/dash-pkg.el
  47. 69
      elpa/dash-20160619.611/dash.el
  48. 4
      elpa/erlang-20151013.157/erlang-pkg.el
  49. 10
      elpa/erlang-20160615.633/erlang-autoloads.el
  50. 2
      elpa/erlang-20160615.633/erlang-eunit.el
  51. 0
      elpa/erlang-20160615.633/erlang-flymake.el
  52. 4
      elpa/erlang-20160615.633/erlang-pkg.el
  53. 4
      elpa/erlang-20160615.633/erlang-skels-old.el
  54. 122
      elpa/erlang-20160615.633/erlang-skels.el
  55. 0
      elpa/erlang-20160615.633/erlang-start.el
  56. 122
      elpa/erlang-20160615.633/erlang-test.el
  57. 473
      elpa/erlang-20160615.633/erlang.el
  58. 0
      elpa/erlang-20160615.633/erlang_appwiz.el
  59. 2
      elpa/ggtags-20160617.1840/ggtags-autoloads.el
  60. 2
      elpa/ggtags-20160617.1840/ggtags-pkg.el
  61. 13
      elpa/ggtags-20160617.1840/ggtags.el
  62. 49
      elpa/gh-20160626.1349/gh-api.el
  63. 27
      elpa/gh-20160626.1349/gh-auth.el
  64. 54
      elpa/gh-20160626.1349/gh-autoloads.el
  65. 0
      elpa/gh-20160626.1349/gh-cache.el
  66. 0
      elpa/gh-20160626.1349/gh-common.el
  67. 0
      elpa/gh-20160626.1349/gh-gist.el
  68. 2
      elpa/gh-20160626.1349/gh-issue-comments.el
  69. 32
      elpa/gh-20160626.1349/gh-issues.el
  70. 2
      elpa/gh-20160626.1349/gh-oauth.el
  71. 0
      elpa/gh-20160626.1349/gh-orgs.el
  72. 2
      elpa/gh-20160626.1349/gh-pkg.el
  73. 0
      elpa/gh-20160626.1349/gh-profile.el
  74. 2
      elpa/gh-20160626.1349/gh-pull-comments.el
  75. 0
      elpa/gh-20160626.1349/gh-pulls.el
  76. 45
      elpa/gh-20160626.1349/gh-repos.el
  77. 61
      elpa/gh-20160626.1349/gh-search.el
  78. 4
      elpa/gh-20160626.1349/gh-url.el
  79. 0
      elpa/gh-20160626.1349/gh-users.el
  80. 0
      elpa/gh-20160626.1349/gh.el
  81. 4
      elpa/git-commit-20160519.950/git-commit-autoloads.el
  82. 2
      elpa/git-commit-20160519.950/git-commit-pkg.el
  83. 2
      elpa/git-commit-20160519.950/git-commit.el
  84. 4
      elpa/git-gutter-20160610.852/git-gutter-autoloads.el
  85. 2
      elpa/git-gutter-20160610.852/git-gutter-pkg.el
  86. 82
      elpa/git-gutter-20160610.852/git-gutter.el
  87. 5
      elpa/go-mode-20160404.2/go-mode-pkg.el
  88. 8
      elpa/go-mode-20160512.110/go-mode-autoloads.el
  89. 5
      elpa/go-mode-20160512.110/go-mode-pkg.el
  90. 6
      elpa/go-mode-20160512.110/go-mode.el
  91. 9
      elpa/helm-20160425.958/helm-pkg.el
  92. 0
      elpa/helm-20160625.2316/emacs-helm.sh
  93. 78
      elpa/helm-20160625.2316/helm-adaptive.el
  94. 0
      elpa/helm-20160625.2316/helm-apt.el
  95. 171
      elpa/helm-20160625.2316/helm-autoloads.el
  96. 0
      elpa/helm-20160625.2316/helm-bookmark.el
  97. 23
      elpa/helm-20160625.2316/helm-buffers.el
  98. 0
      elpa/helm-20160625.2316/helm-color.el
  99. 60
      elpa/helm-20160625.2316/helm-command.el
  100. 5
      elpa/helm-20160625.2316/helm-config.el
  101. Some files were not shown because too many files have changed in this diff Show More

@ -3,7 +3,7 @@
;;; Code:
(add-to-list 'load-path (or (file-name-directory #$) (car load-path)))
;;;### (autoloads nil "async" "async.el" (22303 19287 502173 365000))
;;;### (autoloads nil "async" "async.el" (22387 29376 289753 380000))
;;; Generated autoloads from async.el
(autoload 'async-start-process "async" "\
@ -68,8 +68,8 @@ returns nil. It can still be useful, however, as an argument to
;;;***
;;;### (autoloads nil "async-bytecomp" "async-bytecomp.el" (22303
;;;;;; 19287 498173 368000))
;;;### (autoloads nil "async-bytecomp" "async-bytecomp.el" (22387
;;;;;; 29376 281759 465000))
;;; Generated autoloads from async-bytecomp.el
(autoload 'async-byte-recompile-directory "async-bytecomp" "\
@ -96,8 +96,8 @@ Async compilation of packages can be controlled by
;;;***
;;;### (autoloads nil "dired-async" "dired-async.el" (22303 19287
;;;;;; 486173 378000))
;;;### (autoloads nil "dired-async" "dired-async.el" (22387 29376
;;;;;; 261774 676000))
;;; Generated autoloads from dired-async.el
(defvar dired-async-mode nil "\
@ -116,8 +116,8 @@ Do dired actions asynchronously.
;;;***
;;;### (autoloads nil nil ("async-pkg.el" "smtpmail-async.el") (22303
;;;;;; 19287 520307 139000))
;;;### (autoloads nil nil ("async-pkg.el" "smtpmail-async.el") (22387
;;;;;; 29376 315816 570000))
;;;***

@ -1,4 +1,4 @@
;;; async-bytecomp.el --- Async functions to compile elisp files async
;;; async-bytecomp.el --- Compile elisp files asynchronously -*- lexical-binding: t -*-
;; Copyright (C) 2014-2016 Free Software Foundation, Inc.
@ -65,27 +65,27 @@ All *.elc files are systematically deleted before proceeding."
;; This happen when recompiling its own directory.
(load "async")
(let ((call-back
`(lambda (&optional ignore)
(if (file-exists-p async-byte-compile-log-file)
(let ((buf (get-buffer-create byte-compile-log-buffer))
(n 0))
(with-current-buffer buf
(goto-char (point-max))
(let ((inhibit-read-only t))
(insert-file-contents async-byte-compile-log-file)
(compilation-mode))
(display-buffer buf)
(delete-file async-byte-compile-log-file)
(unless ,quiet
(save-excursion
(goto-char (point-min))
(while (re-search-forward "^.*:Error:" nil t)
(cl-incf n)))
(if (> n 0)
(message "Failed to compile %d files in directory `%s'" n ,directory)
(message "Directory `%s' compiled asynchronously with warnings" ,directory)))))
(unless ,quiet
(message "Directory `%s' compiled asynchronously with success" ,directory))))))
(lambda (&optional _ignore)
(if (file-exists-p async-byte-compile-log-file)
(let ((buf (get-buffer-create byte-compile-log-buffer))
(n 0))
(with-current-buffer buf
(goto-char (point-max))
(let ((inhibit-read-only t))
(insert-file-contents async-byte-compile-log-file)
(compilation-mode))
(display-buffer buf)
(delete-file async-byte-compile-log-file)
(unless quiet
(save-excursion
(goto-char (point-min))
(while (re-search-forward "^.*:Error:" nil t)
(cl-incf n)))
(if (> n 0)
(message "Failed to compile %d files in directory `%s'" n directory)
(message "Directory `%s' compiled asynchronously with warnings" directory)))))
(unless quiet
(message "Directory `%s' compiled asynchronously with success" directory))))))
(async-start
`(lambda ()
(require 'bytecomp)

@ -1,4 +1,4 @@
(define-package "async" "20160425.551" "Asynchronous processing in Emacs" 'nil :keywords
(define-package "async" "20160513.128" "Asynchronous processing in Emacs" 'nil :keywords
'("async")
:url "http://elpa.gnu.org/packages/async.html")
;; Local Variables:

@ -1,10 +1,10 @@
;;; async.el --- Asynchronous processing in Emacs
;;; async.el --- Asynchronous processing in Emacs -*- lexical-binding: t -*-
;; Copyright (C) 2012-2016 Free Software Foundation, Inc.
;; Author: John Wiegley <jwiegley@gmail.com>
;; Created: 18 Jun 2012
;; Version: 1.6
;; Version: 1.9
;; Keywords: async
;; X-URL: https://github.com/jwiegley/emacs-async
@ -95,8 +95,8 @@ as follows:
(unless async-debug
(kill-buffer buf)))))
(defun async-when-done (proc &optional change)
"Process sentinal used to retrieve the value from the child process."
(defun async-when-done (proc &optional _change)
"Process sentinel used to retrieve the value from the child process."
(when (eq 'exit (process-status proc))
(with-current-buffer (process-buffer proc)
(let ((async-current-process proc))
@ -201,7 +201,7 @@ its FINISH-FUNC is nil."
(funcall async-callback args))
(async--transmit-sexp (car args) (list 'quote (cdr args))))))
(defun async-receive (&rest args)
(defun async-receive ()
"Send the given messages to the asychronous Emacs PROCESS."
(async--receive-sexp))

@ -1,4 +1,4 @@
;;; dired-async.el --- Copy/move/delete asynchronously in dired.
;;; dired-async.el --- Asynchronous dired actions -*- lexical-binding: t -*-
;; Copyright (C) 2012-2016 Free Software Foundation, Inc.
@ -44,7 +44,6 @@
(eval-when-compile
(defvar async-callback))
(defvar dired-async-operation nil)
(defgroup dired-async nil
"Copy rename files asynchronously from dired."
@ -72,6 +71,11 @@ Should take same args as `message'."
"Face used for mode-line message."
:group 'dired-async)
(defface dired-async-failures
'((t (:foreground "red")))
"Face used for mode-line message."
:group 'dired-async)
(defface dired-async-mode-message
'((t (:foreground "Gold")))
"Face used for `dired-async--modeline-mode' lighter."
@ -87,7 +91,7 @@ Should take same args as `message'."
(unless dired-async--modeline-mode
(let ((visible-bell t)) (ding))))
(defun dired-async-mode-line-message (text &rest args)
(defun dired-async-mode-line-message (text face &rest args)
"Notify end of operation in `mode-line'."
(message nil)
(let ((mode-line-format (concat
@ -95,7 +99,7 @@ Should take same args as `message'."
(if args
(apply #'format text args)
text)
'face 'dired-async-message))))
'face face))))
(force-mode-line-update)
(sit-for 3)
(force-mode-line-update)))
@ -110,28 +114,49 @@ Should take same args as `message'."
(interactive)
(let* ((processes (dired-async-processes))
(proc (car (last processes))))
(delete-process proc)
(and proc (delete-process proc))
(unless (> (length processes) 1)
(dired-async--modeline-mode -1))))
(defun dired-async-after-file-create (len-flist)
(defun dired-async-after-file-create (total operation failures skipped)
"Callback function used for operation handled by `dired-create-file'."
(unless (dired-async-processes)
;; Turn off mode-line notification
;; only when last process end.
(dired-async--modeline-mode -1))
(when dired-async-operation
(when operation
(if (file-exists-p dired-async-log-file)
(progn
(pop-to-buffer (get-buffer-create "*dired async*"))
(erase-buffer)
(pop-to-buffer (get-buffer-create dired-log-buffer))
(goto-char (point-max))
(setq inhibit-read-only t)
(insert "Error: ")
(insert-file-contents dired-async-log-file)
(special-mode)
(shrink-window-if-larger-than-buffer)
(delete-file dired-async-log-file))
(run-with-timer
0.1 nil
dired-async-message-function "Asynchronous %s of %s file(s) on %s file(s) done"
(car dired-async-operation) (cadr dired-async-operation) len-flist))))
(lambda ()
;; First send error messages.
(cond (failures
(funcall dired-async-message-function
"%s failed for %d of %d file%s -- See *Dired log* buffer"
'dired-async-failures
(car operation) (length failures)
total (dired-plural-s total)))
(skipped
(funcall dired-async-message-function
"%s: %d of %d file%s skipped -- See *Dired log* buffer"
'dired-async-failures
(car operation) (length skipped) total
(dired-plural-s total))))
;; Finally send the success message.
(funcall dired-async-message-function
"Asynchronous %s of %s on %s file%s done"
'dired-async-message
(car operation) (cadr operation)
total (dired-plural-s total)))))))
(defun dired-async-maybe-kill-ftp ()
"Return a form to kill ftp process in child emacs."
@ -144,19 +169,16 @@ Should take same args as `message'."
(buffer-name b)) b))))
(when buf (kill-buffer buf))))))
(defvar overwrite-query)
(defun dired-async-create-files (file-creator operation fn-list name-constructor
&optional marker-char)
&optional _marker-char)
"Same as `dired-create-files' but asynchronous.
See `dired-create-files' for the behavior of arguments."
(setq dired-async-operation nil)
(let (dired-create-files-failures
failures async-fn-list
skipped (success-count 0)
(total (length fn-list))
callback)
(let (to overwrite-query
overwrite-backup-query) ; for dired-handle-overwrite
(setq overwrite-query nil)
(let ((total (length fn-list))
failures async-fn-list skipped callback)
(let (to)
(dolist (from fn-list)
(setq to (funcall name-constructor from))
(if (equal to from)
@ -170,19 +192,12 @@ See `dired-create-files' for the behavior of arguments."
(file-exists-p to)))
(dired-overwrite-confirmed ; for dired-handle-overwrite
(and overwrite
(let ((help-form '(format "\
(let ((help-form `(format "\
Type SPC or `y' to overwrite file `%s',
DEL or `n' to skip to next,
ESC or `q' to not overwrite any of the remaining files,
`!' to overwrite all remaining files with no more questions." to)))
(dired-query 'overwrite-query
"Overwrite `%s'?" to))))
;; must determine if FROM is marked before file-creator
;; gets a chance to delete it (in case of a move).
(actual-marker-char
(cond ((integerp marker-char) marker-char)
(marker-char (dired-file-marker from)) ; slow
(t nil))))
`!' to overwrite all remaining files with no more questions." ,to)))
(dired-query 'overwrite-query "Overwrite `%s'?" to)))))
;; Handle the `dired-copy-file' file-creator specially
;; When copying a directory to another directory or
;; possibly to itself or one of its subdirectories.
@ -214,48 +229,49 @@ ESC or `q' to not overwrite any of the remaining files,
(push (cons from to) async-fn-list))
(progn
(push (dired-make-relative from) failures)
(dired-log "%s `%s' to `%s' failed"
(dired-log "%s `%s' to `%s' failed\n"
operation from to)))
(push (cons from to) async-fn-list)))))
;; When failures have been printed to dired log add the date at bob.
(when (or failures skipped) (dired-log t))
;; When async-fn-list is empty that's mean only one file
;; had to be copied and user finally answer NO.
;; In this case async process will never start and callback
;; will have no chance to run, so notify failures here.
(unless async-fn-list
(cond (failures
(funcall dired-async-message-function
"%s failed for %d of %d file%s -- See *Dired log* buffer"
'dired-async-failures
operation (length failures)
total (dired-plural-s total)))
(skipped
(funcall dired-async-message-function
"%s: %d of %d file%s skipped -- See *Dired log* buffer"
'dired-async-failures
operation (length skipped) total
(dired-plural-s total)))))
;; Setup callback.
(setq callback
`(lambda (&optional ignore)
(dired-async-after-file-create ,total)
(when (string= ,(downcase operation) "rename")
(cl-loop for (file . to) in ',async-fn-list
do (and (get-file-buffer file)
(with-current-buffer (get-file-buffer file)
(lambda (&optional _ignore)
(dired-async-after-file-create
total (list operation (length async-fn-list)) failures skipped)
(when (string= (downcase operation) "rename")
(cl-loop for (file . to) in async-fn-list
for bf = (get-file-buffer file)
for destp = (file-exists-p to)
do (and bf destp
(with-current-buffer bf
(set-visited-file-name to nil t))))))))
;; Handle error happening in host emacs.
(cond
(dired-create-files-failures
(setq failures (nconc failures dired-create-files-failures))
(dired-log-summary
(format "%s failed for %d file%s in %d requests"
operation (length failures)
(dired-plural-s (length failures))
total)
failures))
(failures
(dired-log-summary
(format "%s failed for %d of %d file%s"
operation (length failures)
total (dired-plural-s total))
failures))
(skipped
(dired-log-summary
(format "%s: %d of %d file%s skipped"
operation (length skipped) total
(dired-plural-s total))
skipped))
(t (message "%s: %s file%s"
operation success-count (dired-plural-s success-count))))
;; Start async process.
(when async-fn-list
(async-start `(lambda ()
(require 'cl-lib) (require 'dired-aux) (require 'dired-x)
,(async-inject-variables dired-async-env-variables-regexp)
(condition-case err
(let ((dired-recursive-copies (quote always)))
(let ((dired-recursive-copies (quote always))
(dired-copy-preserve-time
,dired-copy-preserve-time))
(setq overwrite-backup-query nil)
;; Inline `backup-file' as long as it is not
;; available in emacs.
(defalias 'backup-file
@ -274,21 +290,24 @@ ESC or `q' to not overwrite any of the remaining files,
(condition-case err
(copy-file from to ok dired-copy-preserve-time)
(file-date-error
(push (dired-make-relative from)
dired-create-files-failures)
(dired-log "Can't set date on %s:\n%s\n" from err)))))))
;; Now run the FILE-CREATOR function on files.
(cl-loop with fn = (quote ,file-creator)
for (from . dest) in (quote ,async-fn-list)
do (funcall fn from dest t)))
(file-error
(with-temp-file ,dired-async-log-file
(insert (format "%S" err)))))
do (condition-case err
(funcall fn from dest t)
(file-error
(dired-log "%s: %s\n" (car err) (cdr err)))
nil))
(when (get-buffer dired-log-buffer)
(dired-log t)
(with-current-buffer dired-log-buffer
(write-region (point-min) (point-max)
,dired-async-log-file))))
,(dired-async-maybe-kill-ftp))
callback)
;; Run mode-line notifications while process running.
(dired-async--modeline-mode 1)
(setq dired-async-operation (list operation (length async-fn-list)))
(message "%s proceeding asynchronously..." operation))))
(defadvice dired-create-files (around dired-async)

@ -1,4 +1,4 @@
;;; smtpmail-async.el --- Send e-mail with smtpmail.el asynchronously
;;; smtpmail-async.el --- Send e-mail with smtpmail.el asynchronously -*- lexical-binding: t -*-
;; Copyright (C) 2012-2016 Free Software Foundation, Inc.
@ -65,8 +65,8 @@ It is called just before calling `smtpmail-send-it'.")
nil "\\`\\(mail-header-format-function\\|smtpmail-address-buffer\\|mail-mode-abbrev-table\\)")
(run-hooks 'async-smtpmail-before-send-hook)
(smtpmail-send-it)))
`(lambda (&optional ignore)
(message "Delivering message to %s...done" ,to)))))
(lambda (&optional _ignore)
(message "Delivering message to %s...done" to)))))
(provide 'smtpmail-async)

@ -1 +0,0 @@
(define-package "buffer-move" "20160108.708" "easily swap buffers" 'nil :url "https://github.com/lukhas/buffer-move" :keywords '("lisp" "convenience"))

@ -3,8 +3,8 @@
;;; Code:
(add-to-list 'load-path (or (file-name-directory #$) (car load-path)))
;;;### (autoloads nil "buffer-move" "buffer-move.el" (22297 19848
;;;;;; 209528 72000))
;;;### (autoloads nil "buffer-move" "buffer-move.el" (22387 29375
;;;;;; 754161 271000))
;;; Generated autoloads from buffer-move.el
(autoload 'buf-move-up "buffer-move" "\

@ -0,0 +1 @@
(define-package "buffer-move" "20160615.1103" "easily swap buffers" 'nil :url "https://github.com/lukhas/buffer-move" :keywords '("lisp" "convenience"))

@ -8,7 +8,7 @@
;; Geyslan G. Bem <geyslan@gmail.com>
;; Mathis Hofer <mathis@fsfe.org>
;; Keywords: lisp,convenience
;; Package-Version: 20160108.708
;; Package-Version: 20160615.1103
;; Version: 0.6.2
;; URL : https://github.com/lukhas/buffer-move
@ -92,6 +92,12 @@
:group 'buffer-move
:type 'symbol)
(defcustom buffer-move-stay-after-swap nil
"If set to non-nil, point will stay in the current window
so it will not be moved when swapping buffers. This setting
only has effect if `buffer-move-behavior' is set to 'swap."
:group 'buffer-move
:type 'boolean)
(defun buf-move-to (direction)
"Helper function to move the current buffer to the window in the given
@ -116,7 +122,9 @@
;; switch other window to this buffer
(set-window-buffer other-win buf-this-buf)
(select-window other-win))))
(when (or (null buffer-move-stay-after-swap)
(eq buffer-move-behavior 'move))
(select-window other-win)))))
;;;###autoload
(defun buf-move-up ()

@ -1 +0,0 @@
(define-package "coffee-mode" "20160419.1947" "Major mode for CoffeeScript code" '((emacs "24.1") (cl-lib "0.5")) :url "http://github.com/defunkt/coffee-mode" :keywords '("coffeescript" "major" "mode"))

@ -3,8 +3,8 @@
;;; Code:
(add-to-list 'load-path (or (file-name-directory #$) (car load-path)))
;;;### (autoloads nil "coffee-mode" "coffee-mode.el" (22297 53349
;;;;;; 494925 803000))
;;;### (autoloads nil "coffee-mode" "coffee-mode.el" (22387 29375
;;;;;; 378447 595000))
;;; Generated autoloads from coffee-mode.el
(autoload 'coffee-mode "coffee-mode" "\

@ -0,0 +1 @@
(define-package "coffee-mode" "20160520.146" "Major mode for CoffeeScript code" '((emacs "24.1") (cl-lib "0.5")) :url "http://github.com/defunkt/coffee-mode" :keywords '("coffeescript" "major" "mode"))

@ -3,7 +3,7 @@
;; Copyright (C) 2010 Chris Wanstrath
;; Version: 0.6.3
;; Package-Version: 20160419.1947
;; Package-Version: 20160520.146
;; Keywords: CoffeeScript major mode
;; Author: Chris Wanstrath <chris@ozmm.org>
;; URL: http://github.com/defunkt/coffee-mode
@ -737,7 +737,7 @@ output in a compilation buffer."
"Return the indentation level of the previous non-blank line."
(save-excursion
(forward-line -1)
(while (and (looking-at "^[ \t]*$") (not (bobp)))
(while (and (looking-at-p "^[ \t]*$") (not (bobp)))
(forward-line -1))
(current-indentation)))
@ -815,15 +815,16 @@ previous line."
(or (and char-of-eol (memq char-of-eol coffee-indenters-eol))
(progn
(back-to-indentation)
(looking-at (coffee-indenters-bol-regexp)))))))
(and (looking-at-p (coffee-indenters-bol-regexp))
(not (re-search-forward "\\_<then\\_>" (line-end-position) t))))))))
(defun coffee-previous-line-is-single-line-comment ()
"Return t if the previous line is a CoffeeScript single line comment."
(save-excursion
(forward-line -1)
(back-to-indentation)
(and (looking-at "#")
(not (looking-at "###\\(?:\\s-+.*\\)?$"))
(and (looking-at-p "#")
(not (looking-at-p "###\\(?:\\s-+.*\\)?$"))
(progn
(goto-char (line-end-position))
(nth 4 (syntax-ppss))))))
@ -865,7 +866,7 @@ indented less than COUNT columns."
;; Check that all lines can be shifted enough
(while (< (point) end)
(if (and (< (current-indentation) amount)
(not (looking-at "[ \t]*$")))
(not (looking-at-p "[ \t]*$")))
(error "Can't shift all lines enough"))
(forward-line))
(indent-rigidly start end (- amount)))))))
@ -927,7 +928,7 @@ comments such as the following:
..."
(let ((ret (forward-paragraph count)))
(when (and (= count -1)
(looking-at "[[:space:]]*###[[:space:]]*$"))
(looking-at-p "[[:space:]]*###[[:space:]]*$"))
(forward-line))
ret))
@ -1236,6 +1237,19 @@ comments such as the following:
;; Define Major Mode
;;
(defvar coffee-mode-syntax-table
(let ((table (make-syntax-table)))
;; perl style comment: "# ..."
(modify-syntax-entry ?# "< b" table)
(modify-syntax-entry ?\n "> b" table)
;; Treat slashes as paired delimiters; useful for finding regexps.
(modify-syntax-entry ?/ "/" table)
;; single quote strings
(modify-syntax-entry ?' "\"" table)
table))
;;;###autoload
(define-derived-mode coffee-mode prog-mode "Coffee"
"Major mode for editing CoffeeScript."
@ -1247,18 +1261,9 @@ comments such as the following:
(set (make-local-variable 'comment-line-break-function)
#'coffee-comment-line-break-fn)
(set (make-local-variable 'normal-auto-fill-function) #'coffee-auto-fill-fn)
;; perl style comment: "# ..."
(modify-syntax-entry ?# "< b" coffee-mode-syntax-table)
(modify-syntax-entry ?\n "> b" coffee-mode-syntax-table)
;; Treat slashes as paired delimiters; useful for finding regexps.
(modify-syntax-entry ?/ "/" coffee-mode-syntax-table)
(set (make-local-variable 'comment-start) "#")
;; single quote strings
(modify-syntax-entry ?' "\"" coffee-mode-syntax-table)
;; indentation
(make-local-variable 'coffee-tab-width)
(make-local-variable 'coffee-indent-tabs-mode)

@ -3,8 +3,8 @@
;;; Code:
(add-to-list 'load-path (or (file-name-directory #$) (car load-path)))
;;;### (autoloads nil "company" "company.el" (22303 19286 146174
;;;;;; 415000))
;;;### (autoloads nil "company" "company.el" (22387 29374 119407
;;;;;; 928000))
;;; Generated autoloads from company.el
(autoload 'company-mode "company" "\
@ -73,8 +73,8 @@ inserted.
;;;***
;;;### (autoloads nil "company-abbrev" "company-abbrev.el" (22303
;;;;;; 19286 222174 356000))
;;;### (autoloads nil "company-abbrev" "company-abbrev.el" (22387
;;;;;; 29374 199346 932000))
;;; Generated autoloads from company-abbrev.el
(autoload 'company-abbrev "company-abbrev" "\
@ -84,8 +84,8 @@ inserted.
;;;***
;;;### (autoloads nil "company-bbdb" "company-bbdb.el" (22303 19286
;;;;;; 206174 368000))
;;;### (autoloads nil "company-bbdb" "company-bbdb.el" (22387 29374
;;;;;; 179362 181000))
;;; Generated autoloads from company-bbdb.el
(autoload 'company-bbdb "company-bbdb" "\
@ -95,8 +95,8 @@ inserted.
;;;***
;;;### (autoloads nil "company-css" "company-css.el" (22303 19286
;;;;;; 142174 418000))
;;;### (autoloads nil "company-css" "company-css.el" (22387 29374
;;;;;; 115410 979000))
;;; Generated autoloads from company-css.el
(autoload 'company-css "company-css" "\
@ -106,8 +106,8 @@ inserted.
;;;***
;;;### (autoloads nil "company-dabbrev" "company-dabbrev.el" (22303
;;;;;; 19286 178174 390000))
;;;### (autoloads nil "company-dabbrev" "company-dabbrev.el" (22387
;;;;;; 29374 151383 530000))
;;; Generated autoloads from company-dabbrev.el
(autoload 'company-dabbrev "company-dabbrev" "\
@ -118,7 +118,7 @@ dabbrev-like `company-mode' completion backend.
;;;***
;;;### (autoloads nil "company-dabbrev-code" "company-dabbrev-code.el"
;;;;;; (22303 19286 170174 396000))
;;;;;; (22387 29374 139392 679000))
;;; Generated autoloads from company-dabbrev-code.el
(autoload 'company-dabbrev-code "company-dabbrev-code" "\
@ -130,8 +130,8 @@ comments or strings.
;;;***
;;;### (autoloads nil "company-elisp" "company-elisp.el" (22303 19286
;;;;;; 242174 341000))
;;;### (autoloads nil "company-elisp" "company-elisp.el" (22387 29374
;;;;;; 207340 832000))
;;; Generated autoloads from company-elisp.el
(autoload 'company-elisp "company-elisp" "\
@ -141,8 +141,8 @@ comments or strings.
;;;***
;;;### (autoloads nil "company-etags" "company-etags.el" (22303 19286
;;;;;; 154174 409000))
;;;### (autoloads nil "company-etags" "company-etags.el" (22387 29374
;;;;;; 127401 829000))
;;; Generated autoloads from company-etags.el
(autoload 'company-etags "company-etags" "\
@ -152,8 +152,8 @@ comments or strings.
;;;***
;;;### (autoloads nil "company-files" "company-files.el" (22303 19286
;;;;;; 182174 387000))
;;;### (autoloads nil "company-files" "company-files.el" (22387 29374
;;;;;; 159377 430000))
;;; Generated autoloads from company-files.el
(autoload 'company-files "company-files" "\
@ -165,8 +165,8 @@ File paths with spaces are only supported inside strings.
;;;***
;;;### (autoloads nil "company-gtags" "company-gtags.el" (22303 19286
;;;;;; 114174 440000))
;;;### (autoloads nil "company-gtags" "company-gtags.el" (22387 29374
;;;;;; 87432 327000))
;;; Generated autoloads from company-gtags.el
(autoload 'company-gtags "company-gtags" "\
@ -176,8 +176,8 @@ File paths with spaces are only supported inside strings.
;;;***
;;;### (autoloads nil "company-ispell" "company-ispell.el" (22303
;;;;;; 19286 230174 350000))
;;;### (autoloads nil "company-ispell" "company-ispell.el" (22387
;;;;;; 29374 203343 882000))
;;; Generated autoloads from company-ispell.el
(autoload 'company-ispell "company-ispell" "\
@ -187,8 +187,8 @@ File paths with spaces are only supported inside strings.
;;;***
;;;### (autoloads nil "company-keywords" "company-keywords.el" (22303
;;;;;; 19286 194174 378000))
;;;### (autoloads nil "company-keywords" "company-keywords.el" (22387
;;;;;; 29374 167371 330000))
;;; Generated autoloads from company-keywords.el
(autoload 'company-keywords "company-keywords" "\
@ -198,8 +198,8 @@ File paths with spaces are only supported inside strings.
;;;***
;;;### (autoloads nil "company-nxml" "company-nxml.el" (22303 19286
;;;;;; 210174 365000))
;;;### (autoloads nil "company-nxml" "company-nxml.el" (22387 29374
;;;;;; 187356 81000))
;;; Generated autoloads from company-nxml.el
(autoload 'company-nxml "company-nxml" "\
@ -209,8 +209,8 @@ File paths with spaces are only supported inside strings.
;;;***
;;;### (autoloads nil "company-oddmuse" "company-oddmuse.el" (22303
;;;;;; 19286 134174 424000))
;;;### (autoloads nil "company-oddmuse" "company-oddmuse.el" (22387
;;;;;; 29374 107417 78000))
;;; Generated autoloads from company-oddmuse.el
(autoload 'company-oddmuse "company-oddmuse" "\
@ -220,8 +220,8 @@ File paths with spaces are only supported inside strings.
;;;***
;;;### (autoloads nil "company-semantic" "company-semantic.el" (22303
;;;;;; 19286 122174 434000))
;;;### (autoloads nil "company-semantic" "company-semantic.el" (22387
;;;;;; 29374 91429 277000))
;;; Generated autoloads from company-semantic.el
(autoload 'company-semantic "company-semantic" "\
@ -231,8 +231,8 @@ File paths with spaces are only supported inside strings.
;;;***
;;;### (autoloads nil "company-tempo" "company-tempo.el" (22303 19286
;;;;;; 174174 393000))
;;;### (autoloads nil "company-tempo" "company-tempo.el" (22387 29374
;;;;;; 147386 580000))
;;; Generated autoloads from company-tempo.el
(autoload 'company-tempo "company-tempo" "\
@ -242,8 +242,8 @@ File paths with spaces are only supported inside strings.
;;;***
;;;### (autoloads nil "company-xcode" "company-xcode.el" (22303 19286
;;;;;; 218174 359000))
;;;### (autoloads nil "company-xcode" "company-xcode.el" (22387 29374
;;;;;; 195349 982000))
;;; Generated autoloads from company-xcode.el
(autoload 'company-xcode "company-xcode" "\
@ -254,7 +254,7 @@ File paths with spaces are only supported inside strings.
;;;***
;;;### (autoloads nil "company-yasnippet" "company-yasnippet.el"
;;;;;; (22303 19286 214174 362000))
;;;;;; (22387 29374 191353 32000))
;;; Generated autoloads from company-yasnippet.el
(autoload 'company-yasnippet "company-yasnippet" "\
@ -286,7 +286,7 @@ shadow backends that come after it. Recommended usages:
;;;### (autoloads nil nil ("company-capf.el" "company-clang.el" "company-cmake.el"
;;;;;; "company-eclim.el" "company-pkg.el" "company-template.el")
;;;;;; (22303 19286 253549 387000))
;;;;;; (22387 29374 220274 120000))
;;;***

@ -41,8 +41,11 @@ buffers with the same major mode. See also `company-dabbrev-time-limit'."
(const :tag "All" all)))
(defcustom company-dabbrev-ignore-buffers "\\`[ *]"
"Regexp matching the names of buffers to ignore."
:type 'regexp)
"Regexp matching the names of buffers to ignore.
Or a function that returns non-nil for such buffers."
:type '(choice (regexp :tag "Regexp")
(function :tag "Predicate"))
:package-version '(company . "0.9.0"))
(defcustom company-dabbrev-time-limit .1
"Determines how many seconds `company-dabbrev' should look for matches."
@ -137,14 +140,16 @@ This variable affects both `company-dabbrev' and `company-dabbrev-code'."
ignore-comments)))
(when other-buffer-modes
(cl-dolist (buffer (delq (current-buffer) (buffer-list)))
(with-current-buffer buffer
(when (if (eq other-buffer-modes 'all)
(not (string-match-p company-dabbrev-ignore-buffers
(buffer-name)))
(apply #'derived-mode-p other-buffer-modes))
(setq symbols
(company-dabbrev--search-buffer regexp nil symbols start
limit ignore-comments))))
(unless (if (stringp company-dabbrev-ignore-buffers)
(string-match-p company-dabbrev-ignore-buffers
(buffer-name buffer))
(funcall company-dabbrev-ignore-buffers buffer))
(with-current-buffer buffer
(when (or (eq other-buffer-modes 'all)
(apply #'derived-mode-p other-buffer-modes))
(setq symbols
(company-dabbrev--search-buffer regexp nil symbols start
limit ignore-comments)))))
(and limit
(> (float-time (time-since start)) limit)
(cl-return))))

@ -89,10 +89,11 @@ eclim can only complete correctly when the buffer has been saved."
(defun company-eclim--project-dir ()
(if (eq company-eclim--project-dir 'unknown)
(setq company-eclim--project-dir
(directory-file-name
(expand-file-name
(locate-dominating-file buffer-file-name ".project"))))
(let ((dir (locate-dominating-file buffer-file-name ".project")))
(when dir
(setq company-eclim--project-dir
(directory-file-name
(expand-file-name dir)))))
company-eclim--project-dir))
(defun company-eclim--project-name ()

@ -1,4 +1,4 @@
(define-package "company" "20160424.1521" "Modular text completion framework"
(define-package "company" "20160626.1903" "Modular text completion framework"
'((emacs "24.1")
(cl-lib "0.5"))
:url "http://company-mode.github.io/" :keywords

@ -5,7 +5,7 @@
;; Author: Nikolaj Schumacher
;; Maintainer: Dmitry Gutov <dgutov@yandex.ru>
;; URL: http://company-mode.github.io/
;; Version: 0.9.0-cvs
;; Version: 0.9.0
;; Keywords: abbrev, convenience, matching
;; Package-Requires: ((emacs "24.1") (cl-lib "0.5"))
@ -186,9 +186,13 @@ buffer-local wherever it is set."
(defun company-frontends-set (variable value)
;; Uniquify.
(let ((value (delete-dups (copy-sequence value))))
(and (memq 'company-pseudo-tooltip-unless-just-one-frontend value)
(memq 'company-pseudo-tooltip-frontend value)
(error "Pseudo tooltip frontend cannot be used twice"))
(and (or (and (memq 'company-pseudo-tooltip-unless-just-one-frontend value)
(memq 'company-pseudo-tooltip-frontend value))
(and (memq 'company-pseudo-tooltip-unless-just-one-frontend-with-delay value)
(memq 'company-pseudo-tooltip-frontend value))
(and (memq 'company-pseudo-tooltip-unless-just-one-frontend-with-delay value)
(memq 'company-pseudo-tooltip-unless-just-one-frontend value)))
(error "Pseudo tooltip frontend cannot be used more than once"))
(and (memq 'company-preview-if-just-one-frontend value)
(memq 'company-preview-frontend value)
(error "Preview frontend cannot be used twice"))
@ -233,6 +237,8 @@ The visualized data is stored in `company-prefix', `company-candidates',
company-pseudo-tooltip-frontend)
(const :tag "pseudo tooltip, multiple only"
company-pseudo-tooltip-unless-just-one-frontend)
(const :tag "pseudo tooltip, multiple only, delayed"
company-pseudo-tooltip-unless-just-one-frontend-with-delay)
(const :tag "preview" company-preview-frontend)
(const :tag "preview, unique only"
company-preview-if-just-one-frontend)
@ -420,11 +426,11 @@ call is dispatched to the backend the candidate came from. In other
cases (except for `duplicates' and `sorted'), the first non-nil value among
all the backends is returned.
The group can also contain keywords. Currently, `:with' and `:sorted'
The group can also contain keywords. Currently, `:with' and `:separate'
keywords are defined. If the group contains keyword `:with', the backends
listed after this keyword are ignored for the purpose of the `prefix'
command. If the group contains keyword `:sorted', the final list of
candidates is not sorted after concatenation.
command. If the group contains keyword `:separate', the candidates that
come from different backends are sorted separately in the combined list.
Asynchronous backends
=====================
@ -465,6 +471,8 @@ without duplicates."
(const :tag "Sort by occurrence" (company-sort-by-occurrence))
(const :tag "Sort by backend importance"
(company-sort-by-backend-importance))
(const :tag "Prefer case sensitive prefix"
(company-sort-prefer-same-case-prefix))
(repeat :tag "User defined" (function))))
(defcustom company-completion-started-hook nil
@ -557,6 +565,13 @@ happens. The value of nil means no idle completion."
(const :tag "immediate (0)" 0)
(number :tag "seconds")))
(defcustom company-tooltip-idle-delay .5
"The idle delay in seconds until tooltip is shown when using
`company-pseudo-tooltip-unless-just-one-frontend-with-delay'."
:type '(choice (const :tag "never (nil)" nil)
(const :tag "immediate (0)" 0)
(number :tag "seconds")))
(defcustom company-begin-commands '(self-insert-command
org-self-insert-command
orgtbl-self-insert-command
@ -720,9 +735,6 @@ keymap during active completions (`company-active-map'):
nil company-lighter company-mode-map
(if company-mode
(progn
(when (eq company-idle-delay t)
(setq company-idle-delay 0)
(warn "Setting `company-idle-delay' to t is deprecated. Set it to 0 instead."))
(add-hook 'pre-command-hook 'company-pre-command nil t)
(add-hook 'post-command-hook 'company-post-command nil t)
(mapc 'company-init-backend company-backends))
@ -905,19 +917,19 @@ matches IDLE-BEGIN-AFTER-RE, return it wrapped in a cons."
(let ((backends (cl-loop for b in backends
when (not (and (symbolp b)
(eq 'failed (get b 'company-init))))
collect b)))
collect b))
(separate (memq :separate backends)))
(when (eq command 'prefix)
(setq backends (butlast backends (length (member :with backends)))))
(unless (memq command '(sorted))
(setq backends (cl-delete-if #'keywordp backends)))
(setq backends (cl-delete-if #'keywordp backends))
(pcase command
(`candidates
(company--multi-backend-adapter-candidates backends (car args)))
(`sorted (memq :sorted backends))
(`duplicates t)
(company--multi-backend-adapter-candidates backends (car args) separate))
(`sorted separate)
(`duplicates (not separate))
((or `prefix `ignore-case `no-cache `require-match)
(let (value)
(cl-dolist (backend backends)
@ -931,26 +943,35 @@ matches IDLE-BEGIN-AFTER-RE, return it wrapped in a cons."
(car backends))))
(apply backend command args))))))))
(defun company--multi-backend-adapter-candidates (backends prefix)
(let ((pairs (cl-loop for backend in (cdr backends)
(defun company--multi-backend-adapter-candidates (backends prefix separate)
(let ((pairs (cl-loop for backend in backends
when (equal (company--prefix-str
(funcall backend 'prefix))
prefix)
collect (cons (funcall backend 'candidates prefix)
(let ((b backend))
(lambda (candidates)
(mapcar
(lambda (str)
(propertize str 'company-backend b))
candidates)))))))
(when (equal (company--prefix-str (funcall (car backends) 'prefix)) prefix)
;; Small perf optimization: don't tag the candidates received
;; from the first backend in the group.
(push (cons (funcall (car backends) 'candidates prefix)
'identity)
pairs))
(company--multi-candidates-mapper
backend
separate
;; Small perf optimization: don't tag the
;; candidates received from the first
;; backend in the group.
(not (eq backend (car backends))))))))
(company--merge-async pairs (lambda (values) (apply #'append values)))))
(defun company--multi-candidates-mapper (backend separate tag)
(lambda (candidates)
(when separate
(let ((company-backend backend))
(setq candidates
(company--preprocess-candidates candidates))))
(when tag
(setq candidates
(mapcar
(lambda (str)
(propertize str 'company-backend backend))
candidates)))
candidates))
(defun company--merge-async (pairs merger)
(let ((async (cl-loop for pair in pairs
thereis
@ -1017,6 +1038,7 @@ Controlled by `company-auto-complete'.")
(defvar-local company-point nil)
(defvar company-timer nil)
(defvar company-tooltip-timer nil)
(defsubst company-strip-prefix (str)
(substring str (length company-prefix)))
@ -1202,10 +1224,11 @@ can retrieve meta-data for them."
(progn (setq res 'done) nil)))))
(defun company--preprocess-candidates (candidates)
(cl-assert (cl-every #'stringp candidates))
(unless (company-call-backend 'sorted)
(setq candidates (sort candidates 'string<)))
(when (company-call-backend 'duplicates)
(setq candidates (company--strip-duplicates candidates)))
(company--strip-duplicates candidates))
candidates)
(defun company--postprocess-candidates (candidates)
@ -1216,37 +1239,27 @@ can retrieve meta-data for them."
(company--transform-candidates candidates))
(defun company--strip-duplicates (candidates)
(let* ((annos 'unk)
(str (car candidates))
(ref (cdr candidates))
res str2 anno2)
(while ref
(setq str2 (pop ref))
(if (not (equal str str2))
(progn
(push str res)
(setq str str2)
(setq annos 'unk))
(setq anno2 (company-call-backend
'annotation str2))
(cond
((null anno2)) ; Skip it.
((when (eq annos 'unk)
(let ((ann1 (company-call-backend 'annotation str)))
(if (null ann1)
;; No annotation on the earlier element, drop it.
t
(setq annos (list ann1))
nil)))
(setq annos (list anno2))
(setq str str2))
((member anno2 annos)) ; Also skip.
(t
(push anno2 annos)
(push str res) ; Maintain ordering.
(setq str str2)))))
(when str (push str res))
(nreverse res)))
(let ((c2 candidates)
(annos 'unk))
(while c2
(setcdr c2
(let ((str (pop c2)))
(while (let ((str2 (car c2)))
(if (not (equal str str2))
(progn
(setq annos 'unk)
nil)
(when (eq annos 'unk)
(setq annos (list (company-call-backend
'annotation str))))
(let ((anno2 (company-call-backend
'annotation str2)))
(if (member anno2 annos)
t
(push anno2 annos)
nil))))
(pop c2))
c2)))))
(defun company--transform-candidates (candidates)
(let ((c candidates))
@ -1340,6 +1353,16 @@ from the rest of the backends in the group, if any, will be left at the end."
(let ((b1 (get-text-property 0 'company-backend c1)))
(or (not b1) (not (memq b1 low-priority)))))))))))
(defun company-sort-prefer-same-case-prefix (candidates)
"Prefer CANDIDATES with the exact same prefix.
If a backend returns case insensitive matches, candidates with the an exact
prefix match (same case) will be prioritized."
(cl-loop for candidate in candidates
if (string-prefix-p company-prefix candidate)
collect candidate into same-case
else collect candidate into other-case
finally return (append same-case other-case)))
(defun company-idle-begin (buf win tick pos)
(and (eq buf (current-buffer)