From 407d6eccdb61049a68fee72c512a4dee7da5dc81 Mon Sep 17 00:00:00 2001 From: Andreas Gerler Date: Thu, 23 Nov 2023 19:10:04 +0100 Subject: [PATCH] update auto-complete Signed-off-by: Andreas Gerler --- bba.org | 4 +- .../auto-complete-pkg.el | 6 - .../auto-complete-autoloads.el | 34 +- .../auto-complete-config.el | 102 ++-- .../auto-complete-pkg.el | 13 + .../auto-complete.el | 486 +++++++++++------- .../dict/ada-mode | 0 .../dict/c++-mode | 0 .../dict/c-mode | 0 .../dict/caml-mode | 0 .../dict/clojure-mode | 0 .../dict/clojurescript-mode | 0 .../dict/coq-mode | 0 .../dict/css-mode | 0 .../dict/erlang-mode | 0 .../dict/ess-julia-mode | 0 .../dict/go-mode | 0 .../dict/haskell-mode | 0 .../dict/java-mode | 0 .../dict/js-mode | 0 .../dict/julia-mode | 0 .../dict/lua-mode | 0 .../dict/nim-mode | 0 .../dict/objc-mode | 163 ++++-- .../dict/octave-mode | 0 .../dict/php-mode | 0 .../dict/python-mode | 0 .../dict/qml-mode | 0 .../dict/ruby-mode | 0 .../dict/scala-mode | 0 .../dict/scheme-mode | 0 .../dict/sclang-mode | 0 .../dict/sh-mode | 0 .../dict/swift-mode | 43 +- .../dict/tcl-mode | 0 .../dict/ts-mode | 0 .../dict/tuareg-mode | 0 .../dict/verilog-mode | 0 .../auto-complete-pcmp-pkg.el | 2 - .../auto-complete-pcmp-autoloads.el | 8 +- .../auto-complete-pcmp-pkg.el | 16 + .../auto-complete-pcmp.el | 1 - 42 files changed, 552 insertions(+), 326 deletions(-) delete mode 100644 elpa/auto-complete-20170125.245/auto-complete-pkg.el rename elpa/{auto-complete-20170125.245 => auto-complete-20221231.1633}/auto-complete-autoloads.el (63%) rename elpa/{auto-complete-20170125.245 => auto-complete-20221231.1633}/auto-complete-config.el (87%) create mode 100644 elpa/auto-complete-20221231.1633/auto-complete-pkg.el rename elpa/{auto-complete-20170125.245 => auto-complete-20221231.1633}/auto-complete.el (85%) rename elpa/{auto-complete-20170125.245 => auto-complete-20221231.1633}/dict/ada-mode (100%) rename elpa/{auto-complete-20170125.245 => auto-complete-20221231.1633}/dict/c++-mode (100%) rename elpa/{auto-complete-20170125.245 => auto-complete-20221231.1633}/dict/c-mode (100%) rename elpa/{auto-complete-20170125.245 => auto-complete-20221231.1633}/dict/caml-mode (100%) rename elpa/{auto-complete-20170125.245 => auto-complete-20221231.1633}/dict/clojure-mode (100%) rename elpa/{auto-complete-20170125.245 => auto-complete-20221231.1633}/dict/clojurescript-mode (100%) rename elpa/{auto-complete-20170125.245 => auto-complete-20221231.1633}/dict/coq-mode (100%) rename elpa/{auto-complete-20170125.245 => auto-complete-20221231.1633}/dict/css-mode (100%) rename elpa/{auto-complete-20170125.245 => auto-complete-20221231.1633}/dict/erlang-mode (100%) rename elpa/{auto-complete-20170125.245 => auto-complete-20221231.1633}/dict/ess-julia-mode (100%) rename elpa/{auto-complete-20170125.245 => auto-complete-20221231.1633}/dict/go-mode (100%) rename elpa/{auto-complete-20170125.245 => auto-complete-20221231.1633}/dict/haskell-mode (100%) rename elpa/{auto-complete-20170125.245 => auto-complete-20221231.1633}/dict/java-mode (100%) rename elpa/{auto-complete-20170125.245 => auto-complete-20221231.1633}/dict/js-mode (100%) rename elpa/{auto-complete-20170125.245 => auto-complete-20221231.1633}/dict/julia-mode (100%) rename elpa/{auto-complete-20170125.245 => auto-complete-20221231.1633}/dict/lua-mode (100%) rename elpa/{auto-complete-20170125.245 => auto-complete-20221231.1633}/dict/nim-mode (100%) rename elpa/{auto-complete-20170125.245 => auto-complete-20221231.1633}/dict/objc-mode (54%) rename elpa/{auto-complete-20170125.245 => auto-complete-20221231.1633}/dict/octave-mode (100%) rename elpa/{auto-complete-20170125.245 => auto-complete-20221231.1633}/dict/php-mode (100%) rename elpa/{auto-complete-20170125.245 => auto-complete-20221231.1633}/dict/python-mode (100%) rename elpa/{auto-complete-20170125.245 => auto-complete-20221231.1633}/dict/qml-mode (100%) rename elpa/{auto-complete-20170125.245 => auto-complete-20221231.1633}/dict/ruby-mode (100%) rename elpa/{auto-complete-20170125.245 => auto-complete-20221231.1633}/dict/scala-mode (100%) rename elpa/{auto-complete-20170125.245 => auto-complete-20221231.1633}/dict/scheme-mode (100%) rename elpa/{auto-complete-20170125.245 => auto-complete-20221231.1633}/dict/sclang-mode (100%) rename elpa/{auto-complete-20170125.245 => auto-complete-20221231.1633}/dict/sh-mode (100%) rename elpa/{auto-complete-20170125.245 => auto-complete-20221231.1633}/dict/swift-mode (94%) rename elpa/{auto-complete-20170125.245 => auto-complete-20221231.1633}/dict/tcl-mode (100%) rename elpa/{auto-complete-20170125.245 => auto-complete-20221231.1633}/dict/ts-mode (100%) rename elpa/{auto-complete-20170125.245 => auto-complete-20221231.1633}/dict/tuareg-mode (100%) rename elpa/{auto-complete-20170125.245 => auto-complete-20221231.1633}/dict/verilog-mode (100%) delete mode 100644 elpa/auto-complete-pcmp-20140227.651/auto-complete-pcmp-pkg.el rename elpa/{auto-complete-pcmp-20140227.651 => auto-complete-pcmp-20140303.255}/auto-complete-pcmp-autoloads.el (73%) create mode 100644 elpa/auto-complete-pcmp-20140303.255/auto-complete-pcmp-pkg.el rename elpa/{auto-complete-pcmp-20140227.651 => auto-complete-pcmp-20140303.255}/auto-complete-pcmp.el (99%) diff --git a/bba.org b/bba.org index 0e2c67fc..d6d65581 100644 --- a/bba.org +++ b/bba.org @@ -1108,9 +1108,9 @@ list who can decrypt a file: * auto-completion #+BEGIN_SRC emacs-lisp - (add-to-list 'load-path "~/.emacs.d/elpa/auto-complete-20170125.245") + (add-to-list 'load-path "~/.emacs.d/elpa/auto-complete-20221231.1633") (require 'auto-complete-config) - (add-to-list 'ac-dictionary-directories "~/.emacs.d/elpa/auto-complete-20170125.245") + (add-to-list 'ac-dictionary-directories "~/.emacs.d/elpa/auto-complete-20221231.1633") (add-to-list 'ac-dictionary-directories "~/.emacs.d/ac-dict") (ac-config-default) (add-to-list 'ac-modes 'cfengine3-mode) diff --git a/elpa/auto-complete-20170125.245/auto-complete-pkg.el b/elpa/auto-complete-20170125.245/auto-complete-pkg.el deleted file mode 100644 index 4993135b..00000000 --- a/elpa/auto-complete-20170125.245/auto-complete-pkg.el +++ /dev/null @@ -1,6 +0,0 @@ -(define-package "auto-complete" "20170125.245" "Auto Completion for GNU Emacs" - '((popup "0.5.0") - (cl-lib "0.5"))) -;; Local Variables: -;; no-byte-compile: t -;; End: diff --git a/elpa/auto-complete-20170125.245/auto-complete-autoloads.el b/elpa/auto-complete-20221231.1633/auto-complete-autoloads.el similarity index 63% rename from elpa/auto-complete-20170125.245/auto-complete-autoloads.el rename to elpa/auto-complete-20221231.1633/auto-complete-autoloads.el index ef58518c..14b0957e 100644 --- a/elpa/auto-complete-20170125.245/auto-complete-autoloads.el +++ b/elpa/auto-complete-20221231.1633/auto-complete-autoloads.el @@ -1,4 +1,4 @@ -;;; auto-complete-autoloads.el --- automatically extracted autoloads +;;; auto-complete-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*- ;; ;;; Code: @@ -17,8 +17,24 @@ Start auto-completion at current point. (autoload 'auto-complete-mode "auto-complete" "\ AutoComplete mode +This is a minor mode. If called interactively, toggle the +`Auto-Complete mode' mode. If the prefix argument is positive, +enable the mode, and if it is zero or negative, disable the mode. + +If called from Lisp, toggle the mode if ARG is `toggle'. Enable +the mode if ARG is nil, omitted, or is a positive number. +Disable the mode if ARG is a negative number. + +To check whether the minor mode is enabled in the current buffer, +evaluate `auto-complete-mode'. + +The mode's hook is called both when the mode is enabled and when +it is disabled. + \(fn &optional ARG)" t nil) +(put 'global-auto-complete-mode 'globalized-minor-mode t) + (defvar global-auto-complete-mode nil "\ Non-nil if Global Auto-Complete mode is enabled. See the `global-auto-complete-mode' command @@ -32,16 +48,20 @@ or call the function `global-auto-complete-mode'.") (autoload 'global-auto-complete-mode "auto-complete" "\ Toggle Auto-Complete mode in all buffers. With prefix ARG, enable Global Auto-Complete mode if ARG is positive; -otherwise, disable it. If called from Lisp, enable the mode if -ARG is omitted or nil. +otherwise, disable it. + +If called from Lisp, toggle the mode if ARG is `toggle'. +Enable the mode if ARG is nil, omitted, or is a positive number. +Disable the mode if ARG is a negative number. Auto-Complete mode is enabled in all buffers where `auto-complete-mode-maybe' would do it. + See `auto-complete-mode' for more information on Auto-Complete mode. \(fn &optional ARG)" t nil) -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "auto-complete" '("auto-complete-mode" "ac-"))) +(register-definition-prefixes "auto-complete" '("ac-" "auto-complete-mode")) ;;;*** @@ -50,11 +70,9 @@ See `auto-complete-mode' for more information on Auto-Complete mode. ;;; Generated autoloads from auto-complete-config.el (autoload 'ac-config-default "auto-complete-config" "\ +No documentation." nil nil) - -\(fn)" nil nil) - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "auto-complete-config" '("ac-"))) +(register-definition-prefixes "auto-complete-config" '("ac-")) ;;;*** diff --git a/elpa/auto-complete-20170125.245/auto-complete-config.el b/elpa/auto-complete-20221231.1633/auto-complete-config.el similarity index 87% rename from elpa/auto-complete-20170125.245/auto-complete-config.el rename to elpa/auto-complete-20221231.1633/auto-complete-config.el index c04fddf9..bb43166a 100644 --- a/elpa/auto-complete-20170125.245/auto-complete-config.el +++ b/elpa/auto-complete-20221231.1633/auto-complete-config.el @@ -1,10 +1,7 @@ ;;; auto-complete-config.el --- auto-complete additional configuations -;; Copyright (C) 2009, 2010 Tomohiro Matsuyama - -;; Author: Tomohiro Matsuyama -;; Keywords: convenience -;; Version: 1.5.0 +;; Copyright (C) 2009-2010 Tomohiro Matsuyama +;; Copyright (C) 2020-2023 Jen-Chieh Shen ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by @@ -47,6 +44,7 @@ (ac-clear-variable-every-10-minutes 'ac-imenu-index) (defun ac-imenu-candidates () + "No documentation." (cl-loop with i = 0 with stack = (progn (unless (local-variable-p 'ac-imenu-index) @@ -95,6 +93,7 @@ :group 'auto-complete) (defun ac-gtags-candidate () + "No documentation." (ignore-errors (split-string (shell-command-to-string (format "global -ciq %s" ac-prefix)) "\n"))) @@ -119,6 +118,7 @@ :group 'auto-complete) (defun ac-yasnippet-table-hash (table) + "No documentation, TABLE." (cond ((fboundp 'yas/snippet-table-hash) (yas/snippet-table-hash table)) @@ -126,6 +126,7 @@ (yas/table-hash table)))) (defun ac-yasnippet-table-parent (table) + "No documentation, TABLE." (cond ((fboundp 'yas/snippet-table-parent) (yas/snippet-table-parent table)) @@ -133,6 +134,7 @@ (yas/table-parent table)))) (defun ac-yasnippet-candidate-1 (table) + "No documentation, TABLE." (with-no-warnings (let ((hashtab (ac-yasnippet-table-hash table)) (parent (ac-yasnippet-table-parent table)) @@ -141,12 +143,13 @@ (push key candidates)) hashtab) (setq candidates (all-completions ac-prefix (nreverse candidates))) - (if parent - (setq candidates - (append candidates (ac-yasnippet-candidate-1 parent)))) + (when parent + (setq candidates + (append candidates (ac-yasnippet-candidate-1 parent)))) candidates))) (defun ac-yasnippet-candidates () + "No documentation." (with-no-warnings (cond (;; 0.8 onwards (fboundp 'yas-active-keys) @@ -166,8 +169,8 @@ (yas/snippet-table major-mode) ;; 0.6.0 (yas/current-snippet-table)))) - (if table - (ac-yasnippet-candidate-1 table))))))) + (when table + (ac-yasnippet-candidate-1 table))))))) (ac-define-source yasnippet '((depends yasnippet) @@ -180,6 +183,7 @@ ;; semantic (defun ac-semantic-candidates (prefix) + "No documentation, PREFIX." (with-no-warnings (delete "" ; semantic sometimes returns an empty string (mapcar (lambda (elem) @@ -191,6 +195,7 @@ (senator-find-tag-for-completion prefix))))))) (defun ac-semantic-doc (symbol) + "No documentation, SYMBOL." (with-no-warnings (let* ((proto (semantic-format-tag-summarize-with-file symbol nil t)) (doc (semantic-documentation-for-tag symbol)) @@ -200,6 +205,7 @@ res))) (defun ac-semantic-action () + "No documentation." (when (and (boundp 'yas-minor-mode) yas-minor-mode) (let* ((tag (car (last (oref (semantic-analyze-current-context) prefix)))) (class (semantic-tag-class tag)) @@ -242,6 +248,7 @@ ;; eclim (defun ac-eclim-candidates () + "No documentation." (with-no-warnings (cl-loop for c in (eclim/java-complete) collect (nth 1 c)))) @@ -421,25 +428,32 @@ "Current editing property.") (defun ac-css-prefix () - (when (save-excursion (re-search-backward "\\_<\\(.+?\\)\\_>\\s *:[^;]*\\=" nil t)) - (setq ac-css-property (match-string 1)) + "No documentation." + (when (save-excursion + (or (and (re-search-backward "\\_<\\(.+?\\)\\_>\\s *:[^;]*\\=" nil t) + (setq ac-css-property (match-string 1))) + (and (re-search-backward "\\(?:^\\|;\\)\\s *[^:]*\\=" nil t) + (setq ac-css-property t)))) (or (ac-prefix-symbol) (point)))) (defun ac-css-property-candidates () - (let ((list (assoc-default ac-css-property ac-css-property-alist))) - (if list - (cl-loop with seen - with value - while (setq value (pop list)) - if (symbolp value) - do (unless (memq value seen) - (push value seen) - (setq list - (append list - (or (assoc-default value ac-css-value-classes) - (assoc-default (symbol-name value) ac-css-property-alist))))) - else collect value) - ac-css-pseudo-classes))) + "No documentation." + (if (not (stringp ac-css-property)) + (mapcar 'car ac-css-property-alist) + (let ((list (assoc-default ac-css-property ac-css-property-alist))) + (if list + (cl-loop with seen + with value + while (setq value (pop list)) + if (symbolp value) + do (unless (memq value seen) + (push value seen) + (setq list + (append list + (or (assoc-default value ac-css-value-classes) + (assoc-default (symbol-name value) ac-css-property-alist))))) + else collect value) + ac-css-pseudo-classes)))) (ac-define-source css-property '((candidates . ac-css-property-candidates) @@ -467,20 +481,24 @@ ;; ropemacs (defvar ac-ropemacs-loaded nil) + (defun ac-ropemacs-require () + "No documentation." (with-no-warnings (unless ac-ropemacs-loaded (pymacs-load "ropemacs" "rope-") - (if (boundp 'ropemacs-enable-autoimport) - (setq ropemacs-enable-autoimport t)) + (when (boundp 'ropemacs-enable-autoimport) + (setq ropemacs-enable-autoimport t)) (setq ac-ropemacs-loaded t)))) (defun ac-ropemacs-setup () + "No documentation." (ac-ropemacs-require) - ;(setq ac-sources (append (list 'ac-source-ropemacs) ac-sources)) + ;;(setq ac-sources (append (list 'ac-source-ropemacs) ac-sources)) (setq ac-omni-completion-sources '(("\\." ac-source-ropemacs)))) (defun ac-ropemacs-initialize () + "No documentation." (autoload 'pymacs-apply "pymacs") (autoload 'pymacs-call "pymacs") (autoload 'pymacs-eval "pymacs" nil t) @@ -523,22 +541,38 @@ ;;;; Default settings (defun ac-common-setup () - ;(add-to-list 'ac-sources 'ac-source-filename) + "No documentation." + ;; TODO: Don't know this is commented; leave an empty function. + ;;(add-to-list 'ac-sources 'ac-source-filename) ) (defun ac-emacs-lisp-mode-setup () - (setq ac-sources (append '(ac-source-features ac-source-functions ac-source-yasnippet ac-source-variables ac-source-symbols) ac-sources))) + "No documentation." + (setq ac-sources (cl-union '(ac-source-features + ac-source-functions + ac-source-yasnippet + ac-source-variables + ac-source-symbols) + ac-sources))) (defun ac-cc-mode-setup () - (setq ac-sources (append '(ac-source-yasnippet ac-source-gtags) ac-sources))) + "No documentation." + (setq ac-sources (cl-union '(ac-source-yasnippet ac-source-gtags) + ac-sources))) -(defun ac-ruby-mode-setup ()) +(defun ac-ruby-mode-setup () + "No documentation." + ;; TODO: Don't know this is commented; leave an empty function. + ) (defun ac-css-mode-setup () - (setq ac-sources (append '(ac-source-css-property) ac-sources))) + "No documentation." + (setq ac-sources (cl-union '(ac-source-css-property) + ac-sources))) ;;;###autoload (defun ac-config-default () + "No documentation." (setq-default ac-sources '(ac-source-abbrev ac-source-dictionary ac-source-words-in-same-mode-buffers)) (add-hook 'emacs-lisp-mode-hook 'ac-emacs-lisp-mode-setup) (add-hook 'c-mode-common-hook 'ac-cc-mode-setup) diff --git a/elpa/auto-complete-20221231.1633/auto-complete-pkg.el b/elpa/auto-complete-20221231.1633/auto-complete-pkg.el new file mode 100644 index 00000000..715b5092 --- /dev/null +++ b/elpa/auto-complete-20221231.1633/auto-complete-pkg.el @@ -0,0 +1,13 @@ +(define-package "auto-complete" "20221231.1633" "Auto Completion for GNU Emacs" + '((popup "0.5.0") + (cl-lib "0.5")) + :commit "59c11c453bfa0794302848a004d1be3b1684f17b" :authors + '(("Tomohiro Matsuyama" . "m2ym.pub@gmail.com")) + :maintainer + '("Jen-Chieh Shen" . "jcs090218@gmail.com") + :keywords + '("completion" "convenience") + :url "https://github.com/auto-complete/auto-complete") +;; Local Variables: +;; no-byte-compile: t +;; End: diff --git a/elpa/auto-complete-20170125.245/auto-complete.el b/elpa/auto-complete-20221231.1633/auto-complete.el similarity index 85% rename from elpa/auto-complete-20170125.245/auto-complete.el rename to elpa/auto-complete-20221231.1633/auto-complete.el index ec5df3fb..40d623f5 100644 --- a/elpa/auto-complete-20170125.245/auto-complete.el +++ b/elpa/auto-complete-20221231.1633/auto-complete.el @@ -1,11 +1,14 @@ ;;; auto-complete.el --- Auto Completion for GNU Emacs -;; Copyright (C) 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015 Tomohiro Matsuyama +;; Copyright (C) 2008-2015 Tomohiro Matsuyama +;; Copyright (C) 2020-2023 Jen-Chieh Shen ;; Author: Tomohiro Matsuyama +;; Maintainer: Jen-Chieh Shen ;; URL: https://github.com/auto-complete/auto-complete ;; Keywords: completion, convenience ;; Version: 1.5.1 +;; Package-Requires: ((emacs "25.1") (popup "0.5.8")) ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by @@ -44,14 +47,14 @@ (defconst ac-version "1.5.1" - "Version of auto-complete in string format. + "Version of `auto-complete' in string format. Use `version-to-list' to get version component.") (defconst ac-version-major (car (version-to-list ac-version)) - "Major version number of auto-complete") + "Major version number of `auto-complete'.") (defconst ac-version-minor (cadr (version-to-list ac-version)) - "Minor version number of auto-complete") + "Minor version number of `auto-complete'.") (require 'cl-lib) (require 'popup) @@ -59,7 +62,9 @@ Use `version-to-list' to get version component.") ;;;; Global stuff (defun ac-error (&optional var) - "Report an error and disable `auto-complete-mode'." + "Report an error and disable 'auto-complete-mode'. + +An optional argument VAR is the message related to the current error." (ignore-errors (message "auto-complete error: %s" var) (auto-complete-mode -1) @@ -141,7 +146,7 @@ Use `version-to-list' to get version component.") :group 'auto-complete) (defcustom ac-user-dictionary nil - "User defined dictionary" + "User defined dictionary." :type '(repeat string) :group 'auto-complete) @@ -156,9 +161,9 @@ Use `version-to-list' to get version component.") (when load-file-name (let ((installed-dir (file-name-directory load-file-name))) (cl-loop for name in '("ac-dict" "dict") - for dir = (concat installed-dir name) - if (file-directory-p dir) - collect dir)))) + for dir = (concat installed-dir name) + if (file-directory-p dir) + collect dir)))) "Dictionary directories." :type '(repeat string) :group 'auto-complete) @@ -191,36 +196,37 @@ Use `version-to-list' to get version component.") (defvaralias 'ac-quick-help-prefer-x 'ac-quick-help-prefer-pos-tip) (defcustom ac-candidate-limit nil - "Limit number of candidates. Non-integer means no limit." + "Limit number of candidates. Non-integer means no limit." :type 'integer :group 'auto-complete) (defvaralias 'ac-candidate-max 'ac-candidate-limit) (defcustom ac-modes - '(emacs-lisp-mode lisp-mode lisp-interaction-mode - slime-repl-mode - nim-mode c-mode cc-mode c++-mode objc-mode swift-mode go-mode - java-mode malabar-mode clojure-mode clojurescript-mode scala-mode - scheme-mode - ocaml-mode tuareg-mode coq-mode haskell-mode agda-mode agda2-mode - perl-mode cperl-mode python-mode ruby-mode lua-mode tcl-mode - ecmascript-mode javascript-mode js-mode js-jsx-mode js2-mode js2-jsx-mode - coffee-mode php-mode css-mode scss-mode less-css-mode - elixir-mode - makefile-mode sh-mode fortran-mode f90-mode ada-mode - xml-mode sgml-mode web-mode - ts-mode - sclang-mode - verilog-mode - qml-mode - apples-mode) - "Major modes `auto-complete-mode' can run on." + (append + '(emacs-lisp-mode lisp-mode lisp-interaction-mode) + '(slime-repl-mode) + '(nim-mode c-mode cc-mode c++-mode objc-mode swift-mode go-mode) + '(java-mode malabar-mode clojure-mode clojurescript-mode scala-mode) + '(scheme-mode) + '(ocaml-mode tuareg-mode coq-mode haskell-mode agda-mode agda2-mode) + '(perl-mode cperl-mode python-mode ruby-mode lua-mode tcl-mode) + '(ecmascript-mode javascript-mode js-mode js-jsx-mode js2-mode js2-jsx-mode) + '(coffee-mode php-mode css-mode scss-mode less-css-mode) + '(elixir-mode) + '(makefile-mode sh-mode fortran-mode f90-mode ada-mode) + '(xml-mode sgml-mode web-mode) + '(ts-mode) + '(sclang-mode) + '(verilog-mode) + '(qml-mode) + '(apples-mode)) + "Major modes 'auto-complete-mode' can run on." :type '(repeat symbol) :group 'auto-complete) (defcustom ac-compatible-packages-regexp "^ac-" - "Regexp to indicate what packages can work with auto-complete." + "Regexp to indicate what packages can work with `auto-complete'." :type 'string :group 'auto-complete) @@ -265,9 +271,9 @@ and if there is no completions, an original command will be fallbacked." (defcustom ac-auto-start 2 "Non-nil means completion will be started automatically. -Positive integer means if a length of a word you entered is larger than the value, -completion will be started automatically. -If you specify `nil', never be started automatically." +Positive integer means if a length of a word you entered is larger than +the value, completion will be started automatically. +If you specify 'nil', never be started automatically." :type '(choice (const :tag "Yes" t) (const :tag "Never" nil) (integer :tag "Require")) @@ -285,8 +291,8 @@ If you specify `nil', never be started automatically." :group 'auto-complete) (defcustom ac-ignore-case 'smart - "Non-nil means auto-complete ignores case. -If this value is `smart', auto-complete ignores case only when + "Non-nil means `auto-complete' ignores case. +If this value is `smart', `auto-complete' ignores case only when a prefix doesn't contain any upper case letters." :type '(choice (const :tag "Yes" t) (const :tag "Smart" smart) @@ -309,17 +315,17 @@ a prefix doesn't contain any upper case letters." :group 'auto-complete) (defcustom ac-disable-inline nil - "Non-nil disable inline completion visibility" + "Non-nil disable inline completion visibility." :type 'boolean :group 'auto-complete) (defcustom ac-candidate-menu-min 1 - "Number of candidates required to display menu" + "Number of candidates required to display menu." :type 'integer :group 'auto-complete) (defcustom ac-max-width nil - "Maximum width for auto-complete menu to have" + "Maximum width for `auto-complete' menu to have." :type '(choice (const :tag "No limit" nil) (const :tag "Character Limit" 25) (const :tag "Window Ratio Limit" 0.5)) @@ -346,7 +352,7 @@ a prefix doesn't contain any upper case letters." :group 'auto-complete) (defvar auto-complete-mode-hook nil - "Hook for `auto-complete-mode'.") + "Hook for 'auto-complete-mode'.") @@ -371,13 +377,13 @@ a prefix doesn't contain any upper case letters." "Cons of prefix marker and selected item of last completion.") (defvar ac-quick-help nil - "Quick help instance") + "Quick help instance.") (defvar ac-completing nil - "Non-nil means `auto-complete-mode' is now working on completion.") + "Non-nil means 'auto-complete-mode' is now working on completion.") (defvar ac-buffer nil - "Buffer where auto-complete is started.") + "Buffer where `auto-complete' is started.") (defvar ac-point nil "Start point of prefix.") @@ -431,7 +437,8 @@ If there is no common part, this will be nil.") "Non-nil means DWIM completion will be allowed.") (defvar ac-mode-map (make-sparse-keymap) - "Auto-complete mode map. It is also used for trigger key command. See also `ac-trigger-key'.") + "Auto-complete mode map. It is also used for trigger key command. +See also `ac-trigger-key'.") (defvar ac-completing-map (let ((map (make-sparse-keymap))) @@ -455,6 +462,9 @@ If there is no common part, this will be nil.") (define-key map "\C-\M-n" 'ac-quick-help-scroll-down) (define-key map "\C-\M-p" 'ac-quick-help-scroll-up) + (define-key map (kbd "") #'ac-next-page) + (define-key map (kbd "") #'ac-previous-page) + (dotimes (i 9) (let ((symbol (intern (format "ac-complete-select-%d" (1+ i))))) (fset symbol @@ -477,8 +487,12 @@ If there is no common part, this will be nil.") (define-key map "\C-s" 'ac-isearch) (define-key map [mouse-1] 'ac-mouse-1) (define-key map [down-mouse-1] 'ac-ignore) - (define-key map [mouse-4] 'ac-mouse-4) - (define-key map [mouse-5] 'ac-mouse-5) + (if (string-equal system-type "gnu/linux") + (progn + (define-key map [mouse-4] 'ac-mouse-4) + (define-key map [mouse-5] 'ac-mouse-5)) + (define-key map [wheel-up] 'ac-mouse-4) + (define-key map [wheel-down] 'ac-mouse-5)) map) "Keymap for completion on completing menu.") @@ -507,7 +521,7 @@ If there is no common part, this will be nil.") "Compiled source of `ac-sources'.") (defvar ac-current-sources nil - "Current working sources. This is sublist of `ac-compiled-sources'.") + "Current working sources. This is sublist of 'ac-compiled-sources'.") (defvar ac-omni-completion-sources nil "Do not use this anymore.") @@ -524,18 +538,23 @@ If there is no common part, this will be nil.") "Database of completion history.") (defsubst ac-comphist-make-tab () + "No documentation." (make-hash-table :test 'equal)) (defsubst ac-comphist-tab (db) + "No documentation, DB." (nth 0 db)) (defsubst ac-comphist-cache (db) + "No documentation, DB." (nth 1 db)) (defun ac-comphist-make (&optional tab) + "No documentation, TAB." (list (or tab (ac-comphist-make-tab)) (make-hash-table :test 'equal :weakness t))) (defun ac-comphist-get (db string &optional create) + "No documentation, DB, STRING, CREATE." (let* ((tab (ac-comphist-tab db)) (index (gethash string tab))) (when (and create (null index)) @@ -544,6 +563,7 @@ If there is no common part, this will be nil.") index)) (defun ac-comphist-add (db string prefix) + "No documentation, DB, STRING, PREFIX." (setq prefix (min prefix (1- (length string)))) (when (<= 0 prefix) (setq string (substring-no-properties string)) @@ -552,6 +572,7 @@ If there is no common part, this will be nil.") (remhash string (ac-comphist-cache db))))) (defun ac-comphist-score (db string prefix) + "No documentation, DB, STRING, PREFIX." (setq prefix (min prefix (1- (length string)))) (if (<= 0 prefix) (let ((cache (gethash string (ac-comphist-cache db)))) @@ -560,14 +581,14 @@ If there is no common part, this will be nil.") (score 0.0)) (when stat (cl-loop for p from 0 below (length string) - ;; sigmoid function - with a = 5 - with b = (/ 700.0 a) ; bounds for avoiding range error in `exp' - with d = (/ 6.0 a) - for x = (max (- b) (min b (- d (abs (- prefix p))))) - for r = (/ 1.0 (1+ (exp (* (- a) x)))) - do - (cl-incf score (* (aref stat p) r)))) + ;; sigmoid function + with a = 5 + with b = (/ 700.0 a) ; bounds for avoiding range error in `exp' + with d = (/ 6.0 a) + for x = (max (- b) (min b (- d (abs (- prefix p))))) + for r = (/ 1.0 (1+ (exp (* (- a) x)))) + do + (cl-incf score (* (aref stat p) r)))) ;; Weight by distance (cl-incf score (max 0.0 (- 0.3 (/ (- (length string) prefix) 100.0)))) (unless cache @@ -578,28 +599,26 @@ If there is no common part, this will be nil.") 0.0)) (defun ac-comphist-sort (db collection prefix &optional threshold) - (let (result - (n 0) - (total 0) - (cur 0)) - (setq result (mapcar (lambda (a) - (when (and cur threshold) - (if (>= cur (* total threshold)) - (setq cur nil) - (cl-incf n) - (cl-incf cur (cdr a)))) - (car a)) - (sort (mapcar (lambda (string) - (let ((score (ac-comphist-score db string prefix))) - (cl-incf total score) - (cons string score))) - collection) - (lambda (a b) (< (cdr b) (cdr a)))))) - (if threshold - (cons n result) - result))) + "No documentation, DB, COLLECTION, PREFIX, THRESHOLD." + (let ((n 0) (total 0) (cur 0) result) + (setq result + (mapcar (lambda (a) + (when (and cur threshold) + (if (>= cur (* total threshold)) + (setq cur nil) + (cl-incf n) + (cl-incf cur (cdr a)))) + (car a)) + (sort (mapcar (lambda (string) + (let ((score (ac-comphist-score db string prefix))) + (cl-incf total score) + (cons string score))) + collection) + (lambda (a b) (< (cdr b) (cdr a)))))) + (if threshold (cons n result) result))) (defun ac-comphist-serialize (db) + "No documentation, DB." (let (alist) (maphash (lambda (k v) (push (cons k v) alist)) @@ -607,6 +626,7 @@ If there is no common part, this will be nil.") (list alist))) (defun ac-comphist-deserialize (sexp) + "No documentation, SEXP." (condition-case nil (ac-comphist-make (let ((tab (ac-comphist-make-tab))) (mapc (lambda (cons) @@ -616,10 +636,12 @@ If there is no common part, this will be nil.") (error (message "Invalid comphist db.") nil))) (defun ac-comphist-init () + "No documentation." (ac-comphist-load) (add-hook 'kill-emacs-hook 'ac-comphist-save)) (defun ac-comphist-load () + "No documentation." (interactive) (let ((db (if (file-exists-p ac-comphist-file) (ignore-errors @@ -630,6 +652,7 @@ If there is no common part, this will be nil.") (setq ac-comphist (or db (ac-comphist-make))))) (defun ac-comphist-save () + "No documentation." (interactive) (require 'pp) (ignore-errors @@ -640,18 +663,22 @@ If there is no common part, this will be nil.") ;;;; Dictionary -(defvar ac-buffer-dictionary nil) -(defvar ac-file-dictionary (make-hash-table :test 'equal)) +(defvar ac-buffer-dictionary nil + "No documentation.") +(defvar ac-file-dictionary (make-hash-table :test 'equal) + "No documentation.") (defun ac-clear-dictionary-cache () + "No documentation." (interactive) (dolist (buffer (buffer-list)) (with-current-buffer buffer - (if (local-variable-p 'ac-buffer-dictionary) - (kill-local-variable 'ac-buffer-dictionary)))) + (when (local-variable-p 'ac-buffer-dictionary) + (kill-local-variable 'ac-buffer-dictionary)))) (clrhash ac-file-dictionary)) (defun ac-file-dictionary (filename) + "No documentation, FILENAME." (let ((cache (gethash filename ac-file-dictionary 'none))) (if (and cache (not (eq cache 'none))) cache @@ -664,14 +691,16 @@ If there is no common part, this will be nil.") result)))) (defun ac-mode-dictionary (mode) + "No documentation, MODE." (cl-loop for name in (cons (symbol-name mode) - (ignore-errors (list (file-name-extension (buffer-file-name))))) - append (cl-loop for dir in ac-dictionary-directories - for file = (concat dir "/" name) - if (file-exists-p file) - append (ac-file-dictionary file)))) + (ignore-errors (list (file-name-extension (buffer-file-name))))) + append (cl-loop for dir in ac-dictionary-directories + for file = (concat dir "/" name) + if (file-exists-p file) + append (ac-file-dictionary file)))) (defun ac-buffer-dictionary (&optional buffer) + "No documentation, BUFFER." (with-current-buffer (or buffer (current-buffer)) (if (local-variable-p 'ac-buffer-dictionary) ac-buffer-dictionary @@ -695,17 +724,18 @@ If there is no common part, this will be nil.") (line-beginning-position))))) (defun ac-stop-word-p (word) + "No documentation, WORD." (or (member word ac-stop-words) - (if ac-use-dictionary-as-stop-words - (member word (ac-buffer-dictionary))))) + (when ac-use-dictionary-as-stop-words + (member word (ac-buffer-dictionary))))) (defun ac-prefix-default () "Same as `ac-prefix-symbol' but ignore a number prefix." (let ((start (ac-prefix-symbol)) (case-fold-search t)) (when (and start - (not (string-match-p "\\`\\(?:0[xbo][0-9a-f]+\\|[0-9]+\\)" - (buffer-substring-no-properties start (point))))) + (not (string-match-p "\\`\\(?:0[xbo][0-9a-f]+\\|[0-9]+\\)" + (buffer-substring-no-properties start (point))))) start))) (defun ac-prefix-symbol () @@ -716,9 +746,10 @@ If there is no common part, this will be nil.") (defun ac-prefix-file () "File prefix." (let ((point (re-search-backward "[\"<>' \t\r\n]" nil t))) - (if point (1+ point)))) + (when point (1+ point)))) (defsubst ac-windows-remote-file-p (file) + "No documentation, FILE." (and (memq system-type '(ms-dos windows-nt cygwin)) (string-match-p "\\`\\(?://\\|\\\\\\\\\\)" file))) @@ -754,21 +785,22 @@ If there is no common part, this will be nil.") (defun ac-define-prefix (name prefix) "Define new prefix definition. -You can not use it in source definition like (prefix . `NAME')." +You can not use it in source definition like (PREFIX . `NAME')." (push (cons name prefix) ac-prefix-definitions)) (defun ac-match-substring (prefix candidates) + "No documentation, PREFIX, CANDIDATES." (cl-loop with regexp = (regexp-quote prefix) for candidate in candidates if (string-match regexp candidate) collect candidate)) (defsubst ac-source-entity (source) - (if (symbolp source) - (symbol-value source) - source)) + "No documentation, SOURCE." + (if (symbolp source) (symbol-value source) source)) (defun ac-source-available-p (source) + "No documentation, SOURCE." (if (and (symbolp source) (get source 'available)) (eq (get source 'available) t) @@ -785,8 +817,8 @@ You can not use it in source definition like (prefix . `NAME')." (cl-loop for feature in (assoc-default 'depends src) unless (require feature nil t) return nil finally return t)))) - (if (symbolp source) - (put source 'available (if available t 'no))) + (when (symbolp source) + (put source 'available (if available t 'no))) available))) (defun ac-compile-sources (sources) @@ -811,14 +843,16 @@ You can not use it in source definition like (prefix . `NAME')." and collect source)) (defun ac-compiled-sources () + "No documentation." (or ac-compiled-sources - (setq ac-compiled-sources - (ac-compile-sources ac-sources)))) + (setq ac-compiled-sources (ac-compile-sources ac-sources)))) (defsubst ac-menu-live-p () + "Return non-nil if menu is alive." (popup-live-p ac-menu)) (defun ac-menu-create (point width height) + "No documentation POINT, WIDTH, HEIGHT." (setq ac-menu (popup-create point width height :around t @@ -829,21 +863,24 @@ You can not use it in source definition like (prefix . `NAME')." :symbol t :scroll-bar t :margin-left 1 - :keymap ac-menu-map - ))) + :keymap ac-menu-map))) (defun ac-menu-delete () + "Delete the completion menu." (when ac-menu (popup-delete ac-menu) (setq ac-menu nil))) (defsubst ac-inline-overlay () + "No documentation." (nth 0 ac-inline)) (defsubst ac-inline-live-p () + "No documentation." (and ac-inline (ac-inline-overlay) t)) (defun ac-inline-show (point string) + "No documentation, POINT, STRING." (unless ac-inline (setq ac-inline (list nil))) (save-excursion @@ -859,9 +896,9 @@ You can not use it in source definition like (prefix . `NAME')." (< width string-width) (setq c (char-after)) (not (eq c ?\t))) ; special case for tab - (cl-incf width (char-width c)) - (cl-incf length) - (forward-char))) + (cl-incf width (char-width c)) + (cl-incf length) + (forward-char))) ;; Show completion (goto-char point) @@ -900,15 +937,16 @@ You can not use it in source definition like (prefix . `NAME')." (overlay-put overlay 'string original-string)))) (defun ac-inline-delete () + "No documentation." (when (ac-inline-live-p) (ac-inline-hide) (delete-overlay (ac-inline-overlay)) (setq ac-inline nil))) (defun ac-inline-hide () + "No documentation." (when (ac-inline-live-p) - (let ((overlay (ac-inline-overlay)) - (buffer-undo-list t)) + (let ((overlay (ac-inline-overlay)) (buffer-undo-list t)) (when overlay (move-overlay overlay (point-min) (point-min)) (overlay-put overlay 'invisible t) @@ -916,6 +954,7 @@ You can not use it in source definition like (prefix . `NAME')." (overlay-put overlay 'after-string nil))))) (defun ac-inline-update () + "No documentation." (if (and ac-completing ac-prefix (stringp ac-common-part)) (let ((common-part-length (length ac-common-part)) (prefix-length (length ac-prefix))) @@ -927,6 +966,7 @@ You can not use it in source definition like (prefix . `NAME')." (ac-inline-delete))) (defun ac-put-prefix-overlay () + "No documentation." (unless ac-prefix-overlay (let (newline) ;; Insert newline to make sure that cursor always on the overlay @@ -940,16 +980,18 @@ You can not use it in source definition like (prefix . `NAME')." (overlay-put ac-prefix-overlay 'newline newline)))) (defun ac-remove-prefix-overlay () + "No documentation." (when ac-prefix-overlay (when (overlay-get ac-prefix-overlay 'newline) ;; Remove inserted newline (popup-save-buffer-state (goto-char (point-max)) - (if (eq (char-before) ?\n) - (delete-char -1)))) + (when (eq (char-before) ?\n) + (delete-char -1)))) (delete-overlay ac-prefix-overlay))) (defun ac-activate-completing-map () + "No documentation." (if (and ac-show-menu ac-use-menu-map) (set-keymap-parent ac-current-map ac-menu-map)) (when (and ac-use-overriding-local-map @@ -959,6 +1001,7 @@ You can not use it in source definition like (prefix . `NAME')." (set-keymap-parent (overlay-get ac-prefix-overlay 'keymap) ac-current-map))) (defun ac-deactivate-completing-map () + "No documentation." (set-keymap-parent ac-current-map ac-completing-map) (when (and ac-use-overriding-local-map (eq overriding-terminal-local-map ac-current-map)) @@ -967,10 +1010,11 @@ You can not use it in source definition like (prefix . `NAME')." (set-keymap-parent (overlay-get ac-prefix-overlay 'keymap) nil))) (defsubst ac-selected-candidate () - (if ac-menu - (popup-selected-item ac-menu))) + "No documentation." + (when ac-menu (popup-selected-item ac-menu))) (defun ac-prefix (requires ignore-list) + "No documentation, REQUIRES, IGNORE-LIST." (cl-loop with current = (point) with point with point-def @@ -1003,11 +1047,11 @@ You can not use it in source definition like (prefix . `NAME')." (< (- current point) req)) (setq point nil)) (when point - (if (null prefix-def) - (setq prefix-def prefix - point-def point)) - (if (equal point point-def) - (push source sources))))) + (when (null prefix-def) + (setq prefix-def prefix + point-def point)) + (when (equal point point-def) + (push source sources))))) finally return (and point-def (list prefix-def point-def (nreverse sources))))) @@ -1019,13 +1063,11 @@ You can not use it in source definition like (prefix . `NAME')." for function = (assoc-default 'init source) if function do (save-excursion - (cond - ((functionp function) - (funcall function)) - (t - (eval function)))))) + (cond ((functionp function) (funcall function)) + (t (eval function)))))) (defun ac-candidates-1 (source) + "No documentation, SOURCE." (let* ((do-cache (assq 'cache source)) (function (assoc-default 'candidates source)) (action (assoc-default 'action source)) @@ -1069,6 +1111,7 @@ You can not use it in source definition like (prefix . `NAME')." candidates)) (defun ac-delete-duplicated-candidates (candidates) + "No documentation, CANDIDATES." (cl-delete-duplicates candidates :test (lambda (x y) @@ -1080,6 +1123,7 @@ You can not use it in source definition like (prefix . `NAME')." :from-end t)) (defun ac-reduce-candidates (candidates) + "No documentation, CANDIDATES." ;; Call `ac-delete-duplicated-candidates' on first portion of ;; candidate list for speed. (let ((size 20)) @@ -1094,7 +1138,7 @@ You can not use it in source definition like (prefix . `NAME')." (defun ac-candidates () "Produce candidates for current sources." - (cl-loop with completion-ignore-case = (or (eq ac-ignore-case t) + (cl-loop with completion-ignore-case = (or ac-ignore-case (and (eq ac-ignore-case 'smart) (let ((case-fold-search nil)) (not (string-match "[[:upper:]]" ac-prefix))))) with case-fold-search = completion-ignore-case @@ -1111,13 +1155,13 @@ You can not use it in source definition like (prefix . `NAME')." (cons (if (> n 0) (nthcdr (1- n) result))) (cdr (cdr cons))) ;; XXX ugly - (if cons (setcdr cons nil)) + (when cons (setcdr cons nil)) (setq ac-common-part (try-completion ac-prefix result)) (setq ac-whole-common-part (try-completion ac-prefix candidates)) - (if cons (setcdr cons cdr)) + (when cons (setcdr cons cdr)) result) (setq candidates (ac-comphist-sort ac-comphist candidates prefix-len)) - (setq ac-common-part (if candidates (popup-x-to-string (car candidates)))) + (setq ac-common-part (when candidates (popup-x-to-string (car candidates)))) (setq ac-whole-common-part (try-completion ac-prefix candidates)) candidates) (when ac-show-menu @@ -1127,7 +1171,9 @@ You can not use it in source definition like (prefix . `NAME')." candidates)))) (defun ac-update-candidates (cursor scroll-top) - "Update candidates of menu to `ac-candidates' and redraw it." + "Update candidates of menu to 'ac-candidates' and redraw it. + +TODO Missing documentation CURSOR, SCROLL-TOP." (setf (popup-cursor ac-menu) cursor (popup-scroll-top ac-menu) scroll-top) (setq ac-dwim-enable (= (length ac-candidates) 1)) @@ -1143,11 +1189,11 @@ You can not use it in source definition like (prefix . `NAME')." (if (and (not ac-fuzzy-enable) (<= (length ac-candidates) ac-candidate-menu-min)) (popup-hide ac-menu) - (if ac-show-menu - (popup-draw ac-menu)))) + (when ac-show-menu + (popup-draw ac-menu)))) (defun ac-reposition () - "Force to redraw candidate menu with current `ac-candidates'." + "Force to redraw candidate menu with current 'ac-candidates'." (let ((cursor (popup-cursor ac-menu)) (scroll-top (popup-scroll-top ac-menu)) (height (popup-height ac-menu))) @@ -1157,11 +1203,10 @@ You can not use it in source definition like (prefix . `NAME')." (defun ac-cleanup () "Cleanup auto completion." - (if ac-cursor-color - (set-cursor-color ac-cursor-color)) + (when ac-cursor-color + (set-cursor-color ac-cursor-color)) (when (and ac-use-comphist ac-comphist) - (when (and (null ac-selected-candidate) - (member ac-prefix ac-candidates)) + (when (and (null ac-selected-candidate) (member ac-prefix ac-candidates)) ;; Assume candidate is selected by just typing (setq ac-selected-candidate ac-prefix) (setq ac-last-point ac-point)) @@ -1207,11 +1252,10 @@ You can not use it in source definition like (prefix . `NAME')." (ac-cleanup)) (defun ac-extend-region-to-delete (string) - "Determine the boundary of the region to delete before -inserting the completed string. This will be either the position -of current point, or the end of the symbol at point, if the text -from point to end of symbol is the right part of the completed -string." + "Determine the boundary of the region to delete before inserting the \ +completed string. This will be either the position of current point, or +the end of the symbol at point, if the text from point to end of symbol +is the right part of the completed STRING." (let* ((end-of-symbol (or (cdr-safe (bounds-of-thing-at-point 'symbol)) (point))) (remaindar (buffer-substring-no-properties (point) end-of-symbol)) @@ -1223,11 +1267,11 @@ string." (point)))) (defun ac-expand-string (string &optional remove-undo-boundary) - "Expand `STRING' into the buffer and update `ac-prefix' to `STRING'. + "Expand `STRING' into the buffer and update 'ac-prefix' to `STRING'. This function records deletion and insertion sequences by `undo-boundary'. -If `remove-undo-boundary' is non-nil, this function also removes `undo-boundary' +If REMOVE-UNDO-BOUNDARY is non-nil, this function also removes `undo-boundary' that have been made before in this function. When `buffer-undo-list' is -`t', `remove-undo-boundary' has no effect." +'t', REMOVE-UNDO-BOUNDARY has no effect." (when (eq buffer-undo-list t) (setq remove-undo-boundary nil)) (when (not (equal string (buffer-substring ac-point (point)))) @@ -1257,7 +1301,7 @@ that have been made before in this function. When `buffer-undo-list' is (setq ac-prefix string))) (defun ac-set-trigger-key (key) - "Set `ac-trigger-key' to `KEY'. It is recommemded to use this function instead of calling `setq'." + "Set `ac-trigger-key' to `KEY'. It is recommemded to use this function instead of calling `setq'." ;; Remove old mapping (when ac-trigger-key (define-key ac-mode-map (read-kbd-macro ac-trigger-key) nil)) @@ -1268,19 +1312,21 @@ that have been made before in this function. When `buffer-undo-list' is (define-key ac-mode-map (read-kbd-macro key) 'ac-trigger-key-command))) (defun ac-set-timer () + "Safe way to start the completion menu timer." (unless ac-timer (setq ac-timer (run-with-idle-timer ac-delay ac-delay 'ac-update-greedy)))) (defun ac-cancel-timer () + "Safe way to cancel timer." (when (timerp ac-timer) (cancel-timer ac-timer) (setq ac-timer nil))) (defun ac-update (&optional force) + "No documentation, FORCE." (when (and auto-complete-mode ac-prefix - (or ac-triggered - force) + (or ac-triggered force) (not isearch-mode)) (ac-put-prefix-overlay) (setq ac-candidates (ac-candidates)) @@ -1299,6 +1345,7 @@ that have been made before in this function. When `buffer-undo-list' is t)) (defun ac-update-greedy (&optional force) + "No documentation, FORCE." (let (result) (while (when (and (setq result (ac-update force)) (null ac-candidates)) @@ -1308,59 +1355,65 @@ that have been made before in this function. When `buffer-undo-list' is result)) (defun ac-set-show-menu-timer () + "No documentation." (when (and (or (integerp ac-auto-show-menu) (floatp ac-auto-show-menu)) (null ac-show-menu-timer)) (setq ac-show-menu-timer (run-with-idle-timer ac-auto-show-menu ac-auto-show-menu 'ac-show-menu)))) (defun ac-cancel-show-menu-timer () + "No documentation." (when (timerp ac-show-menu-timer) (cancel-timer ac-show-menu-timer) (setq ac-show-menu-timer nil))) (defun ac-show-menu () - (when (not (eq ac-show-menu t)) + "No documentation." + (unless (eq ac-show-menu t) (setq ac-show-menu t) (ac-inline-hide) (ac-remove-quick-help) (ac-update t))) (defun ac-help (&optional persist) + "No documentation, PERSIST." (interactive "P") - (when ac-menu - (popup-menu-show-help ac-menu persist))) + (when ac-menu (popup-menu-show-help ac-menu persist))) (defun ac-persist-help () + "No documentation." (interactive) (ac-help t)) (defun ac-last-help (&optional persist) + "No documentation, PERSIST." (interactive "P") - (when ac-last-completion - (popup-item-show-help (cdr ac-last-completion) persist))) + (when ac-last-completion (popup-item-show-help (cdr ac-last-completion) persist))) (defun ac-last-persist-help () + "No documentation." (interactive) (ac-last-help t)) (defun ac-set-quick-help-timer () + "No documentation." (when (and ac-use-quick-help (null ac-quick-help-timer)) (setq ac-quick-help-timer (run-with-idle-timer ac-quick-help-delay ac-quick-help-delay 'ac-quick-help)))) (defun ac-cancel-quick-help-timer () + "No documentation." (when (timerp ac-quick-help-timer) (cancel-timer ac-quick-help-timer) (setq ac-quick-help-timer nil))) (defun ac-pos-tip-show-quick-help (menu &optional item &rest args) + "No documentation, MENU, ITEM, ARGS." (let* ((point (plist-get args :point)) (around nil) (parent-offset (popup-offset menu)) (doc (popup-menu-documentation menu item))) (when (stringp doc) - (if (popup-hidden-p menu) - (setq around t) - (setq point nil)) + (if (popup-hidden-p menu) (setq around t) (setq point nil)) (with-no-warnings (pos-tip-show doc 'popup-tip-face @@ -1380,11 +1433,13 @@ that have been made before in this function. When `buffer-undo-list' is t))))) (defun ac-quick-help-use-pos-tip-p () + "No documentation." (and ac-quick-help-prefer-pos-tip window-system (featurep 'pos-tip))) (defun ac-quick-help (&optional force) + "No documentation, FORCE." (interactive) ;; TODO don't use FORCE (when (and (or force @@ -1395,28 +1450,28 @@ that have been made before in this function. When `buffer-undo-list' is (null this-command)) (ac-menu-live-p) (null ac-quick-help)) - (setq ac-quick-help - (funcall (if (ac-quick-help-use-pos-tip-p) - 'ac-pos-tip-show-quick-help - 'popup-menu-show-quick-help) - ac-menu nil - :point ac-point - :height ac-quick-help-height - :nowait t)))) + (setq ac-quick-help + (funcall (if (ac-quick-help-use-pos-tip-p) + 'ac-pos-tip-show-quick-help + 'popup-menu-show-quick-help) + ac-menu nil + :point ac-point + :height ac-quick-help-height + :nowait t)))) (defun ac-remove-quick-help () + "No documentation." (when (ac-quick-help-use-pos-tip-p) - (with-no-warnings - (pos-tip-hide))) + (with-no-warnings (pos-tip-hide))) (when ac-quick-help (popup-delete ac-quick-help) (setq ac-quick-help nil))) (defun ac-last-quick-help () + "No documentation." (interactive) (when (and ac-last-completion - (eq (marker-buffer (car ac-last-completion)) - (current-buffer))) + (eq (marker-buffer (car ac-last-completion)) (current-buffer))) (let ((doc (popup-item-documentation (cdr ac-last-completion))) (point (marker-position (car ac-last-completion)))) (when (stringp doc) @@ -1429,6 +1484,7 @@ that have been made before in this function. When `buffer-undo-list' is :margin t)))))) (defmacro ac-define-quick-help-command (name arglist &rest body) + "No documentation, NAME, ARGLIST, BODY." (declare (indent 2)) `(progn (defun ,name ,arglist ,@body) @@ -1449,9 +1505,11 @@ that have been made before in this function. When `buffer-undo-list' is ;;;; Auto completion isearch (defun ac-isearch-callback (list) + "No documentation, LIST." (setq ac-dwim-enable (eq (length list) 1))) (defun ac-isearch () + "No documentation." (interactive) (when (ac-menu-live-p) (ac-cancel-show-menu-timer) @@ -1471,19 +1529,18 @@ that have been made before in this function. When `buffer-undo-list' is ;;;; Auto completion commands (cl-defun auto-complete-1 (&key sources (triggered 'command)) + "No documentation." (let ((menu-live (ac-menu-live-p)) (inline-live (ac-inline-live-p)) started) (ac-abort) (let ((ac-sources (or sources ac-sources))) - (if (or ac-show-menu-immediately-on-auto-complete - inline-live) + (if (or ac-show-menu-immediately-on-auto-complete inline-live) (setq ac-show-menu t)) (setq started (ac-start :triggered triggered))) (when (ac-update-greedy t) ;; TODO Not to cause inline completion to be disrupted. - (if (ac-inline-live-p) - (ac-inline-hide)) + (when (ac-inline-live-p) (ac-inline-hide)) ;; Not to expand when it is first time to complete (when (and (or (and (not ac-expand-on-auto-complete) (> (length ac-candidates) 1) @@ -1526,8 +1583,18 @@ that have been made before in this function. When `buffer-undo-list' is (when (popup-hidden-p ac-menu) (ac-show-menu)) (popup-next ac-menu) - (if (eq this-command 'ac-next) - (setq ac-dwim-enable t)))) + (when (eq this-command 'ac-next) + (setq ac-dwim-enable t)))) + +(defun ac-next-page () + "Select candidate `ac-menu-height' positions below current." + (interactive) + (when (ac-menu-live-p) + (when (popup-hidden-p ac-menu) + (ac-show-menu)) + (popup-page-next ac-menu) + (when (eq this-command 'ac-next-page) + (setq ac-dwim-enable t)))) (defun ac-previous () "Select previous candidate." @@ -1539,6 +1606,16 @@ that have been made before in this function. When `buffer-undo-list' is (if (eq this-command 'ac-previous) (setq ac-dwim-enable t)))) +(defun ac-previous-page () + "Select candidate `ac-menu-height' positions above current." + (interactive) + (when (ac-menu-live-p) + (when (popup-hidden-p ac-menu) + (ac-show-menu)) + (popup-page-previous ac-menu) + (when (eq this-command 'ac-previous-page) + (setq ac-dwim-enable t)))) + (defun ac-expand (arg) "Try expand, and if expanded twice, select next candidate. If given a prefix argument, select the previous candidate." @@ -1553,10 +1630,10 @@ If given a prefix argument, select the previous candidate." (setq string (ac-selected-candidate))) (ac-expand-string string (or (eq last-command 'ac-expand) - (eq last-command 'ac-expand-previous))) + (eq last-command 'ac-expand-previous))) ;; Do reposition if menu at long line (if (and (> (popup-direction ac-menu) 0) - (ac-menu-at-wrapper-line-p)) + (ac-menu-at-wrapper-line-p)) (ac-reposition)) (setq ac-show-menu t) string)))) @@ -1571,14 +1648,14 @@ If given a prefix argument, select the previous candidate." (interactive) (if (and ac-dwim ac-dwim-enable) (ac-complete) - (when (and (ac-inline-live-p) - ac-common-part) + (when (and (ac-inline-live-p) ac-common-part) (ac-inline-hide) (ac-expand-string ac-common-part (eq last-command this-command)) (setq ac-common-part nil) t))) (defun ac-complete-1 (candidate) + "No documentation, CANDIDATE." (let ((action (popup-item-property candidate 'action)) (fallback nil)) (when candidate @@ -1591,11 +1668,8 @@ If given a prefix argument, select the previous candidate." (set-marker (car ac-last-completion) ac-point ac-buffer) (setcdr ac-last-completion candidate))) (ac-abort) - (cond - (action - (funcall action)) - (fallback - (ac-fallback-command))) + (cond (action (funcall action)) + (fallback (ac-fallback-command))) candidate)) (defun ac-complete () @@ -1654,19 +1728,23 @@ If given a prefix argument, select the previous candidate." (interactive)) (defun ac-mouse-1 (event) + "No documentation, EVENT." (interactive "e") (popup-awhen (popup-menu-item-of-mouse-event event) (ac-complete-1 it))) (defun ac-mouse-4 (event) + "No documentation, EVENT." (interactive "e") (ac-previous)) (defun ac-mouse-5 (event) + "No documentation, EVENT." (interactive "e") (ac-next)) (defun ac-trigger-key-command (&optional force) + "No documentation, FORCE." (interactive "P") (let (started) (when (or force (ac-trigger-command-p last-command)) @@ -1684,34 +1762,40 @@ If given a prefix argument, select the previous candidate." (defvar ac-minutes-counter 0) (defun ac-clear-variable-after-save (variable &optional pred) + "No documentation." (add-to-list 'ac-clear-variables-after-save (cons variable pred))) (defun ac-clear-variables-after-save () + "No documentation." (dolist (pair ac-clear-variables-after-save) - (if (or (null (cdr pair)) - (funcall (cdr pair))) - (set (car pair) nil)))) + (when (or (null (cdr pair)) (funcall (cdr pair))) + (set (car pair) nil)))) (defun ac-clear-variable-every-minutes (variable minutes) + "No documentation." (add-to-list 'ac-clear-variables-every-minute (cons variable minutes))) (defun ac-clear-variable-every-minute (variable) + "No documentation." (ac-clear-variable-every-minutes variable 1)) (defun ac-clear-variable-every-10-minutes (variable) + "No documentation." (ac-clear-variable-every-minutes variable 10)) (defun ac-clear-variables-every-minute () + "No documentation." (cl-incf ac-minutes-counter) (dolist (pair ac-clear-variables-every-minute) - (if (eq (% ac-minutes-counter (cdr pair)) 0) - (set (car pair) nil)))) + (when (eq (% ac-minutes-counter (cdr pair)) 0) + (set (car pair) nil)))) ;;;; Auto complete mode (defun ac-cursor-on-diable-face-p (&optional point) + "No documentation." (memq (get-text-property (or point (point)) 'face) ac-disable-faces)) (defun ac-trigger-command-p (command) @@ -1723,12 +1807,14 @@ If given a prefix argument, select the previous candidate." (string-match "electric" (symbol-name command))))) (defun ac-fallback-key-sequence () + "No documentation." (setq unread-command-events (append (this-single-command-raw-keys) unread-command-events)) (read-key-sequence-vector "")) (defun ac-fallback-command (&optional except-command) + "No documentation." (let* ((auto-complete-mode nil) (keys (ac-fallback-key-sequence)) (command (and keys (key-binding keys)))) @@ -1753,19 +1839,19 @@ If given a prefix argument, select the previous candidate." (or ac-triggered t))) (ac-compatible-package-command-p this-command)) (progn - (if (or (not (symbolp this-command)) - (not (get this-command 'ac-quick-help-command))) - (ac-remove-quick-help)) + (when (or (not (symbolp this-command)) + (not (get this-command 'ac-quick-help-command))) + (ac-remove-quick-help)) ;; Not to cause inline completion to be disrupted. (ac-inline-hide)) (ac-abort)) (error (ac-error var)))) (defun ac-handle-post-command () + "No documentation." (condition-case var (when (and ac-triggered - (or ac-auto-start - ac-completing) + (or ac-auto-start ac-completing) (not isearch-mode)) (setq ac-last-point (point)) (ac-start :requires (unless ac-completing ac-auto-start)) @@ -1777,6 +1863,7 @@ If given a prefix argument, select the previous candidate." "Timer to poll end of completion.") (defun ac-syntax-checker-workaround () + "No documentation." (if ac-stop-flymake-on-completing (progn (make-local-variable 'ac-flycheck-poll-completion-end-timer) @@ -1798,10 +1885,9 @@ If given a prefix argument, select the previous candidate." (ad-disable-advice 'flycheck-handle-idle-change 'around 'ac-flycheck-stop-advice)))) (defun ac-setup () - (if ac-trigger-key - (ac-set-trigger-key ac-trigger-key)) - (if ac-use-comphist - (ac-comphist-init)) + "No documentation." + (when ac-trigger-key (ac-set-trigger-key ac-trigger-key)) + (when ac-use-comphist (ac-comphist-init)) (unless ac-clear-variables-every-minute-timer (setq ac-clear-variables-every-minute-timer (run-with-timer 60 60 'ac-clear-variables-every-minute))) (ac-syntax-checker-workaround)) @@ -1826,9 +1912,9 @@ If given a prefix argument, select the previous candidate." (defun auto-complete-mode-maybe () "What buffer `auto-complete-mode' prefers." - (if (and (not (minibufferp (current-buffer))) - (memq major-mode ac-modes)) - (auto-complete-mode 1))) + (when (and (not (minibufferp (current-buffer))) + (memq major-mode ac-modes)) + (auto-complete-mode 1))) ;;;###autoload (define-global-minor-mode global-auto-complete-mode @@ -1877,9 +1963,8 @@ completion menu. This workaround stops that annoying behavior." (defvar ac-word-index nil) (defun ac-candidate-words-in-buffer (point prefix limit) - (let ((i 0) - candidate - candidates + "No documentation." + (let ((i 0) candidate candidates (regexp (concat "\\_<" (regexp-quote prefix) "\\(\\sw\\|\\s_\\)+\\_>"))) (save-excursion ;; Search backward @@ -1901,6 +1986,7 @@ completion menu. This workaround stops that annoying behavior." (nreverse candidates)))) (defun ac-incremental-update-word-index () + "No documentation." (unless (local-variable-p 'ac-word-index) (make-local-variable 'ac-word-index)) (if (null ac-word-index) @@ -1916,10 +2002,11 @@ completion menu. This workaround stops that annoying behavior." (setcdr ac-word-index index))))) (defun ac-update-word-index-1 () + "No documentation." (unless (local-variable-p 'ac-word-index) (make-local-variable 'ac-word-index)) (when (and (not (car ac-word-index)) - (< (buffer-size) 1048576)) + (< (buffer-size) 1048576)) ; NOTE: Not sure 1048576 means ;; Complete index (setq ac-word-index (cons t @@ -1927,6 +2014,7 @@ completion menu. This workaround stops that annoying behavior." "\\(?:^\\|\\_>\\).*?\\(?:\\_<\\|$\\)"))))) (defun ac-update-word-index () + "No documentation." (dolist (buffer (buffer-list)) (when (or ac-fuzzy-enable (not (eq buffer (current-buffer)))) @@ -1934,6 +2022,7 @@ completion menu. This workaround stops that annoying behavior." (ac-update-word-index-1))))) (defun ac-word-candidates (&optional buffer-pred) + "No documentation." (cl-loop initially (unless ac-fuzzy-enable (ac-incremental-update-word-index)) for buffer in (buffer-list) if (and (or (not (integerp ac-limit)) (< (length candidates) ac-limit)) @@ -1963,6 +2052,7 @@ completion menu. This workaround stops that annoying behavior." (ac-clear-variable-every-10-minutes 'ac-symbols-cache) (defun ac-symbol-file (symbol type) + "No documentation." (if (fboundp 'find-lisp-object-file-name) (find-lisp-object-file-name symbol type) (let ((file-name (with-no-warnings @@ -1995,6 +2085,7 @@ completion menu. This workaround stops that annoying behavior." file-name)))) (defun ac-symbol-documentation (symbol) + "No documentation." (if (stringp symbol) (setq symbol (intern-soft symbol))) (ignore-errors @@ -2042,6 +2133,7 @@ completion menu. This workaround stops that annoying behavior." (buffer-string))))))))) (defun ac-symbol-candidates () + "No documentation." (or ac-symbols-cache (setq ac-symbols-cache (cl-loop for x being the symbols @@ -2061,6 +2153,7 @@ completion menu. This workaround stops that annoying behavior." (ac-clear-variable-every-10-minutes 'ac-functions-cache) (defun ac-function-candidates () + "No documentation." (or ac-functions-cache (setq ac-functions-cache (cl-loop for x being the symbols @@ -2079,6 +2172,7 @@ completion menu. This workaround stops that annoying behavior." (ac-clear-variable-every-10-minutes 'ac-variables-cache) (defun ac-variable-candidates () + "No documentation." (or ac-variables-cache (setq ac-variables-cache (cl-loop for x being the symbols @@ -2096,6 +2190,7 @@ completion menu. This workaround stops that annoying behavior." (ac-clear-variable-every-10-minutes 'ac-emacs-lisp-features) (defun ac-emacs-lisp-feature-candidates () + "No documentation." (or ac-emacs-lisp-features (if (fboundp 'find-library-suffixes) (let ((suffix (concat (regexp-opt (find-library-suffixes) t) "\\'"))) @@ -2131,6 +2226,7 @@ completion menu. This workaround stops that annoying behavior." (defvar ac-filename-cache nil) (defun ac-filename-candidate () + "No documentation." (let (file-name-handler-alist) (unless (or (and comment-start-skip (string-match comment-start-skip ac-prefix)) diff --git a/elpa/auto-complete-20170125.245/dict/ada-mode b/elpa/auto-complete-20221231.1633/dict/ada-mode similarity index 100% rename from elpa/auto-complete-20170125.245/dict/ada-mode rename to elpa/auto-complete-20221231.1633/dict/ada-mode diff --git a/elpa/auto-complete-20170125.245/dict/c++-mode b/elpa/auto-complete-20221231.1633/dict/c++-mode similarity index 100% rename from elpa/auto-complete-20170125.245/dict/c++-mode rename to elpa/auto-complete-20221231.1633/dict/c++-mode diff --git a/elpa/auto-complete-20170125.245/dict/c-mode b/elpa/auto-complete-20221231.1633/dict/c-mode similarity index 100% rename from elpa/auto-complete-20170125.245/dict/c-mode rename to elpa/auto-complete-20221231.1633/dict/c-mode diff --git a/elpa/auto-complete-20170125.245/dict/caml-mode b/elpa/auto-complete-20221231.1633/dict/caml-mode similarity index 100% rename from elpa/auto-complete-20170125.245/dict/caml-mode rename to elpa/auto-complete-20221231.1633/dict/caml-mode diff --git a/elpa/auto-complete-20170125.245/dict/clojure-mode b/elpa/auto-complete-20221231.1633/dict/clojure-mode similarity index 100% rename from elpa/auto-complete-20170125.245/dict/clojure-mode rename to elpa/auto-complete-20221231.1633/dict/clojure-mode diff --git a/elpa/auto-complete-20170125.245/dict/clojurescript-mode b/elpa/auto-complete-20221231.1633/dict/clojurescript-mode similarity index 100% rename from elpa/auto-complete-20170125.245/dict/clojurescript-mode rename to elpa/auto-complete-20221231.1633/dict/clojurescript-mode diff --git a/elpa/auto-complete-20170125.245/dict/coq-mode b/elpa/auto-complete-20221231.1633/dict/coq-mode similarity index 100% rename from elpa/auto-complete-20170125.245/dict/coq-mode rename to elpa/auto-complete-20221231.1633/dict/coq-mode diff --git a/elpa/auto-complete-20170125.245/dict/css-mode b/elpa/auto-complete-20221231.1633/dict/css-mode similarity index 100% rename from elpa/auto-complete-20170125.245/dict/css-mode rename to elpa/auto-complete-20221231.1633/dict/css-mode diff --git a/elpa/auto-complete-20170125.245/dict/erlang-mode b/elpa/auto-complete-20221231.1633/dict/erlang-mode similarity index 100% rename from elpa/auto-complete-20170125.245/dict/erlang-mode rename to elpa/auto-complete-20221231.1633/dict/erlang-mode diff --git a/elpa/auto-complete-20170125.245/dict/ess-julia-mode b/elpa/auto-complete-20221231.1633/dict/ess-julia-mode similarity index 100% rename from elpa/auto-complete-20170125.245/dict/ess-julia-mode rename to elpa/auto-complete-20221231.1633/dict/ess-julia-mode diff --git a/elpa/auto-complete-20170125.245/dict/go-mode b/elpa/auto-complete-20221231.1633/dict/go-mode similarity index 100% rename from elpa/auto-complete-20170125.245/dict/go-mode rename to elpa/auto-complete-20221231.1633/dict/go-mode diff --git a/elpa/auto-complete-20170125.245/dict/haskell-mode b/elpa/auto-complete-20221231.1633/dict/haskell-mode similarity index 100% rename from elpa/auto-complete-20170125.245/dict/haskell-mode rename to elpa/auto-complete-20221231.1633/dict/haskell-mode diff --git a/elpa/auto-complete-20170125.245/dict/java-mode b/elpa/auto-complete-20221231.1633/dict/java-mode similarity index 100% rename from elpa/auto-complete-20170125.245/dict/java-mode rename to elpa/auto-complete-20221231.1633/dict/java-mode diff --git a/elpa/auto-complete-20170125.245/dict/js-mode b/elpa/auto-complete-20221231.1633/dict/js-mode similarity index 100% rename from elpa/auto-complete-20170125.245/dict/js-mode rename to elpa/auto-complete-20221231.1633/dict/js-mode diff --git a/elpa/auto-complete-20170125.245/dict/julia-mode b/elpa/auto-complete-20221231.1633/dict/julia-mode similarity index 100% rename from elpa/auto-complete-20170125.245/dict/julia-mode rename to elpa/auto-complete-20221231.1633/dict/julia-mode diff --git a/elpa/auto-complete-20170125.245/dict/lua-mode b/elpa/auto-complete-20221231.1633/dict/lua-mode similarity index 100% rename from elpa/auto-complete-20170125.245/dict/lua-mode rename to elpa/auto-complete-20221231.1633/dict/lua-mode diff --git a/elpa/auto-complete-20170125.245/dict/nim-mode b/elpa/auto-complete-20221231.1633/dict/nim-mode similarity index 100% rename from elpa/auto-complete-20170125.245/dict/nim-mode rename to elpa/auto-complete-20221231.1633/dict/nim-mode diff --git a/elpa/auto-complete-20170125.245/dict/objc-mode b/elpa/auto-complete-20221231.1633/dict/objc-mode similarity index 54% rename from elpa/auto-complete-20170125.245/dict/objc-mode rename to elpa/auto-complete-20221231.1633/dict/objc-mode index b504d8b9..6d904768 100644 --- a/elpa/auto-complete-20170125.245/dict/objc-mode +++ b/elpa/auto-complete-20221231.1633/dict/objc-mode @@ -1,3 +1,27 @@ +#not_keyword +#if +#ifdef +#ifndef +#elif +#else +#endif +#defined +#include +#__include_macros +#define +#undef +#line +#error +#pragma +#import +#include_next +#warning +#ident +#sccs +#assert +#unassert +#__public_macro +#__private_macro auto break case @@ -42,39 +66,81 @@ _Imaginary _Noreturn _Static_assert _Thread_local -alignas -alignof -atomic_ -bool -complex -imaginary -noreturn -static_assert -thread_local -#if -#elif -#else -#endif -defined -#ifdef -#ifndef -#define -#undef -#include -#line -#error -#pragma -_Pragma +__func__ +__objc_yes +__objc_no asm -fortran -#import -self -_cmd -instancetype +bool +false +true +wchar_t +_Float16 +_Accum +_Fract +_Sat +_Decimal32 +_Decimal64 +_Decimal128 +__alignof +__attribute +__builtin_choose_expr +__builtin_offsetof +__builtin_types_compatible_p +__builtin_va_arg +__extension__ +__float128 +__imag +__int128 +__label__ +__real +__thread +__FUNCTION__ +__PRETTY_FUNCTION__ +__auto_type +typeof +__private_extern__ +__module_private__ +__cdecl +__stdcall +__fastcall +__thiscall +__regcall +__vectorcall +__builtin_omp_required_simd_align +__pascal +__fp16 __bridge __bridge_transfer __bridge_retained __bridge_retain +__covariant +__contravariant +__kindof +__alignof__ +__asm +__asm__ +__attribute__ +__complex +__complex__ +__const +__const__ +__imag__ +__inline +__inline__ +__real__ +__restrict +__restrict__ +__signed +__signed__ +__typeof +__typeof__ +__volatile +__volatile__ +_Nonnull +_Nullable +_Null_unspecified +__builtin_convertvector +__builtin_available @not_keyword @class @compatibility_alias @@ -102,15 +168,12 @@ __bridge_retain @dynamic @import @available -__attribute__((visibility("default"))) -__attribute__((visibility("hidden"))) -__attribute__((deprecated)) -__attribute__((unavailable)) -__attribute__((objc_exception)) -__attribute__((objc_root_class)) -__covariant -__contravariant -__kindof +self +_cmd +instancetype +id +Class +SEL getter= setter= readonly @@ -128,34 +191,24 @@ nullable null_unspecified null_resettable class -__attribute__((deprecated)) in out inout oneway bycopy byref -nonnull -nullable -null_unspecified -__attribute__((unused)) super -true -false -__objc_yes -__objc_no -Class -id -SEL +__block +__strong +__weak +__unsafe_unretained +__autoreleasing +__nonnull +__nullable +__null_unspecified IMP BOOL -STR -NSInteger -NSUInteger YES NO Nil nil -__strong -__unsafe_unretained -__autoreleasing diff --git a/elpa/auto-complete-20170125.245/dict/octave-mode b/elpa/auto-complete-20221231.1633/dict/octave-mode similarity index 100% rename from elpa/auto-complete-20170125.245/dict/octave-mode rename to elpa/auto-complete-20221231.1633/dict/octave-mode diff --git a/elpa/auto-complete-20170125.245/dict/php-mode b/elpa/auto-complete-20221231.1633/dict/php-mode similarity index 100% rename from elpa/auto-complete-20170125.245/dict/php-mode rename to elpa/auto-complete-20221231.1633/dict/php-mode diff --git a/elpa/auto-complete-20170125.245/dict/python-mode b/elpa/auto-complete-20221231.1633/dict/python-mode similarity index 100% rename from elpa/auto-complete-20170125.245/dict/python-mode rename to elpa/auto-complete-20221231.1633/dict/python-mode diff --git a/elpa/auto-complete-20170125.245/dict/qml-mode b/elpa/auto-complete-20221231.1633/dict/qml-mode similarity index 100% rename from elpa/auto-complete-20170125.245/dict/qml-mode rename to elpa/auto-complete-20221231.1633/dict/qml-mode diff --git a/elpa/auto-complete-20170125.245/dict/ruby-mode b/elpa/auto-complete-20221231.1633/dict/ruby-mode similarity index 100% rename from elpa/auto-complete-20170125.245/dict/ruby-mode rename to elpa/auto-complete-20221231.1633/dict/ruby-mode diff --git a/elpa/auto-complete-20170125.245/dict/scala-mode b/elpa/auto-complete-20221231.1633/dict/scala-mode similarity index 100% rename from elpa/auto-complete-20170125.245/dict/scala-mode rename to elpa/auto-complete-20221231.1633/dict/scala-mode diff --git a/elpa/auto-complete-20170125.245/dict/scheme-mode b/elpa/auto-complete-20221231.1633/dict/scheme-mode similarity index 100% rename from elpa/auto-complete-20170125.245/dict/scheme-mode rename to elpa/auto-complete-20221231.1633/dict/scheme-mode diff --git a/elpa/auto-complete-20170125.245/dict/sclang-mode b/elpa/auto-complete-20221231.1633/dict/sclang-mode similarity index 100% rename from elpa/auto-complete-20170125.245/dict/sclang-mode rename to elpa/auto-complete-20221231.1633/dict/sclang-mode diff --git a/elpa/auto-complete-20170125.245/dict/sh-mode b/elpa/auto-complete-20221231.1633/dict/sh-mode similarity index 100% rename from elpa/auto-complete-20170125.245/dict/sh-mode rename to elpa/auto-complete-20221231.1633/dict/sh-mode diff --git a/elpa/auto-complete-20170125.245/dict/swift-mode b/elpa/auto-complete-20221231.1633/dict/swift-mode similarity index 94% rename from elpa/auto-complete-20170125.245/dict/swift-mode rename to elpa/auto-complete-20221231.1633/dict/swift-mode index ab121e0d..43d5ac7d 100644 --- a/elpa/auto-complete-20170125.245/dict/swift-mode +++ b/elpa/auto-complete-20221231.1633/dict/swift-mode @@ -20,15 +20,6 @@ internal private public static -undef -sil -sil_stage -sil_vtable -sil_global -sil_witness_table -sil_default_witness_table -sil_coverage_map -sil_scope defer if guard @@ -47,6 +38,7 @@ case default where catch +throw as Any false @@ -56,7 +48,6 @@ rethrows super self Self -throw true try throws @@ -66,22 +57,32 @@ __COLUMN__ __FUNCTION__ __DSO_HANDLE__ _ +#keyPath +#line +#selector +#file +#column +#function +#dsohandle +#assert +#sourceLocation +#warning +#error #if #else #elseif #endif -#keyPath -#line -#sourceLocation -#selector #available #fileLiteral #imageLiteral #colorLiteral -#FileReference -#Image -#Color -#file -#column -#function -#dsohandle +undef +sil +sil_stage +sil_property +sil_vtable +sil_global +sil_witness_table +sil_default_witness_table +sil_coverage_map +sil_scope diff --git a/elpa/auto-complete-20170125.245/dict/tcl-mode b/elpa/auto-complete-20221231.1633/dict/tcl-mode similarity index 100% rename from elpa/auto-complete-20170125.245/dict/tcl-mode rename to elpa/auto-complete-20221231.1633/dict/tcl-mode diff --git a/elpa/auto-complete-20170125.245/dict/ts-mode b/elpa/auto-complete-20221231.1633/dict/ts-mode similarity index 100% rename from elpa/auto-complete-20170125.245/dict/ts-mode rename to elpa/auto-complete-20221231.1633/dict/ts-mode diff --git a/elpa/auto-complete-20170125.245/dict/tuareg-mode b/elpa/auto-complete-20221231.1633/dict/tuareg-mode similarity index 100% rename from elpa/auto-complete-20170125.245/dict/tuareg-mode rename to elpa/auto-complete-20221231.1633/dict/tuareg-mode diff --git a/elpa/auto-complete-20170125.245/dict/verilog-mode b/elpa/auto-complete-20221231.1633/dict/verilog-mode similarity index 100% rename from elpa/auto-complete-20170125.245/dict/verilog-mode rename to elpa/auto-complete-20221231.1633/dict/verilog-mode diff --git a/elpa/auto-complete-pcmp-20140227.651/auto-complete-pcmp-pkg.el b/elpa/auto-complete-pcmp-20140227.651/auto-complete-pcmp-pkg.el deleted file mode 100644 index 01551275..00000000 --- a/elpa/auto-complete-pcmp-20140227.651/auto-complete-pcmp-pkg.el +++ /dev/null @@ -1,2 +0,0 @@ -;;; -*- no-byte-compile: t -*- -(define-package "auto-complete-pcmp" "20140227.651" "Provide auto-complete sources using pcomplete results" '((auto-complete "1.4.0") (log4e "0.2.0") (yaxception "0.1")) :commit "2595d3dab1ef3549271ca922f212928e9d830eec" :keywords '("completion") :authors '(("Hiroaki Otsu" . "ootsuhiroaki@gmail.com")) :maintainer '("Hiroaki Otsu" . "ootsuhiroaki@gmail.com") :url "https://github.com/aki2o/auto-complete-pcmp") diff --git a/elpa/auto-complete-pcmp-20140227.651/auto-complete-pcmp-autoloads.el b/elpa/auto-complete-pcmp-20140303.255/auto-complete-pcmp-autoloads.el similarity index 73% rename from elpa/auto-complete-pcmp-20140227.651/auto-complete-pcmp-autoloads.el rename to elpa/auto-complete-pcmp-20140303.255/auto-complete-pcmp-autoloads.el index 299b2511..99fce02e 100644 --- a/elpa/auto-complete-pcmp-20140227.651/auto-complete-pcmp-autoloads.el +++ b/elpa/auto-complete-pcmp-20140303.255/auto-complete-pcmp-autoloads.el @@ -1,4 +1,4 @@ -;;; auto-complete-pcmp-autoloads.el --- automatically extracted autoloads +;;; auto-complete-pcmp-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*- ;; ;;; Code: @@ -10,7 +10,11 @@ ;;;;;; (0 0 0 0)) ;;; Generated autoloads from auto-complete-pcmp.el -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "auto-complete-pcmp" '("ac-pcmp"))) +(register-definition-prefixes "auto-complete-pcmp" '("ac-pcmp")) + +;;;*** + +;;;### (autoloads nil nil ("auto-complete-pcmp-pkg.el") (0 0 0 0)) ;;;*** diff --git a/elpa/auto-complete-pcmp-20140303.255/auto-complete-pcmp-pkg.el b/elpa/auto-complete-pcmp-20140303.255/auto-complete-pcmp-pkg.el new file mode 100644 index 00000000..85281f46 --- /dev/null +++ b/elpa/auto-complete-pcmp-20140303.255/auto-complete-pcmp-pkg.el @@ -0,0 +1,16 @@ +(define-package "auto-complete-pcmp" "20140303.255" "Provide auto-complete sources using pcomplete results" + '((auto-complete "1.4.0") + (log4e "0.2.0") + (yaxception "0.1")) + :commit "2595d3dab1ef3549271ca922f212928e9d830eec" :authors + '(("Hiroaki Otsu" . "ootsuhiroaki@gmail.com")) + :maintainers + '(("Hiroaki Otsu" . "ootsuhiroaki@gmail.com")) + :maintainer + '("Hiroaki Otsu" . "ootsuhiroaki@gmail.com") + :keywords + '("completion") + :url "https://github.com/aki2o/auto-complete-pcmp") +;; Local Variables: +;; no-byte-compile: t +;; End: diff --git a/elpa/auto-complete-pcmp-20140227.651/auto-complete-pcmp.el b/elpa/auto-complete-pcmp-20140303.255/auto-complete-pcmp.el similarity index 99% rename from elpa/auto-complete-pcmp-20140227.651/auto-complete-pcmp.el rename to elpa/auto-complete-pcmp-20140303.255/auto-complete-pcmp.el index 79d147f4..e065556d 100644 --- a/elpa/auto-complete-pcmp-20140227.651/auto-complete-pcmp.el +++ b/elpa/auto-complete-pcmp-20140303.255/auto-complete-pcmp.el @@ -4,7 +4,6 @@ ;; Author: Hiroaki Otsu ;; Keywords: completion -;; Package-Version: 20140227.651 ;; URL: https://github.com/aki2o/auto-complete-pcmp ;; Package-Requires: ((auto-complete "1.4.0") (log4e "0.2.0") (yaxception "0.1")) ;; Version: 0.0.2 -- 2.47.3