Actualización de paquetes.
This commit is contained in:
parent
af5a3bae53
commit
e462d5a49f
@ -1,7 +1,7 @@
|
|||||||
(define-package "all-the-icons" "20200527.1304" "A library for inserting Developer icons"
|
(define-package "all-the-icons" "20200923.1339" "A library for inserting Developer icons"
|
||||||
'((emacs "24.3")
|
'((emacs "24.3")
|
||||||
(memoize "1.0.1"))
|
(memoize "1.0.1"))
|
||||||
:commit "ed8e44de4fa601309d2bba902c3b37cb73e4daa0" :keywords
|
:commit "6917b08f64dd8487e23769433d6cb9ba11f4152f" :keywords
|
||||||
'("convenient" "lisp")
|
'("convenient" "lisp")
|
||||||
:authors
|
:authors
|
||||||
'(("Dominic Charlesworth" . "dgc336@gmail.com"))
|
'(("Dominic Charlesworth" . "dgc336@gmail.com"))
|
@ -98,6 +98,7 @@
|
|||||||
|
|
||||||
(require 'all-the-icons-faces)
|
(require 'all-the-icons-faces)
|
||||||
|
|
||||||
|
(defvar web-mode-content-type) ;silence byte-compiler warning
|
||||||
;;; Custom Variables
|
;;; Custom Variables
|
||||||
(defgroup all-the-icons nil
|
(defgroup all-the-icons nil
|
||||||
"Manage how All The Icons formats icons."
|
"Manage how All The Icons formats icons."
|
||||||
@ -218,6 +219,11 @@
|
|||||||
("\\.mp3$" all-the-icons-faicon "volume-up" :face all-the-icons-dred)
|
("\\.mp3$" all-the-icons-faicon "volume-up" :face all-the-icons-dred)
|
||||||
("\\.wav$" all-the-icons-faicon "volume-up" :face all-the-icons-dred)
|
("\\.wav$" all-the-icons-faicon "volume-up" :face all-the-icons-dred)
|
||||||
("\\.m4a$" all-the-icons-faicon "volume-up" :face all-the-icons-dred)
|
("\\.m4a$" all-the-icons-faicon "volume-up" :face all-the-icons-dred)
|
||||||
|
("\\.ogg$" all-the-icons-faicon "volume-up" :face all-the-icons-dred)
|
||||||
|
("\\.flac$" all-the-icons-faicon "volume-up" :face all-the-icons-dred)
|
||||||
|
("\\.opus$" all-the-icons-faicon "volume-up" :face all-the-icons-dred)
|
||||||
|
("\\.au$" all-the-icons-faicon "volume-up" :face all-the-icons-dred)
|
||||||
|
("\\.aif[fc]?$" all-the-icons-faicon "volume-up" :face all-the-icons-dred)
|
||||||
|
|
||||||
("\\.jl$" all-the-icons-fileicon "julia" :v-adjust 0.0 :face all-the-icons-purple)
|
("\\.jl$" all-the-icons-fileicon "julia" :v-adjust 0.0 :face all-the-icons-purple)
|
||||||
("\\.matlab$" all-the-icons-fileicon "matlab" :face all-the-icons-orange)
|
("\\.matlab$" all-the-icons-fileicon "matlab" :face all-the-icons-orange)
|
||||||
@ -234,6 +240,7 @@
|
|||||||
("\\.ps1$" all-the-icons-fileicon "powershell" :face all-the-icons-blue)
|
("\\.ps1$" all-the-icons-fileicon "powershell" :face all-the-icons-blue)
|
||||||
("\\.prol?o?g?$" all-the-icons-alltheicon "prolog" :height 1.1 :face all-the-icons-lmaroon)
|
("\\.prol?o?g?$" all-the-icons-alltheicon "prolog" :height 1.1 :face all-the-icons-lmaroon)
|
||||||
("\\.py$" all-the-icons-alltheicon "python" :height 1.0 :face all-the-icons-dblue)
|
("\\.py$" all-the-icons-alltheicon "python" :height 1.0 :face all-the-icons-dblue)
|
||||||
|
("\\.ipynb$" all-the-icons-fileicon "jupyter" :height 1.0 :face all-the-icons-dorange)
|
||||||
|
|
||||||
("\\.rkt$" all-the-icons-fileicon "racket" :height 1.2 :face all-the-icons-red)
|
("\\.rkt$" all-the-icons-fileicon "racket" :height 1.2 :face all-the-icons-red)
|
||||||
("^Gemfile\\(\\.lock\\)?$" all-the-icons-alltheicon "ruby-alt" :face all-the-icons-red)
|
("^Gemfile\\(\\.lock\\)?$" all-the-icons-alltheicon "ruby-alt" :face all-the-icons-red)
|
Binary file not shown.
@ -18,7 +18,7 @@
|
|||||||
("Leo Liu" . "sdl.web@gmail.com"))
|
("Leo Liu" . "sdl.web@gmail.com"))
|
||||||
(:keywords "tools" "processes" "convenience"))])
|
(:keywords "tools" "processes" "convenience"))])
|
||||||
(ada-mode .
|
(ada-mode .
|
||||||
[(7 1 3)
|
[(7 1 4)
|
||||||
((uniquify-files
|
((uniquify-files
|
||||||
(1 0 1))
|
(1 0 1))
|
||||||
(wisi
|
(wisi
|
||||||
@ -131,7 +131,7 @@
|
|||||||
("John Wiegley" . "jwiegley@gmail.com"))
|
("John Wiegley" . "jwiegley@gmail.com"))
|
||||||
(:keywords "async"))])
|
(:keywords "async"))])
|
||||||
(auctex .
|
(auctex .
|
||||||
[(12 2 4)
|
[(12 2 5)
|
||||||
((emacs
|
((emacs
|
||||||
(24 1))
|
(24 1))
|
||||||
(cl-lib
|
(cl-lib
|
||||||
@ -179,7 +179,9 @@
|
|||||||
(bbdb .
|
(bbdb .
|
||||||
[(3 2)
|
[(3 2)
|
||||||
((emacs
|
((emacs
|
||||||
(24)))
|
(24))
|
||||||
|
(cl-lib
|
||||||
|
(0 5)))
|
||||||
"core of BBDB" tar
|
"core of BBDB" tar
|
||||||
((:maintainer "Roland Winkler" . "winkler@gnu.org")
|
((:maintainer "Roland Winkler" . "winkler@gnu.org")
|
||||||
(:url . "http://elpa.gnu.org/packages/bbdb.html"))])
|
(:url . "http://elpa.gnu.org/packages/bbdb.html"))])
|
||||||
@ -194,7 +196,7 @@
|
|||||||
(:maintainer "Artur Malabarba" . "emacs@endlessparentheses.com")
|
(:maintainer "Artur Malabarba" . "emacs@endlessparentheses.com")
|
||||||
(:url . "https://github.com/Malabarba/beacon"))])
|
(:url . "https://github.com/Malabarba/beacon"))])
|
||||||
(bluetooth .
|
(bluetooth .
|
||||||
[(0 1 2)
|
[(0 2)
|
||||||
((emacs
|
((emacs
|
||||||
(25 1))
|
(25 1))
|
||||||
(dash
|
(dash
|
||||||
@ -202,7 +204,8 @@
|
|||||||
"A Major mode for Bluetooth devices" single
|
"A Major mode for Bluetooth devices" single
|
||||||
((:keywords "hardware")
|
((:keywords "hardware")
|
||||||
(:authors
|
(:authors
|
||||||
("Raffael Stocker" . "r.stocker@mnet-mail.de"))
|
("Raffael Stocker" . "r.stocker@mnet-mail.de")
|
||||||
|
("Etienne Prud’homme" . "e.e.f.prudhomme@gmail.com"))
|
||||||
(:maintainer "Raffael Stocker" . "r.stocker@mnet-mail.de")
|
(:maintainer "Raffael Stocker" . "r.stocker@mnet-mail.de")
|
||||||
(:url . "https://gitlab.com/rstocker/emacs-bluetooth"))])
|
(:url . "https://gitlab.com/rstocker/emacs-bluetooth"))])
|
||||||
(bnf-mode .
|
(bnf-mode .
|
||||||
@ -400,6 +403,16 @@
|
|||||||
("Oleh Krehel" . "ohwoeowho@gmail.com"))
|
("Oleh Krehel" . "ohwoeowho@gmail.com"))
|
||||||
(:maintainer "Oleh Krehel" . "ohwoeowho@gmail.com")
|
(:maintainer "Oleh Krehel" . "ohwoeowho@gmail.com")
|
||||||
(:url . "https://github.com/abo-abo/swiper"))])
|
(:url . "https://github.com/abo-abo/swiper"))])
|
||||||
|
(cpio-mode .
|
||||||
|
[(0 16)
|
||||||
|
((emacs
|
||||||
|
(24 5)))
|
||||||
|
"Handle cpio archives in the style of dired." tar
|
||||||
|
((:maintainer "Douglas Lewan" . "d.lewan2000@gmail.com")
|
||||||
|
(:authors
|
||||||
|
("Douglas Lewan" . "d.lewan2000@gmail.com"))
|
||||||
|
(:keywords "files")
|
||||||
|
(:url . "http://elpa.gnu.org/packages/cpio-mode.html"))])
|
||||||
(crisp .
|
(crisp .
|
||||||
[(1 3 6)
|
[(1 3 6)
|
||||||
nil "CRiSP/Brief Emacs emulator" single
|
nil "CRiSP/Brief Emacs emulator" single
|
||||||
@ -457,7 +470,7 @@
|
|||||||
("Daiki Ueno" . "ueno@gnu.org"))
|
("Daiki Ueno" . "ueno@gnu.org"))
|
||||||
(:maintainer nil . "emacs-devel@gnu.org"))])
|
(:maintainer nil . "emacs-devel@gnu.org"))])
|
||||||
(debbugs .
|
(debbugs .
|
||||||
[(0 25)
|
[(0 26)
|
||||||
((emacs
|
((emacs
|
||||||
(25 1))
|
(25 1))
|
||||||
(soap-client
|
(soap-client
|
||||||
@ -593,7 +606,7 @@
|
|||||||
("Leo Liu" . "sdl.web@gmail.com"))
|
("Leo Liu" . "sdl.web@gmail.com"))
|
||||||
(:keywords "killing" "convenience"))])
|
(:keywords "killing" "convenience"))])
|
||||||
(ebdb .
|
(ebdb .
|
||||||
[(0 6 18)
|
[(0 6 19)
|
||||||
((emacs
|
((emacs
|
||||||
(25 1))
|
(25 1))
|
||||||
(cl-lib
|
(cl-lib
|
||||||
@ -618,7 +631,7 @@
|
|||||||
("Eric Abrahamsen" . "eric@ericabrahamsen.net"))
|
("Eric Abrahamsen" . "eric@ericabrahamsen.net"))
|
||||||
(:maintainer "Eric Abrahamsen" . "eric@ericabrahamsen.net"))])
|
(:maintainer "Eric Abrahamsen" . "eric@ericabrahamsen.net"))])
|
||||||
(ebdb-i18n-chn .
|
(ebdb-i18n-chn .
|
||||||
[(1 3)
|
[(1 3 1)
|
||||||
((pyim
|
((pyim
|
||||||
(1 6 0))
|
(1 6 0))
|
||||||
(ebdb
|
(ebdb
|
||||||
@ -629,7 +642,7 @@
|
|||||||
("Eric Abrahamsen" . "eric@ericabrahamsen.net"))
|
("Eric Abrahamsen" . "eric@ericabrahamsen.net"))
|
||||||
(:maintainer "Eric Abrahamsen" . "eric@ericabrahamsen.net"))])
|
(:maintainer "Eric Abrahamsen" . "eric@ericabrahamsen.net"))])
|
||||||
(ediprolog .
|
(ediprolog .
|
||||||
[(1 2)
|
[(2 1)
|
||||||
nil "Emacs Does Interactive Prolog" single
|
nil "Emacs Does Interactive Prolog" single
|
||||||
((:keywords "languages" "processes")
|
((:keywords "languages" "processes")
|
||||||
(:authors
|
(:authors
|
||||||
@ -637,7 +650,7 @@
|
|||||||
(:maintainer "Markus Triska" . "triska@metalevel.at")
|
(:maintainer "Markus Triska" . "triska@metalevel.at")
|
||||||
(:url . "https://www.metalevel.at/ediprolog/"))])
|
(:url . "https://www.metalevel.at/ediprolog/"))])
|
||||||
(eev .
|
(eev .
|
||||||
[(20200224)
|
[(20200928)
|
||||||
((emacs
|
((emacs
|
||||||
(24 1)))
|
(24 1)))
|
||||||
"Support for e-scripts (eepitch blocks, elisp hyperlinks, etc)" tar
|
"Support for e-scripts (eepitch blocks, elisp hyperlinks, etc)" tar
|
||||||
@ -675,7 +688,7 @@
|
|||||||
(:keywords "lisp")
|
(:keywords "lisp")
|
||||||
(:url . "http://elpa.gnu.org/packages/el-search.html"))])
|
(:url . "http://elpa.gnu.org/packages/el-search.html"))])
|
||||||
(eldoc .
|
(eldoc .
|
||||||
[(1 8 0)
|
[(1 10 0)
|
||||||
((emacs
|
((emacs
|
||||||
(26 3)))
|
(26 3)))
|
||||||
"Show function arglist or variable docstring in echo area" single
|
"Show function arglist or variable docstring in echo area" single
|
||||||
@ -699,7 +712,7 @@
|
|||||||
("William Xu" . "william.xwl@gmail.com"))
|
("William Xu" . "william.xwl@gmail.com"))
|
||||||
(:maintainer "William Xu" . "william.xwl@gmail.com"))])
|
(:maintainer "William Xu" . "william.xwl@gmail.com"))])
|
||||||
(elisp-benchmarks .
|
(elisp-benchmarks .
|
||||||
[(1 6)
|
[(1 8)
|
||||||
nil "elisp benchmarks collection" tar
|
nil "elisp benchmarks collection" tar
|
||||||
((:maintainer "Andrea Corallo" . "akrl@sdf.org")
|
((:maintainer "Andrea Corallo" . "akrl@sdf.org")
|
||||||
(:authors
|
(:authors
|
||||||
@ -751,13 +764,13 @@
|
|||||||
("Matthew L. Fidler" . "matthew.fidler@gmail.com"))
|
("Matthew L. Fidler" . "matthew.fidler@gmail.com"))
|
||||||
(:keywords "convenience"))])
|
(:keywords "convenience"))])
|
||||||
(excorporate .
|
(excorporate .
|
||||||
[(0 8 3)
|
[(0 9 0)
|
||||||
((emacs
|
((emacs
|
||||||
(24 1))
|
(24 1))
|
||||||
(fsm
|
(fsm
|
||||||
(0 2 1))
|
(0 2 1))
|
||||||
(soap-client
|
(soap-client
|
||||||
(3 1 5))
|
(3 2 0))
|
||||||
(url-http-ntlm
|
(url-http-ntlm
|
||||||
(2 0 4))
|
(2 0 4))
|
||||||
(nadvice
|
(nadvice
|
||||||
@ -825,16 +838,6 @@
|
|||||||
(:authors
|
(:authors
|
||||||
("Pavel Kobyakov" . "pk_at_work@yahoo.com"))
|
("Pavel Kobyakov" . "pk_at_work@yahoo.com"))
|
||||||
(:maintainer "João Távora" . "joaotavora@gmail.com"))])
|
(:maintainer "João Távora" . "joaotavora@gmail.com"))])
|
||||||
(fountain-mode .
|
|
||||||
[(2 7 3)
|
|
||||||
((emacs
|
|
||||||
(24 5)))
|
|
||||||
"Major mode for screenwriting in Fountain markup" single
|
|
||||||
((:keywords "wp" "text")
|
|
||||||
(:authors
|
|
||||||
("Paul W. Rankin" . "pwr@sdf.org"))
|
|
||||||
(:maintainer "Paul W. Rankin" . "pwr@sdf.org")
|
|
||||||
(:url . "https://fountain-mode.org"))])
|
|
||||||
(frame-tabs .
|
(frame-tabs .
|
||||||
[(1 1)
|
[(1 1)
|
||||||
nil "show buffer tabs in side window" single
|
nil "show buffer tabs in side window" single
|
||||||
@ -911,7 +914,7 @@
|
|||||||
(:keywords "gnome" "c" "coding style")
|
(:keywords "gnome" "c" "coding style")
|
||||||
(:url . "http://elpa.gnu.org/packages/gnome-c-style.html"))])
|
(:url . "http://elpa.gnu.org/packages/gnome-c-style.html"))])
|
||||||
(gnorb .
|
(gnorb .
|
||||||
[(1 6 7)
|
[(1 6 8)
|
||||||
((cl-lib
|
((cl-lib
|
||||||
(0 5)))
|
(0 5)))
|
||||||
"Glue code between Gnus, Org, and BBDB" tar
|
"Glue code between Gnus, Org, and BBDB" tar
|
||||||
@ -1035,7 +1038,7 @@
|
|||||||
("Oleh Krehel" . "ohwoeowho@gmail.com"))
|
("Oleh Krehel" . "ohwoeowho@gmail.com"))
|
||||||
(:keywords "bindings"))])
|
(:keywords "bindings"))])
|
||||||
(hyperbole .
|
(hyperbole .
|
||||||
[(7 1 2)
|
[(7 1 3)
|
||||||
((emacs
|
((emacs
|
||||||
(24 4)))
|
(24 4)))
|
||||||
"GNU Hyperbole: The Everyday Hypertextual Information Manager" tar
|
"GNU Hyperbole: The Everyday Hypertextual Information Manager" tar
|
||||||
@ -1087,6 +1090,21 @@
|
|||||||
("Clemens Radermacher" . "clemera@posteo.net"))
|
("Clemens Radermacher" . "clemera@posteo.net"))
|
||||||
(:maintainer "Clemens Radermacher" . "clemera@posteo.net")
|
(:maintainer "Clemens Radermacher" . "clemera@posteo.net")
|
||||||
(:url . "https://github.com/clemera/ivy-explorer"))])
|
(:url . "https://github.com/clemera/ivy-explorer"))])
|
||||||
|
(ivy-posframe .
|
||||||
|
[(0 5 0)
|
||||||
|
((emacs
|
||||||
|
(26 0))
|
||||||
|
(posframe
|
||||||
|
(0 8 0))
|
||||||
|
(ivy
|
||||||
|
(0 13 0)))
|
||||||
|
"Using posframe to show Ivy" single
|
||||||
|
((:keywords "abbrev" "convenience" "matching" "ivy")
|
||||||
|
(:authors
|
||||||
|
("Feng Shu" . "tumashu@163.com")
|
||||||
|
("Naoya Yamashita" . "conao3@gmail.com"))
|
||||||
|
(:maintainer "Feng Shu" . "tumashu@163.com")
|
||||||
|
(:url . "https://github.com/tumashu/ivy-posframe"))])
|
||||||
(javaimp .
|
(javaimp .
|
||||||
[(0 7 1)
|
[(0 7 1)
|
||||||
nil "Add and reorder Java import statements in Maven/Gradle projects" tar
|
nil "Add and reorder Java import statements in Maven/Gradle projects" tar
|
||||||
@ -1308,7 +1326,7 @@
|
|||||||
("Stefan Monnier" . "monnier@iro.umontreal.ca"))
|
("Stefan Monnier" . "monnier@iro.umontreal.ca"))
|
||||||
(:maintainer "Stefan Monnier" . "monnier@iro.umontreal.ca"))])
|
(:maintainer "Stefan Monnier" . "monnier@iro.umontreal.ca"))])
|
||||||
(minimap .
|
(minimap .
|
||||||
[(1 3)
|
[(1 4)
|
||||||
nil "Sidebar showing a \"mini-map\" of a buffer" single
|
nil "Sidebar showing a \"mini-map\" of a buffer" single
|
||||||
((:url . "http://elpa.gnu.org/packages/minimap.html")
|
((:url . "http://elpa.gnu.org/packages/minimap.html")
|
||||||
(:authors
|
(:authors
|
||||||
@ -1325,7 +1343,7 @@
|
|||||||
("Michael Abraham Shulman" . "viritrilbia@gmail.com"))
|
("Michael Abraham Shulman" . "viritrilbia@gmail.com"))
|
||||||
(:keywords "convenience" "faces" "languages" "tools"))])
|
(:keywords "convenience" "faces" "languages" "tools"))])
|
||||||
(modus-operandi-theme .
|
(modus-operandi-theme .
|
||||||
[(0 10 0)
|
[(0 12 0)
|
||||||
((emacs
|
((emacs
|
||||||
(26 1)))
|
(26 1)))
|
||||||
"Accessible light theme (WCAG AAA)" single
|
"Accessible light theme (WCAG AAA)" single
|
||||||
@ -1335,7 +1353,7 @@
|
|||||||
(:maintainer "Protesilaos Stavrou" . "info@protesilaos.com")
|
(:maintainer "Protesilaos Stavrou" . "info@protesilaos.com")
|
||||||
(:url . "https://gitlab.com/protesilaos/modus-themes"))])
|
(:url . "https://gitlab.com/protesilaos/modus-themes"))])
|
||||||
(modus-vivendi-theme .
|
(modus-vivendi-theme .
|
||||||
[(0 10 0)
|
[(0 12 0)
|
||||||
((emacs
|
((emacs
|
||||||
(26 1)))
|
(26 1)))
|
||||||
"Accessible dark theme (WCAG AAA)" single
|
"Accessible dark theme (WCAG AAA)" single
|
||||||
@ -1447,8 +1465,12 @@
|
|||||||
("Felix Lee <felix8a@gmail.com>, Michal Nazarewicz" . "mina86@mina86.com"))
|
("Felix Lee <felix8a@gmail.com>, Michal Nazarewicz" . "mina86@mina86.com"))
|
||||||
(:maintainer "Michal Nazarewicz" . "mina86@mina86.com"))])
|
(:maintainer "Michal Nazarewicz" . "mina86@mina86.com"))])
|
||||||
(oauth2 .
|
(oauth2 .
|
||||||
[(0 13)
|
[(0 15)
|
||||||
nil "OAuth 2.0 Authorization Protocol" single
|
((cl-lib
|
||||||
|
(0 5))
|
||||||
|
(nadvice
|
||||||
|
(0 3)))
|
||||||
|
"OAuth 2.0 Authorization Protocol" single
|
||||||
((:url . "http://elpa.gnu.org/packages/oauth2.html")
|
((:url . "http://elpa.gnu.org/packages/oauth2.html")
|
||||||
(:keywords "comm")
|
(:keywords "comm")
|
||||||
(:authors
|
(:authors
|
||||||
@ -1466,16 +1488,6 @@
|
|||||||
(:authors
|
(:authors
|
||||||
("Clemens Radermacher" . "clemera@posteo.net"))
|
("Clemens Radermacher" . "clemera@posteo.net"))
|
||||||
(:keywords "convenience"))])
|
(:keywords "convenience"))])
|
||||||
(olivetti .
|
|
||||||
[(1 7 1)
|
|
||||||
((emacs
|
|
||||||
(24 5)))
|
|
||||||
"Minor mode for a nice writing environment" single
|
|
||||||
((:url . "http://elpa.gnu.org/packages/olivetti.html")
|
|
||||||
(:keywords "wp" "text")
|
|
||||||
(:authors
|
|
||||||
("Paul W. Rankin" . "pwr@sdf.org"))
|
|
||||||
(:maintainer "Paul W. Rankin" . "pwr@sdf.org"))])
|
|
||||||
(omn-mode .
|
(omn-mode .
|
||||||
[(1 2)
|
[(1 2)
|
||||||
nil "Support for OWL Manchester Notation" single
|
nil "Support for OWL Manchester Notation" single
|
||||||
@ -1494,7 +1506,7 @@
|
|||||||
(:maintainer "Michael Heerdegen" . "michael_heerdegen@web.de")
|
(:maintainer "Michael Heerdegen" . "michael_heerdegen@web.de")
|
||||||
(:url . "https://github.com/michael-heerdegen/on-screen.el"))])
|
(:url . "https://github.com/michael-heerdegen/on-screen.el"))])
|
||||||
(org .
|
(org .
|
||||||
[(9 3 6)
|
[(9 4)
|
||||||
nil "Outline-based notes management and organizer" tar
|
nil "Outline-based notes management and organizer" tar
|
||||||
((:url . "https://orgmode.org")
|
((:url . "https://orgmode.org")
|
||||||
(:maintainer "Bastien Guerry" . "bzg@gnu.org")
|
(:maintainer "Bastien Guerry" . "bzg@gnu.org")
|
||||||
@ -1502,7 +1514,7 @@
|
|||||||
("Carsten Dominik <carsten at orgmode dot org>"))
|
("Carsten Dominik <carsten at orgmode dot org>"))
|
||||||
(:keywords "outlines" "hypermedia" "calendar" "wp"))])
|
(:keywords "outlines" "hypermedia" "calendar" "wp"))])
|
||||||
(org-edna .
|
(org-edna .
|
||||||
[(1 1 1)
|
[(1 1 2)
|
||||||
((emacs
|
((emacs
|
||||||
(25 1))
|
(25 1))
|
||||||
(seq
|
(seq
|
||||||
@ -1515,8 +1527,19 @@
|
|||||||
(:authors
|
(:authors
|
||||||
("Ian Dunn" . "dunni@gnu.org"))
|
("Ian Dunn" . "dunni@gnu.org"))
|
||||||
(:keywords "convenience" "text" "org"))])
|
(:keywords "convenience" "text" "org"))])
|
||||||
|
(org-translate .
|
||||||
|
[(0 1 1)
|
||||||
|
((emacs
|
||||||
|
(25 1))
|
||||||
|
(org
|
||||||
|
(9 1)))
|
||||||
|
"Org-based translation environment" single
|
||||||
|
((:url . "http://elpa.gnu.org/packages/org-translate.html")
|
||||||
|
(:authors
|
||||||
|
("Eric Abrahamsen" . "eric@ericabrahamsen.net"))
|
||||||
|
(:maintainer "Eric Abrahamsen" . "eric@ericabrahamsen.net"))])
|
||||||
(orgalist .
|
(orgalist .
|
||||||
[(1 12)
|
[(1 13)
|
||||||
((emacs
|
((emacs
|
||||||
(24 4)))
|
(24 4)))
|
||||||
"Manage Org-like lists in non-Org buffers" single
|
"Manage Org-like lists in non-Org buffers" single
|
||||||
@ -1600,7 +1623,7 @@
|
|||||||
("Phillip Lord" . "phillip.lord@russet.org.uk"))
|
("Phillip Lord" . "phillip.lord@russet.org.uk"))
|
||||||
(:url . "http://elpa.gnu.org/packages/persist.html"))])
|
(:url . "http://elpa.gnu.org/packages/persist.html"))])
|
||||||
(phps-mode .
|
(phps-mode .
|
||||||
[(0 3 52)
|
[(0 3 62)
|
||||||
((emacs
|
((emacs
|
||||||
(26)))
|
(26)))
|
||||||
"Major mode for PHP with Semantic integration" tar
|
"Major mode for PHP with Semantic integration" tar
|
||||||
@ -1626,7 +1649,7 @@
|
|||||||
("Mario Lang" . "mlang@delysid.org"))
|
("Mario Lang" . "mlang@delysid.org"))
|
||||||
(:maintainer "Mario Lang" . "mlang@delysid.org"))])
|
(:maintainer "Mario Lang" . "mlang@delysid.org"))])
|
||||||
(posframe .
|
(posframe .
|
||||||
[(0 7 0)
|
[(0 8 0)
|
||||||
((emacs
|
((emacs
|
||||||
(26)))
|
(26)))
|
||||||
"Pop a posframe (just a frame) at point" single
|
"Pop a posframe (just a frame) at point" single
|
||||||
@ -1636,9 +1659,11 @@
|
|||||||
(:maintainer "Feng Shu" . "tumashu@163.com")
|
(:maintainer "Feng Shu" . "tumashu@163.com")
|
||||||
(:url . "https://github.com/tumashu/posframe"))])
|
(:url . "https://github.com/tumashu/posframe"))])
|
||||||
(project .
|
(project .
|
||||||
[(0 5 0)
|
[(0 5 2)
|
||||||
((emacs
|
((emacs
|
||||||
(26 3)))
|
(26 3))
|
||||||
|
(xref
|
||||||
|
(1 0 2)))
|
||||||
"Operations on the current project" single
|
"Operations on the current project" single
|
||||||
((:url . "http://elpa.gnu.org/packages/project.html"))])
|
((:url . "http://elpa.gnu.org/packages/project.html"))])
|
||||||
(psgml .
|
(psgml .
|
||||||
@ -1861,8 +1886,16 @@
|
|||||||
(:authors
|
(:authors
|
||||||
("Stefan Monnier" . "monnier@iro.umontreal.ca"))
|
("Stefan Monnier" . "monnier@iro.umontreal.ca"))
|
||||||
(:maintainer "Stefan Monnier" . "monnier@iro.umontreal.ca"))])
|
(:maintainer "Stefan Monnier" . "monnier@iro.umontreal.ca"))])
|
||||||
|
(rt-liberation .
|
||||||
|
[(1 31)
|
||||||
|
nil "Emacs interface to RT" tar
|
||||||
|
((:url . "http://www.nongnu.org/rtliber/")
|
||||||
|
(:maintainer "Yoni Rabkin" . "yrk@gnu.org")
|
||||||
|
(:authors
|
||||||
|
("Yoni Rabkin" . "yrk@gnu.org"))
|
||||||
|
(:keywords "rt" "tickets"))])
|
||||||
(rudel .
|
(rudel .
|
||||||
[(0 3 1)
|
[(0 3 2)
|
||||||
((emacs
|
((emacs
|
||||||
(24))
|
(24))
|
||||||
(cl-lib
|
(cl-lib
|
||||||
@ -1905,7 +1938,7 @@
|
|||||||
("Stefan Monnier" . "monnier@iro.umontreal.ca"))
|
("Stefan Monnier" . "monnier@iro.umontreal.ca"))
|
||||||
(:maintainer "Stefan Monnier" . "monnier@iro.umontreal.ca"))])
|
(:maintainer "Stefan Monnier" . "monnier@iro.umontreal.ca"))])
|
||||||
(seq .
|
(seq .
|
||||||
[(2 20)
|
[(2 22)
|
||||||
nil "Sequence manipulation functions" tar
|
nil "Sequence manipulation functions" tar
|
||||||
((:maintainer nil . "emacs-devel@gnu.org")
|
((:maintainer nil . "emacs-devel@gnu.org")
|
||||||
(:authors
|
(:authors
|
||||||
@ -1920,6 +1953,16 @@
|
|||||||
(:authors
|
(:authors
|
||||||
("Michael R. Mauger" . "michael@mauger.com"))
|
("Michael R. Mauger" . "michael@mauger.com"))
|
||||||
(:maintainer "Michael R. Mauger" . "michael@mauger.com"))])
|
(:maintainer "Michael R. Mauger" . "michael@mauger.com"))])
|
||||||
|
(shell-command+ .
|
||||||
|
[(2 0 0)
|
||||||
|
((emacs
|
||||||
|
(24 1)))
|
||||||
|
"An extended shell-command" tar
|
||||||
|
((:url . "http://elpa.gnu.org/packages/shell-command+.html")
|
||||||
|
(:maintainer "Philip K." . "philipk@posteo.net")
|
||||||
|
(:authors
|
||||||
|
("Philip K." . "philipk@posteo.net"))
|
||||||
|
(:keywords "unix" "processes" "convenience"))])
|
||||||
(shen-mode .
|
(shen-mode .
|
||||||
[(0 1)
|
[(0 1)
|
||||||
nil "A major mode for editing shen source code" tar
|
nil "A major mode for editing shen source code" tar
|
||||||
@ -1978,8 +2021,18 @@
|
|||||||
(" Matthias Blume" . "blume@cs.princeton.edu")
|
(" Matthias Blume" . "blume@cs.princeton.edu")
|
||||||
(" (Stefan Monnier)" . "monnier@iro.umontreal.ca"))
|
(" (Stefan Monnier)" . "monnier@iro.umontreal.ca"))
|
||||||
(:maintainer "Stefan Monnier" . "monnier@iro.umontreal.ca"))])
|
(:maintainer "Stefan Monnier" . "monnier@iro.umontreal.ca"))])
|
||||||
|
(so-long .
|
||||||
|
[(1 0)
|
||||||
|
((emacs
|
||||||
|
(24 4)))
|
||||||
|
"Say farewell to performance problems with minified code." single
|
||||||
|
((:keywords "convenience")
|
||||||
|
(:authors
|
||||||
|
("Phil Sainty" . "psainty@orcon.net.nz"))
|
||||||
|
(:maintainer "Phil Sainty" . "psainty@orcon.net.nz")
|
||||||
|
(:url . "https://savannah.nongnu.org/projects/so-long"))])
|
||||||
(soap-client .
|
(soap-client .
|
||||||
[(3 1 5)
|
[(3 2 0)
|
||||||
((cl-lib
|
((cl-lib
|
||||||
(0 6 1)))
|
(0 6 1)))
|
||||||
"Access SOAP web services" tar
|
"Access SOAP web services" tar
|
||||||
@ -2018,6 +2071,14 @@
|
|||||||
("Artur Malabarba" . "emacs@endlessparentheses.com"))
|
("Artur Malabarba" . "emacs@endlessparentheses.com"))
|
||||||
(:maintainer "Artur Malabarba" . "emacs@endlessparentheses.com")
|
(:maintainer "Artur Malabarba" . "emacs@endlessparentheses.com")
|
||||||
(:url . "https://github.com/Malabarba/spinner.el"))])
|
(:url . "https://github.com/Malabarba/spinner.el"))])
|
||||||
|
(sql-beeline .
|
||||||
|
[(0 1)
|
||||||
|
nil "Beeline support for sql.el" single
|
||||||
|
((:url . "http://elpa.gnu.org/packages/sql-beeline.html")
|
||||||
|
(:keywords "sql" "hive" "beeline" "hiveserver2")
|
||||||
|
(:authors
|
||||||
|
("Filipp Gunbin" . "fgunbin@fastmail.fm"))
|
||||||
|
(:maintainer "Filipp Gunbin" . "fgunbin@fastmail.fm"))])
|
||||||
(sql-indent .
|
(sql-indent .
|
||||||
[(1 5)
|
[(1 5)
|
||||||
((cl-lib
|
((cl-lib
|
||||||
@ -2049,7 +2110,7 @@
|
|||||||
(:keywords "stream" "laziness" "sequences")
|
(:keywords "stream" "laziness" "sequences")
|
||||||
(:url . "http://elpa.gnu.org/packages/stream.html"))])
|
(:url . "http://elpa.gnu.org/packages/stream.html"))])
|
||||||
(svg .
|
(svg .
|
||||||
[(1 0)
|
[(1 1)
|
||||||
((emacs
|
((emacs
|
||||||
(25)))
|
(25)))
|
||||||
"SVG image creation functions" single
|
"SVG image creation functions" single
|
||||||
@ -2060,7 +2121,7 @@
|
|||||||
("Felix E. Klee" . "felix.klee@inka.de"))
|
("Felix E. Klee" . "felix.klee@inka.de"))
|
||||||
(:maintainer "Lars Magne Ingebrigtsen" . "larsi@gnus.org"))])
|
(:maintainer "Lars Magne Ingebrigtsen" . "larsi@gnus.org"))])
|
||||||
(svg-clock .
|
(svg-clock .
|
||||||
[(1 1)
|
[(1 2)
|
||||||
((svg
|
((svg
|
||||||
(1 0))
|
(1 0))
|
||||||
(emacs
|
(emacs
|
||||||
@ -2142,7 +2203,7 @@
|
|||||||
("Oleh Krehel" . "ohwoeowho@gmail.com"))
|
("Oleh Krehel" . "ohwoeowho@gmail.com"))
|
||||||
(:keywords "convenience"))])
|
(:keywords "convenience"))])
|
||||||
(tramp .
|
(tramp .
|
||||||
[(2 4 4 1)
|
[(2 4 4 2)
|
||||||
((emacs
|
((emacs
|
||||||
(24 4)))
|
(24 4)))
|
||||||
"Transparent Remote Access, Multiple Protocol" tar
|
"Transparent Remote Access, Multiple Protocol" tar
|
||||||
@ -2182,7 +2243,7 @@
|
|||||||
(:maintainer "Toby Cubitt" . "toby-predictive@dr-qubit.org")
|
(:maintainer "Toby Cubitt" . "toby-predictive@dr-qubit.org")
|
||||||
(:url . "http://www.dr-qubit.org/emacs.php"))])
|
(:url . "http://www.dr-qubit.org/emacs.php"))])
|
||||||
(undo-tree .
|
(undo-tree .
|
||||||
[(0 7 4)
|
[(0 7 5)
|
||||||
nil "Treat undo history as a tree" single
|
nil "Treat undo history as a tree" single
|
||||||
((:keywords "convenience" "files" "undo" "redo" "history" "tree")
|
((:keywords "convenience" "files" "undo" "redo" "history" "tree")
|
||||||
(:authors
|
(:authors
|
||||||
@ -2296,13 +2357,13 @@
|
|||||||
("Stefan Monnier" . "monnier@iro.umontreal.ca"))
|
("Stefan Monnier" . "monnier@iro.umontreal.ca"))
|
||||||
(:maintainer "Stefan Monnier" . "monnier@iro.umontreal.ca"))])
|
(:maintainer "Stefan Monnier" . "monnier@iro.umontreal.ca"))])
|
||||||
(vlf .
|
(vlf .
|
||||||
[(1 7 1)
|
[(1 7 2)
|
||||||
nil "View Large Files" tar
|
nil "View Large Files" tar
|
||||||
((:url . "https://github.com/m00natic/vlfi")
|
((:url . "https://github.com/m00natic/vlfi")
|
||||||
(:maintainer "Andrey Kotlarski" . "m00naticus@gmail.com")
|
(:maintainer "Andrey Kotlarski" . "m00naticus@gmail.com")
|
||||||
(:keywords "large files" "utilities"))])
|
(:keywords "large files" "utilities"))])
|
||||||
(wcheck-mode .
|
(wcheck-mode .
|
||||||
[(2019 6 17)
|
[(2020 10 4)
|
||||||
nil "General interface for text checkers" single
|
nil "General interface for text checkers" single
|
||||||
((:keywords "text" "spell" "check" "languages" "ispell")
|
((:keywords "text" "spell" "check" "languages" "ispell")
|
||||||
(:authors
|
(:authors
|
||||||
@ -2350,7 +2411,7 @@
|
|||||||
(:keywords "communication" "websocket" "server")
|
(:keywords "communication" "websocket" "server")
|
||||||
(:url . "http://elpa.gnu.org/packages/websocket.html"))])
|
(:url . "http://elpa.gnu.org/packages/websocket.html"))])
|
||||||
(which-key .
|
(which-key .
|
||||||
[(3 3 0)
|
[(3 3 2)
|
||||||
((emacs
|
((emacs
|
||||||
(24 4)))
|
(24 4)))
|
||||||
"Display available keybindings in popup" tar
|
"Display available keybindings in popup" tar
|
||||||
@ -2448,11 +2509,9 @@
|
|||||||
("Mattias Engdegård" . "mattiase@acm.org"))
|
("Mattias Engdegård" . "mattiase@acm.org"))
|
||||||
(:keywords "lisp" "regexps"))])
|
(:keywords "lisp" "regexps"))])
|
||||||
(xref .
|
(xref .
|
||||||
[(1 0 1)
|
[(1 0 3)
|
||||||
((emacs
|
((emacs
|
||||||
(26 3))
|
(26 3)))
|
||||||
(project
|
|
||||||
(0 1 1)))
|
|
||||||
"Cross-referencing commands" single
|
"Cross-referencing commands" single
|
||||||
((:url . "http://elpa.gnu.org/packages/xref.html"))])
|
((:url . "http://elpa.gnu.org/packages/xref.html"))])
|
||||||
(yasnippet .
|
(yasnippet .
|
||||||
|
@ -1 +1 @@
|
|||||||
Good signature from 066DAFCB81E42C40 GNU ELPA Signing Agent (2019) <elpasign@elpa.gnu.org> (trust undefined) created at 2020-07-31T05:05:02-0400 using RSA
|
Good signature from 066DAFCB81E42C40 GNU ELPA Signing Agent (2019) <elpasign@elpa.gnu.org> (trust undefined) created at 2020-10-05T17:05:02-0400 using RSA
|
File diff suppressed because it is too large
Load Diff
@ -1,7 +0,0 @@
|
|||||||
(define-package "auto-complete" "20170125.245" "Auto Completion for GNU Emacs"
|
|
||||||
'((popup "0.5.0")
|
|
||||||
(cl-lib "0.5"))
|
|
||||||
:commit "c0836fa0662095071e3c40237db611063e3c3ceb")
|
|
||||||
;; Local Variables:
|
|
||||||
;; no-byte-compile: t
|
|
||||||
;; End:
|
|
@ -50,7 +50,7 @@ See `auto-complete-mode' for more information on Auto-Complete mode.
|
|||||||
;;; Generated autoloads from auto-complete-config.el
|
;;; Generated autoloads from auto-complete-config.el
|
||||||
|
|
||||||
(autoload 'ac-config-default "auto-complete-config" "\
|
(autoload 'ac-config-default "auto-complete-config" "\
|
||||||
|
No documentation.
|
||||||
|
|
||||||
\(fn)" nil nil)
|
\(fn)" nil nil)
|
||||||
|
|
@ -1,6 +1,6 @@
|
|||||||
;;; auto-complete-config.el --- auto-complete additional configuations
|
;;; auto-complete-config.el --- auto-complete additional configuations
|
||||||
|
|
||||||
;; Copyright (C) 2009, 2010 Tomohiro Matsuyama
|
;; Copyright (C) 2009-2010 Tomohiro Matsuyama
|
||||||
|
|
||||||
;; Author: Tomohiro Matsuyama <m2ym.pub@gmail.com>
|
;; Author: Tomohiro Matsuyama <m2ym.pub@gmail.com>
|
||||||
;; Keywords: convenience
|
;; Keywords: convenience
|
||||||
@ -47,6 +47,7 @@
|
|||||||
(ac-clear-variable-every-10-minutes 'ac-imenu-index)
|
(ac-clear-variable-every-10-minutes 'ac-imenu-index)
|
||||||
|
|
||||||
(defun ac-imenu-candidates ()
|
(defun ac-imenu-candidates ()
|
||||||
|
"No documentation."
|
||||||
(cl-loop with i = 0
|
(cl-loop with i = 0
|
||||||
with stack = (progn
|
with stack = (progn
|
||||||
(unless (local-variable-p 'ac-imenu-index)
|
(unless (local-variable-p 'ac-imenu-index)
|
||||||
@ -95,6 +96,7 @@
|
|||||||
:group 'auto-complete)
|
:group 'auto-complete)
|
||||||
|
|
||||||
(defun ac-gtags-candidate ()
|
(defun ac-gtags-candidate ()
|
||||||
|
"No documentation."
|
||||||
(ignore-errors
|
(ignore-errors
|
||||||
(split-string (shell-command-to-string (format "global -ciq %s" ac-prefix)) "\n")))
|
(split-string (shell-command-to-string (format "global -ciq %s" ac-prefix)) "\n")))
|
||||||
|
|
||||||
@ -119,6 +121,7 @@
|
|||||||
:group 'auto-complete)
|
:group 'auto-complete)
|
||||||
|
|
||||||
(defun ac-yasnippet-table-hash (table)
|
(defun ac-yasnippet-table-hash (table)
|
||||||
|
"No documentation, TABLE."
|
||||||
(cond
|
(cond
|
||||||
((fboundp 'yas/snippet-table-hash)
|
((fboundp 'yas/snippet-table-hash)
|
||||||
(yas/snippet-table-hash table))
|
(yas/snippet-table-hash table))
|
||||||
@ -126,6 +129,7 @@
|
|||||||
(yas/table-hash table))))
|
(yas/table-hash table))))
|
||||||
|
|
||||||
(defun ac-yasnippet-table-parent (table)
|
(defun ac-yasnippet-table-parent (table)
|
||||||
|
"No documentation, TABLE."
|
||||||
(cond
|
(cond
|
||||||
((fboundp 'yas/snippet-table-parent)
|
((fboundp 'yas/snippet-table-parent)
|
||||||
(yas/snippet-table-parent table))
|
(yas/snippet-table-parent table))
|
||||||
@ -133,6 +137,7 @@
|
|||||||
(yas/table-parent table))))
|
(yas/table-parent table))))
|
||||||
|
|
||||||
(defun ac-yasnippet-candidate-1 (table)
|
(defun ac-yasnippet-candidate-1 (table)
|
||||||
|
"No documentation, TABLE."
|
||||||
(with-no-warnings
|
(with-no-warnings
|
||||||
(let ((hashtab (ac-yasnippet-table-hash table))
|
(let ((hashtab (ac-yasnippet-table-hash table))
|
||||||
(parent (ac-yasnippet-table-parent table))
|
(parent (ac-yasnippet-table-parent table))
|
||||||
@ -141,12 +146,13 @@
|
|||||||
(push key candidates))
|
(push key candidates))
|
||||||
hashtab)
|
hashtab)
|
||||||
(setq candidates (all-completions ac-prefix (nreverse candidates)))
|
(setq candidates (all-completions ac-prefix (nreverse candidates)))
|
||||||
(if parent
|
(when parent
|
||||||
(setq candidates
|
(setq candidates
|
||||||
(append candidates (ac-yasnippet-candidate-1 parent))))
|
(append candidates (ac-yasnippet-candidate-1 parent))))
|
||||||
candidates)))
|
candidates)))
|
||||||
|
|
||||||
(defun ac-yasnippet-candidates ()
|
(defun ac-yasnippet-candidates ()
|
||||||
|
"No documentation."
|
||||||
(with-no-warnings
|
(with-no-warnings
|
||||||
(cond (;; 0.8 onwards
|
(cond (;; 0.8 onwards
|
||||||
(fboundp 'yas-active-keys)
|
(fboundp 'yas-active-keys)
|
||||||
@ -166,7 +172,7 @@
|
|||||||
(yas/snippet-table major-mode)
|
(yas/snippet-table major-mode)
|
||||||
;; 0.6.0
|
;; 0.6.0
|
||||||
(yas/current-snippet-table))))
|
(yas/current-snippet-table))))
|
||||||
(if table
|
(when table
|
||||||
(ac-yasnippet-candidate-1 table)))))))
|
(ac-yasnippet-candidate-1 table)))))))
|
||||||
|
|
||||||
(ac-define-source yasnippet
|
(ac-define-source yasnippet
|
||||||
@ -180,6 +186,7 @@
|
|||||||
;; semantic
|
;; semantic
|
||||||
|
|
||||||
(defun ac-semantic-candidates (prefix)
|
(defun ac-semantic-candidates (prefix)
|
||||||
|
"No documentation, PREFIX."
|
||||||
(with-no-warnings
|
(with-no-warnings
|
||||||
(delete "" ; semantic sometimes returns an empty string
|
(delete "" ; semantic sometimes returns an empty string
|
||||||
(mapcar (lambda (elem)
|
(mapcar (lambda (elem)
|
||||||
@ -191,6 +198,7 @@
|
|||||||
(senator-find-tag-for-completion prefix)))))))
|
(senator-find-tag-for-completion prefix)))))))
|
||||||
|
|
||||||
(defun ac-semantic-doc (symbol)
|
(defun ac-semantic-doc (symbol)
|
||||||
|
"No documentation, SYMBOL."
|
||||||
(with-no-warnings
|
(with-no-warnings
|
||||||
(let* ((proto (semantic-format-tag-summarize-with-file symbol nil t))
|
(let* ((proto (semantic-format-tag-summarize-with-file symbol nil t))
|
||||||
(doc (semantic-documentation-for-tag symbol))
|
(doc (semantic-documentation-for-tag symbol))
|
||||||
@ -200,6 +208,7 @@
|
|||||||
res)))
|
res)))
|
||||||
|
|
||||||
(defun ac-semantic-action ()
|
(defun ac-semantic-action ()
|
||||||
|
"No documentation."
|
||||||
(when (and (boundp 'yas-minor-mode) yas-minor-mode)
|
(when (and (boundp 'yas-minor-mode) yas-minor-mode)
|
||||||
(let* ((tag (car (last (oref (semantic-analyze-current-context) prefix))))
|
(let* ((tag (car (last (oref (semantic-analyze-current-context) prefix))))
|
||||||
(class (semantic-tag-class tag))
|
(class (semantic-tag-class tag))
|
||||||
@ -242,6 +251,7 @@
|
|||||||
;; eclim
|
;; eclim
|
||||||
|
|
||||||
(defun ac-eclim-candidates ()
|
(defun ac-eclim-candidates ()
|
||||||
|
"No documentation."
|
||||||
(with-no-warnings
|
(with-no-warnings
|
||||||
(cl-loop for c in (eclim/java-complete)
|
(cl-loop for c in (eclim/java-complete)
|
||||||
collect (nth 1 c))))
|
collect (nth 1 c))))
|
||||||
@ -421,11 +431,13 @@
|
|||||||
"Current editing property.")
|
"Current editing property.")
|
||||||
|
|
||||||
(defun ac-css-prefix ()
|
(defun ac-css-prefix ()
|
||||||
|
"No documentation."
|
||||||
(when (save-excursion (re-search-backward "\\_<\\(.+?\\)\\_>\\s *:[^;]*\\=" nil t))
|
(when (save-excursion (re-search-backward "\\_<\\(.+?\\)\\_>\\s *:[^;]*\\=" nil t))
|
||||||
(setq ac-css-property (match-string 1))
|
(setq ac-css-property (match-string 1))
|
||||||
(or (ac-prefix-symbol) (point))))
|
(or (ac-prefix-symbol) (point))))
|
||||||
|
|
||||||
(defun ac-css-property-candidates ()
|
(defun ac-css-property-candidates ()
|
||||||
|
"No documentation."
|
||||||
(let ((list (assoc-default ac-css-property ac-css-property-alist)))
|
(let ((list (assoc-default ac-css-property ac-css-property-alist)))
|
||||||
(if list
|
(if list
|
||||||
(cl-loop with seen
|
(cl-loop with seen
|
||||||
@ -467,20 +479,24 @@
|
|||||||
;; ropemacs
|
;; ropemacs
|
||||||
|
|
||||||
(defvar ac-ropemacs-loaded nil)
|
(defvar ac-ropemacs-loaded nil)
|
||||||
|
|
||||||
(defun ac-ropemacs-require ()
|
(defun ac-ropemacs-require ()
|
||||||
|
"No documentation."
|
||||||
(with-no-warnings
|
(with-no-warnings
|
||||||
(unless ac-ropemacs-loaded
|
(unless ac-ropemacs-loaded
|
||||||
(pymacs-load "ropemacs" "rope-")
|
(pymacs-load "ropemacs" "rope-")
|
||||||
(if (boundp 'ropemacs-enable-autoimport)
|
(when (boundp 'ropemacs-enable-autoimport)
|
||||||
(setq ropemacs-enable-autoimport t))
|
(setq ropemacs-enable-autoimport t))
|
||||||
(setq ac-ropemacs-loaded t))))
|
(setq ac-ropemacs-loaded t))))
|
||||||
|
|
||||||
(defun ac-ropemacs-setup ()
|
(defun ac-ropemacs-setup ()
|
||||||
|
"No documentation."
|
||||||
(ac-ropemacs-require)
|
(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))))
|
(setq ac-omni-completion-sources '(("\\." ac-source-ropemacs))))
|
||||||
|
|
||||||
(defun ac-ropemacs-initialize ()
|
(defun ac-ropemacs-initialize ()
|
||||||
|
"No documentation."
|
||||||
(autoload 'pymacs-apply "pymacs")
|
(autoload 'pymacs-apply "pymacs")
|
||||||
(autoload 'pymacs-call "pymacs")
|
(autoload 'pymacs-call "pymacs")
|
||||||
(autoload 'pymacs-eval "pymacs" nil t)
|
(autoload 'pymacs-eval "pymacs" nil t)
|
||||||
@ -523,22 +539,38 @@
|
|||||||
;;;; Default settings
|
;;;; Default settings
|
||||||
|
|
||||||
(defun ac-common-setup ()
|
(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 ()
|
(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 ()
|
(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 ()
|
(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
|
;;;###autoload
|
||||||
(defun ac-config-default ()
|
(defun ac-config-default ()
|
||||||
|
"No documentation."
|
||||||
(setq-default ac-sources '(ac-source-abbrev ac-source-dictionary ac-source-words-in-same-mode-buffers))
|
(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 'emacs-lisp-mode-hook 'ac-emacs-lisp-mode-setup)
|
||||||
(add-hook 'c-mode-common-hook 'ac-cc-mode-setup)
|
(add-hook 'c-mode-common-hook 'ac-cc-mode-setup)
|
Binary file not shown.
7
elpa/auto-complete-20201001.1341/auto-complete-pkg.el
Normal file
7
elpa/auto-complete-20201001.1341/auto-complete-pkg.el
Normal file
@ -0,0 +1,7 @@
|
|||||||
|
(define-package "auto-complete" "20201001.1341" "Auto Completion for GNU Emacs"
|
||||||
|
'((popup "0.5.0")
|
||||||
|
(cl-lib "0.5"))
|
||||||
|
:commit "cbf8aaacb7613916cd932af7bd06cbed48114510")
|
||||||
|
;; Local Variables:
|
||||||
|
;; no-byte-compile: t
|
||||||
|
;; End:
|
@ -1,6 +1,6 @@
|
|||||||
;;; auto-complete.el --- Auto Completion for GNU Emacs
|
;;; 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
|
||||||
|
|
||||||
;; Author: Tomohiro Matsuyama <m2ym.pub@gmail.com>
|
;; Author: Tomohiro Matsuyama <m2ym.pub@gmail.com>
|
||||||
;; URL: https://github.com/auto-complete/auto-complete
|
;; URL: https://github.com/auto-complete/auto-complete
|
||||||
@ -44,14 +44,14 @@
|
|||||||
|
|
||||||
|
|
||||||
(defconst ac-version "1.5.1"
|
(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.")
|
Use `version-to-list' to get version component.")
|
||||||
|
|
||||||
(defconst ac-version-major (car (version-to-list ac-version))
|
(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))
|
(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 'cl-lib)
|
||||||
(require 'popup)
|
(require 'popup)
|
||||||
@ -59,7 +59,9 @@ Use `version-to-list' to get version component.")
|
|||||||
;;;; Global stuff
|
;;;; Global stuff
|
||||||
|
|
||||||
(defun ac-error (&optional var)
|
(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
|
(ignore-errors
|
||||||
(message "auto-complete error: %s" var)
|
(message "auto-complete error: %s" var)
|
||||||
(auto-complete-mode -1)
|
(auto-complete-mode -1)
|
||||||
@ -141,7 +143,7 @@ Use `version-to-list' to get version component.")
|
|||||||
:group 'auto-complete)
|
:group 'auto-complete)
|
||||||
|
|
||||||
(defcustom ac-user-dictionary nil
|
(defcustom ac-user-dictionary nil
|
||||||
"User defined dictionary"
|
"User defined dictionary."
|
||||||
:type '(repeat string)
|
:type '(repeat string)
|
||||||
:group 'auto-complete)
|
:group 'auto-complete)
|
||||||
|
|
||||||
@ -197,30 +199,31 @@ Use `version-to-list' to get version component.")
|
|||||||
(defvaralias 'ac-candidate-max 'ac-candidate-limit)
|
(defvaralias 'ac-candidate-max 'ac-candidate-limit)
|
||||||
|
|
||||||
(defcustom ac-modes
|
(defcustom ac-modes
|
||||||
'(emacs-lisp-mode lisp-mode lisp-interaction-mode
|
(append
|
||||||
slime-repl-mode
|
'(emacs-lisp-mode lisp-mode lisp-interaction-mode)
|
||||||
nim-mode c-mode cc-mode c++-mode objc-mode swift-mode go-mode
|
'(slime-repl-mode)
|
||||||
java-mode malabar-mode clojure-mode clojurescript-mode scala-mode
|
'(nim-mode c-mode cc-mode c++-mode objc-mode swift-mode go-mode)
|
||||||
scheme-mode
|
'(java-mode malabar-mode clojure-mode clojurescript-mode scala-mode)
|
||||||
ocaml-mode tuareg-mode coq-mode haskell-mode agda-mode agda2-mode
|
'(scheme-mode)
|
||||||
perl-mode cperl-mode python-mode ruby-mode lua-mode tcl-mode
|
'(ocaml-mode tuareg-mode coq-mode haskell-mode agda-mode agda2-mode)
|
||||||
ecmascript-mode javascript-mode js-mode js-jsx-mode js2-mode js2-jsx-mode
|
'(perl-mode cperl-mode python-mode ruby-mode lua-mode tcl-mode)
|
||||||
coffee-mode php-mode css-mode scss-mode less-css-mode
|
'(ecmascript-mode javascript-mode js-mode js-jsx-mode js2-mode js2-jsx-mode)
|
||||||
elixir-mode
|
'(coffee-mode php-mode css-mode scss-mode less-css-mode)
|
||||||
makefile-mode sh-mode fortran-mode f90-mode ada-mode
|
'(elixir-mode)
|
||||||
xml-mode sgml-mode web-mode
|
'(makefile-mode sh-mode fortran-mode f90-mode ada-mode)
|
||||||
ts-mode
|
'(xml-mode sgml-mode web-mode)
|
||||||
sclang-mode
|
'(ts-mode)
|
||||||
verilog-mode
|
'(sclang-mode)
|
||||||
qml-mode
|
'(verilog-mode)
|
||||||
apples-mode)
|
'(qml-mode)
|
||||||
"Major modes `auto-complete-mode' can run on."
|
'(apples-mode))
|
||||||
|
"Major modes 'auto-complete-mode' can run on."
|
||||||
:type '(repeat symbol)
|
:type '(repeat symbol)
|
||||||
:group 'auto-complete)
|
:group 'auto-complete)
|
||||||
|
|
||||||
(defcustom ac-compatible-packages-regexp
|
(defcustom ac-compatible-packages-regexp
|
||||||
"^ac-"
|
"^ac-"
|
||||||
"Regexp to indicate what packages can work with auto-complete."
|
"Regexp to indicate what packages can work with `auto-complete'."
|
||||||
:type 'string
|
:type 'string
|
||||||
:group 'auto-complete)
|
:group 'auto-complete)
|
||||||
|
|
||||||
@ -265,9 +268,9 @@ and if there is no completions, an original command will be fallbacked."
|
|||||||
|
|
||||||
(defcustom ac-auto-start 2
|
(defcustom ac-auto-start 2
|
||||||
"Non-nil means completion will be started automatically.
|
"Non-nil means completion will be started automatically.
|
||||||
Positive integer means if a length of a word you entered is larger than the value,
|
Positive integer means if a length of a word you entered is larger than
|
||||||
completion will be started automatically.
|
the value, completion will be started automatically.
|
||||||
If you specify `nil', never be started automatically."
|
If you specify 'nil', never be started automatically."
|
||||||
:type '(choice (const :tag "Yes" t)
|
:type '(choice (const :tag "Yes" t)
|
||||||
(const :tag "Never" nil)
|
(const :tag "Never" nil)
|
||||||
(integer :tag "Require"))
|
(integer :tag "Require"))
|
||||||
@ -285,8 +288,8 @@ If you specify `nil', never be started automatically."
|
|||||||
:group 'auto-complete)
|
:group 'auto-complete)
|
||||||
|
|
||||||
(defcustom ac-ignore-case 'smart
|
(defcustom ac-ignore-case 'smart
|
||||||
"Non-nil means auto-complete ignores case.
|
"Non-nil means `auto-complete' ignores case.
|
||||||
If this value is `smart', auto-complete ignores case only when
|
If this value is `smart', `auto-complete' ignores case only when
|
||||||
a prefix doesn't contain any upper case letters."
|
a prefix doesn't contain any upper case letters."
|
||||||
:type '(choice (const :tag "Yes" t)
|
:type '(choice (const :tag "Yes" t)
|
||||||
(const :tag "Smart" smart)
|
(const :tag "Smart" smart)
|
||||||
@ -309,17 +312,17 @@ a prefix doesn't contain any upper case letters."
|
|||||||
:group 'auto-complete)
|
:group 'auto-complete)
|
||||||
|
|
||||||
(defcustom ac-disable-inline nil
|
(defcustom ac-disable-inline nil
|
||||||
"Non-nil disable inline completion visibility"
|
"Non-nil disable inline completion visibility."
|
||||||
:type 'boolean
|
:type 'boolean
|
||||||
:group 'auto-complete)
|
:group 'auto-complete)
|
||||||
|
|
||||||
(defcustom ac-candidate-menu-min 1
|
(defcustom ac-candidate-menu-min 1
|
||||||
"Number of candidates required to display menu"
|
"Number of candidates required to display menu."
|
||||||
:type 'integer
|
:type 'integer
|
||||||
:group 'auto-complete)
|
:group 'auto-complete)
|
||||||
|
|
||||||
(defcustom ac-max-width nil
|
(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)
|
:type '(choice (const :tag "No limit" nil)
|
||||||
(const :tag "Character Limit" 25)
|
(const :tag "Character Limit" 25)
|
||||||
(const :tag "Window Ratio Limit" 0.5))
|
(const :tag "Window Ratio Limit" 0.5))
|
||||||
@ -346,7 +349,7 @@ a prefix doesn't contain any upper case letters."
|
|||||||
:group 'auto-complete)
|
:group 'auto-complete)
|
||||||
|
|
||||||
(defvar auto-complete-mode-hook nil
|
(defvar auto-complete-mode-hook nil
|
||||||
"Hook for `auto-complete-mode'.")
|
"Hook for 'auto-complete-mode'.")
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
@ -371,13 +374,13 @@ a prefix doesn't contain any upper case letters."
|
|||||||
"Cons of prefix marker and selected item of last completion.")
|
"Cons of prefix marker and selected item of last completion.")
|
||||||
|
|
||||||
(defvar ac-quick-help nil
|
(defvar ac-quick-help nil
|
||||||
"Quick help instance")
|
"Quick help instance.")
|
||||||
|
|
||||||
(defvar ac-completing nil
|
(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
|
(defvar ac-buffer nil
|
||||||
"Buffer where auto-complete is started.")
|
"Buffer where `auto-complete' is started.")
|
||||||
|
|
||||||
(defvar ac-point nil
|
(defvar ac-point nil
|
||||||
"Start point of prefix.")
|
"Start point of prefix.")
|
||||||
@ -431,7 +434,8 @@ If there is no common part, this will be nil.")
|
|||||||
"Non-nil means DWIM completion will be allowed.")
|
"Non-nil means DWIM completion will be allowed.")
|
||||||
|
|
||||||
(defvar ac-mode-map (make-sparse-keymap)
|
(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
|
(defvar ac-completing-map
|
||||||
(let ((map (make-sparse-keymap)))
|
(let ((map (make-sparse-keymap)))
|
||||||
@ -477,8 +481,12 @@ If there is no common part, this will be nil.")
|
|||||||
(define-key map "\C-s" 'ac-isearch)
|
(define-key map "\C-s" 'ac-isearch)
|
||||||
(define-key map [mouse-1] 'ac-mouse-1)
|
(define-key map [mouse-1] 'ac-mouse-1)
|
||||||
(define-key map [down-mouse-1] 'ac-ignore)
|
(define-key map [down-mouse-1] 'ac-ignore)
|
||||||
|
(if (string-equal system-type "gnu/linux")
|
||||||
|
(progn
|
||||||
(define-key map [mouse-4] 'ac-mouse-4)
|
(define-key map [mouse-4] 'ac-mouse-4)
|
||||||
(define-key map [mouse-5] 'ac-mouse-5)
|
(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)
|
map)
|
||||||
"Keymap for completion on completing menu.")
|
"Keymap for completion on completing menu.")
|
||||||
|
|
||||||
@ -507,7 +515,7 @@ If there is no common part, this will be nil.")
|
|||||||
"Compiled source of `ac-sources'.")
|
"Compiled source of `ac-sources'.")
|
||||||
|
|
||||||
(defvar ac-current-sources nil
|
(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
|
(defvar ac-omni-completion-sources nil
|
||||||
"Do not use this anymore.")
|
"Do not use this anymore.")
|
||||||
@ -524,18 +532,23 @@ If there is no common part, this will be nil.")
|
|||||||
"Database of completion history.")
|
"Database of completion history.")
|
||||||
|
|
||||||
(defsubst ac-comphist-make-tab ()
|
(defsubst ac-comphist-make-tab ()
|
||||||
|
"No documentation."
|
||||||
(make-hash-table :test 'equal))
|
(make-hash-table :test 'equal))
|
||||||
|
|
||||||
(defsubst ac-comphist-tab (db)
|
(defsubst ac-comphist-tab (db)
|
||||||
|
"No documentation, DB."
|
||||||
(nth 0 db))
|
(nth 0 db))
|
||||||
|
|
||||||
(defsubst ac-comphist-cache (db)
|
(defsubst ac-comphist-cache (db)
|
||||||
|
"No documentation, DB."
|
||||||
(nth 1 db))
|
(nth 1 db))
|
||||||
|
|
||||||
(defun ac-comphist-make (&optional tab)
|
(defun ac-comphist-make (&optional tab)
|
||||||
|
"No documentation, TAB."
|
||||||
(list (or tab (ac-comphist-make-tab)) (make-hash-table :test 'equal :weakness t)))
|
(list (or tab (ac-comphist-make-tab)) (make-hash-table :test 'equal :weakness t)))
|
||||||
|
|
||||||
(defun ac-comphist-get (db string &optional create)
|
(defun ac-comphist-get (db string &optional create)
|
||||||
|
"No documentation, DB, STRING, CREATE."
|
||||||
(let* ((tab (ac-comphist-tab db))
|
(let* ((tab (ac-comphist-tab db))
|
||||||
(index (gethash string tab)))
|
(index (gethash string tab)))
|
||||||
(when (and create (null index))
|
(when (and create (null index))
|
||||||
@ -544,6 +557,7 @@ If there is no common part, this will be nil.")
|
|||||||
index))
|
index))
|
||||||
|
|
||||||
(defun ac-comphist-add (db string prefix)
|
(defun ac-comphist-add (db string prefix)
|
||||||
|
"No documentation, DB, STRING, PREFIX."
|
||||||
(setq prefix (min prefix (1- (length string))))
|
(setq prefix (min prefix (1- (length string))))
|
||||||
(when (<= 0 prefix)
|
(when (<= 0 prefix)
|
||||||
(setq string (substring-no-properties string))
|
(setq string (substring-no-properties string))
|
||||||
@ -552,6 +566,7 @@ If there is no common part, this will be nil.")
|
|||||||
(remhash string (ac-comphist-cache db)))))
|
(remhash string (ac-comphist-cache db)))))
|
||||||
|
|
||||||
(defun ac-comphist-score (db string prefix)
|
(defun ac-comphist-score (db string prefix)
|
||||||
|
"No documentation, DB, STRING, PREFIX."
|
||||||
(setq prefix (min prefix (1- (length string))))
|
(setq prefix (min prefix (1- (length string))))
|
||||||
(if (<= 0 prefix)
|
(if (<= 0 prefix)
|
||||||
(let ((cache (gethash string (ac-comphist-cache db))))
|
(let ((cache (gethash string (ac-comphist-cache db))))
|
||||||
@ -578,6 +593,7 @@ If there is no common part, this will be nil.")
|
|||||||
0.0))
|
0.0))
|
||||||
|
|
||||||
(defun ac-comphist-sort (db collection prefix &optional threshold)
|
(defun ac-comphist-sort (db collection prefix &optional threshold)
|
||||||
|
"No documentation, DB, COLLECTION, PREFIX, THRESHOLD."
|
||||||
(let (result
|
(let (result
|
||||||
(n 0)
|
(n 0)
|
||||||
(total 0)
|
(total 0)
|
||||||
@ -600,6 +616,7 @@ If there is no common part, this will be nil.")
|
|||||||
result)))
|
result)))
|
||||||
|
|
||||||
(defun ac-comphist-serialize (db)
|
(defun ac-comphist-serialize (db)
|
||||||
|
"No documentation, DB."
|
||||||
(let (alist)
|
(let (alist)
|
||||||
(maphash (lambda (k v)
|
(maphash (lambda (k v)
|
||||||
(push (cons k v) alist))
|
(push (cons k v) alist))
|
||||||
@ -607,6 +624,7 @@ If there is no common part, this will be nil.")
|
|||||||
(list alist)))
|
(list alist)))
|
||||||
|
|
||||||
(defun ac-comphist-deserialize (sexp)
|
(defun ac-comphist-deserialize (sexp)
|
||||||
|
"No documentation, SEXP."
|
||||||
(condition-case nil
|
(condition-case nil
|
||||||
(ac-comphist-make (let ((tab (ac-comphist-make-tab)))
|
(ac-comphist-make (let ((tab (ac-comphist-make-tab)))
|
||||||
(mapc (lambda (cons)
|
(mapc (lambda (cons)
|
||||||
@ -616,10 +634,12 @@ If there is no common part, this will be nil.")
|
|||||||
(error (message "Invalid comphist db.") nil)))
|
(error (message "Invalid comphist db.") nil)))
|
||||||
|
|
||||||
(defun ac-comphist-init ()
|
(defun ac-comphist-init ()
|
||||||
|
"No documentation."
|
||||||
(ac-comphist-load)
|
(ac-comphist-load)
|
||||||
(add-hook 'kill-emacs-hook 'ac-comphist-save))
|
(add-hook 'kill-emacs-hook 'ac-comphist-save))
|
||||||
|
|
||||||
(defun ac-comphist-load ()
|
(defun ac-comphist-load ()
|
||||||
|
"No documentation."
|
||||||
(interactive)
|
(interactive)
|
||||||
(let ((db (if (file-exists-p ac-comphist-file)
|
(let ((db (if (file-exists-p ac-comphist-file)
|
||||||
(ignore-errors
|
(ignore-errors
|
||||||
@ -630,6 +650,7 @@ If there is no common part, this will be nil.")
|
|||||||
(setq ac-comphist (or db (ac-comphist-make)))))
|
(setq ac-comphist (or db (ac-comphist-make)))))
|
||||||
|
|
||||||
(defun ac-comphist-save ()
|
(defun ac-comphist-save ()
|
||||||
|
"No documentation."
|
||||||
(interactive)
|
(interactive)
|
||||||
(require 'pp)
|
(require 'pp)
|
||||||
(ignore-errors
|
(ignore-errors
|
||||||
@ -640,18 +661,22 @@ If there is no common part, this will be nil.")
|
|||||||
|
|
||||||
|
|
||||||
;;;; Dictionary
|
;;;; Dictionary
|
||||||
(defvar ac-buffer-dictionary nil)
|
(defvar ac-buffer-dictionary nil
|
||||||
(defvar ac-file-dictionary (make-hash-table :test 'equal))
|
"No documentation.")
|
||||||
|
(defvar ac-file-dictionary (make-hash-table :test 'equal)
|
||||||
|
"No documentation.")
|
||||||
|
|
||||||
(defun ac-clear-dictionary-cache ()
|
(defun ac-clear-dictionary-cache ()
|
||||||
|
"No documentation."
|
||||||
(interactive)
|
(interactive)
|
||||||
(dolist (buffer (buffer-list))
|
(dolist (buffer (buffer-list))
|
||||||
(with-current-buffer buffer
|
(with-current-buffer buffer
|
||||||
(if (local-variable-p 'ac-buffer-dictionary)
|
(when (local-variable-p 'ac-buffer-dictionary)
|
||||||
(kill-local-variable 'ac-buffer-dictionary))))
|
(kill-local-variable 'ac-buffer-dictionary))))
|
||||||
(clrhash ac-file-dictionary))
|
(clrhash ac-file-dictionary))
|
||||||
|
|
||||||
(defun ac-file-dictionary (filename)
|
(defun ac-file-dictionary (filename)
|
||||||
|
"No documentation, FILENAME."
|
||||||
(let ((cache (gethash filename ac-file-dictionary 'none)))
|
(let ((cache (gethash filename ac-file-dictionary 'none)))
|
||||||
(if (and cache (not (eq cache 'none)))
|
(if (and cache (not (eq cache 'none)))
|
||||||
cache
|
cache
|
||||||
@ -664,6 +689,7 @@ If there is no common part, this will be nil.")
|
|||||||
result))))
|
result))))
|
||||||
|
|
||||||
(defun ac-mode-dictionary (mode)
|
(defun ac-mode-dictionary (mode)
|
||||||
|
"No documentation, MODE."
|
||||||
(cl-loop for name in (cons (symbol-name mode)
|
(cl-loop for name in (cons (symbol-name mode)
|
||||||
(ignore-errors (list (file-name-extension (buffer-file-name)))))
|
(ignore-errors (list (file-name-extension (buffer-file-name)))))
|
||||||
append (cl-loop for dir in ac-dictionary-directories
|
append (cl-loop for dir in ac-dictionary-directories
|
||||||
@ -672,6 +698,7 @@ If there is no common part, this will be nil.")
|
|||||||
append (ac-file-dictionary file))))
|
append (ac-file-dictionary file))))
|
||||||
|
|
||||||
(defun ac-buffer-dictionary (&optional buffer)
|
(defun ac-buffer-dictionary (&optional buffer)
|
||||||
|
"No documentation, BUFFER."
|
||||||
(with-current-buffer (or buffer (current-buffer))
|
(with-current-buffer (or buffer (current-buffer))
|
||||||
(if (local-variable-p 'ac-buffer-dictionary)
|
(if (local-variable-p 'ac-buffer-dictionary)
|
||||||
ac-buffer-dictionary
|
ac-buffer-dictionary
|
||||||
@ -695,8 +722,9 @@ If there is no common part, this will be nil.")
|
|||||||
(line-beginning-position)))))
|
(line-beginning-position)))))
|
||||||
|
|
||||||
(defun ac-stop-word-p (word)
|
(defun ac-stop-word-p (word)
|
||||||
|
"No documentation, WORD."
|
||||||
(or (member word ac-stop-words)
|
(or (member word ac-stop-words)
|
||||||
(if ac-use-dictionary-as-stop-words
|
(when ac-use-dictionary-as-stop-words
|
||||||
(member word (ac-buffer-dictionary)))))
|
(member word (ac-buffer-dictionary)))))
|
||||||
|
|
||||||
(defun ac-prefix-default ()
|
(defun ac-prefix-default ()
|
||||||
@ -716,9 +744,10 @@ If there is no common part, this will be nil.")
|
|||||||
(defun ac-prefix-file ()
|
(defun ac-prefix-file ()
|
||||||
"File prefix."
|
"File prefix."
|
||||||
(let ((point (re-search-backward "[\"<>' \t\r\n]" nil t)))
|
(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)
|
(defsubst ac-windows-remote-file-p (file)
|
||||||
|
"No documentation, FILE."
|
||||||
(and (memq system-type '(ms-dos windows-nt cygwin))
|
(and (memq system-type '(ms-dos windows-nt cygwin))
|
||||||
(string-match-p "\\`\\(?://\\|\\\\\\\\\\)" file)))
|
(string-match-p "\\`\\(?://\\|\\\\\\\\\\)" file)))
|
||||||
|
|
||||||
@ -754,21 +783,22 @@ If there is no common part, this will be nil.")
|
|||||||
|
|
||||||
(defun ac-define-prefix (name prefix)
|
(defun ac-define-prefix (name prefix)
|
||||||
"Define new prefix definition.
|
"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))
|
(push (cons name prefix) ac-prefix-definitions))
|
||||||
|
|
||||||
(defun ac-match-substring (prefix candidates)
|
(defun ac-match-substring (prefix candidates)
|
||||||
|
"No documentation, PREFIX, CANDIDATES."
|
||||||
(cl-loop with regexp = (regexp-quote prefix)
|
(cl-loop with regexp = (regexp-quote prefix)
|
||||||
for candidate in candidates
|
for candidate in candidates
|
||||||
if (string-match regexp candidate)
|
if (string-match regexp candidate)
|
||||||
collect candidate))
|
collect candidate))
|
||||||
|
|
||||||
(defsubst ac-source-entity (source)
|
(defsubst ac-source-entity (source)
|
||||||
(if (symbolp source)
|
"No documentation, SOURCE."
|
||||||
(symbol-value source)
|
(if (symbolp source) (symbol-value source) source))
|
||||||
source))
|
|
||||||
|
|
||||||
(defun ac-source-available-p (source)
|
(defun ac-source-available-p (source)
|
||||||
|
"No documentation, SOURCE."
|
||||||
(if (and (symbolp source)
|
(if (and (symbolp source)
|
||||||
(get source 'available))
|
(get source 'available))
|
||||||
(eq (get source 'available) t)
|
(eq (get source 'available) t)
|
||||||
@ -785,7 +815,7 @@ You can not use it in source definition like (prefix . `NAME')."
|
|||||||
(cl-loop for feature in (assoc-default 'depends src)
|
(cl-loop for feature in (assoc-default 'depends src)
|
||||||
unless (require feature nil t) return nil
|
unless (require feature nil t) return nil
|
||||||
finally return t))))
|
finally return t))))
|
||||||
(if (symbolp source)
|
(when (symbolp source)
|
||||||
(put source 'available (if available t 'no)))
|
(put source 'available (if available t 'no)))
|
||||||
available)))
|
available)))
|
||||||
|
|
||||||
@ -811,14 +841,16 @@ You can not use it in source definition like (prefix . `NAME')."
|
|||||||
and collect source))
|
and collect source))
|
||||||
|
|
||||||
(defun ac-compiled-sources ()
|
(defun ac-compiled-sources ()
|
||||||
|
"No documentation."
|
||||||
(or ac-compiled-sources
|
(or ac-compiled-sources
|
||||||
(setq ac-compiled-sources
|
(setq ac-compiled-sources (ac-compile-sources ac-sources))))
|
||||||
(ac-compile-sources ac-sources))))
|
|
||||||
|
|
||||||
(defsubst ac-menu-live-p ()
|
(defsubst ac-menu-live-p ()
|
||||||
|
"Return non-nil if menu is alive."
|
||||||
(popup-live-p ac-menu))
|
(popup-live-p ac-menu))
|
||||||
|
|
||||||
(defun ac-menu-create (point width height)
|
(defun ac-menu-create (point width height)
|
||||||
|
"No documentation POINT, WIDTH, HEIGHT."
|
||||||
(setq ac-menu
|
(setq ac-menu
|
||||||
(popup-create point width height
|
(popup-create point width height
|
||||||
:around t
|
:around t
|
||||||
@ -829,21 +861,24 @@ You can not use it in source definition like (prefix . `NAME')."
|
|||||||
:symbol t
|
:symbol t
|
||||||
:scroll-bar t
|
:scroll-bar t
|
||||||
:margin-left 1
|
:margin-left 1
|
||||||
:keymap ac-menu-map
|
:keymap ac-menu-map)))
|
||||||
)))
|
|
||||||
|
|
||||||
(defun ac-menu-delete ()
|
(defun ac-menu-delete ()
|
||||||
|
"Delete the completion menu."
|
||||||
(when ac-menu
|
(when ac-menu
|
||||||
(popup-delete ac-menu)
|
(popup-delete ac-menu)
|
||||||
(setq ac-menu nil)))
|
(setq ac-menu nil)))
|
||||||
|
|
||||||
(defsubst ac-inline-overlay ()
|
(defsubst ac-inline-overlay ()
|
||||||
|
"No documentation."
|
||||||
(nth 0 ac-inline))
|
(nth 0 ac-inline))
|
||||||
|
|
||||||
(defsubst ac-inline-live-p ()
|
(defsubst ac-inline-live-p ()
|
||||||
|
"No documentation."
|
||||||
(and ac-inline (ac-inline-overlay) t))
|
(and ac-inline (ac-inline-overlay) t))
|
||||||
|
|
||||||
(defun ac-inline-show (point string)
|
(defun ac-inline-show (point string)
|
||||||
|
"No documentation, POINT, STRING."
|
||||||
(unless ac-inline
|
(unless ac-inline
|
||||||
(setq ac-inline (list nil)))
|
(setq ac-inline (list nil)))
|
||||||
(save-excursion
|
(save-excursion
|
||||||
@ -900,12 +935,14 @@ You can not use it in source definition like (prefix . `NAME')."
|
|||||||
(overlay-put overlay 'string original-string))))
|
(overlay-put overlay 'string original-string))))
|
||||||
|
|
||||||
(defun ac-inline-delete ()
|
(defun ac-inline-delete ()
|
||||||
|
"No documentation."
|
||||||
(when (ac-inline-live-p)
|
(when (ac-inline-live-p)
|
||||||
(ac-inline-hide)
|
(ac-inline-hide)
|
||||||
(delete-overlay (ac-inline-overlay))
|
(delete-overlay (ac-inline-overlay))
|
||||||
(setq ac-inline nil)))
|
(setq ac-inline nil)))
|
||||||
|
|
||||||
(defun ac-inline-hide ()
|
(defun ac-inline-hide ()
|
||||||
|
"No documentation."
|
||||||
(when (ac-inline-live-p)
|
(when (ac-inline-live-p)
|
||||||
(let ((overlay (ac-inline-overlay))
|
(let ((overlay (ac-inline-overlay))
|
||||||
(buffer-undo-list t))
|
(buffer-undo-list t))
|
||||||
@ -916,6 +953,7 @@ You can not use it in source definition like (prefix . `NAME')."
|
|||||||
(overlay-put overlay 'after-string nil)))))
|
(overlay-put overlay 'after-string nil)))))
|
||||||
|
|
||||||
(defun ac-inline-update ()
|
(defun ac-inline-update ()
|
||||||
|
"No documentation."
|
||||||
(if (and ac-completing ac-prefix (stringp ac-common-part))
|
(if (and ac-completing ac-prefix (stringp ac-common-part))
|
||||||
(let ((common-part-length (length ac-common-part))
|
(let ((common-part-length (length ac-common-part))
|
||||||
(prefix-length (length ac-prefix)))
|
(prefix-length (length ac-prefix)))
|
||||||
@ -927,6 +965,7 @@ You can not use it in source definition like (prefix . `NAME')."
|
|||||||
(ac-inline-delete)))
|
(ac-inline-delete)))
|
||||||
|
|
||||||
(defun ac-put-prefix-overlay ()
|
(defun ac-put-prefix-overlay ()
|
||||||
|
"No documentation."
|
||||||
(unless ac-prefix-overlay
|
(unless ac-prefix-overlay
|
||||||
(let (newline)
|
(let (newline)
|
||||||
;; Insert newline to make sure that cursor always on the overlay
|
;; Insert newline to make sure that cursor always on the overlay
|
||||||
@ -940,6 +979,7 @@ You can not use it in source definition like (prefix . `NAME')."
|
|||||||
(overlay-put ac-prefix-overlay 'newline newline))))
|
(overlay-put ac-prefix-overlay 'newline newline))))
|
||||||
|
|
||||||
(defun ac-remove-prefix-overlay ()
|
(defun ac-remove-prefix-overlay ()
|
||||||
|
"No documentation."
|
||||||
(when ac-prefix-overlay
|
(when ac-prefix-overlay
|
||||||
(when (overlay-get ac-prefix-overlay 'newline)
|
(when (overlay-get ac-prefix-overlay 'newline)
|
||||||
;; Remove inserted newline
|
;; Remove inserted newline
|
||||||
@ -950,6 +990,7 @@ You can not use it in source definition like (prefix . `NAME')."
|
|||||||
(delete-overlay ac-prefix-overlay)))
|
(delete-overlay ac-prefix-overlay)))
|
||||||
|
|
||||||
(defun ac-activate-completing-map ()
|
(defun ac-activate-completing-map ()
|
||||||
|
"No documentation."
|
||||||
(if (and ac-show-menu ac-use-menu-map)
|
(if (and ac-show-menu ac-use-menu-map)
|
||||||
(set-keymap-parent ac-current-map ac-menu-map))
|
(set-keymap-parent ac-current-map ac-menu-map))
|
||||||
(when (and ac-use-overriding-local-map
|
(when (and ac-use-overriding-local-map
|
||||||
@ -959,6 +1000,7 @@ You can not use it in source definition like (prefix . `NAME')."
|
|||||||
(set-keymap-parent (overlay-get ac-prefix-overlay 'keymap) ac-current-map)))
|
(set-keymap-parent (overlay-get ac-prefix-overlay 'keymap) ac-current-map)))
|
||||||
|
|
||||||
(defun ac-deactivate-completing-map ()
|
(defun ac-deactivate-completing-map ()
|
||||||
|
"No documentation."
|
||||||
(set-keymap-parent ac-current-map ac-completing-map)
|
(set-keymap-parent ac-current-map ac-completing-map)
|
||||||
(when (and ac-use-overriding-local-map
|
(when (and ac-use-overriding-local-map
|
||||||
(eq overriding-terminal-local-map ac-current-map))
|
(eq overriding-terminal-local-map ac-current-map))
|
||||||
@ -967,10 +1009,12 @@ You can not use it in source definition like (prefix . `NAME')."
|
|||||||
(set-keymap-parent (overlay-get ac-prefix-overlay 'keymap) nil)))
|
(set-keymap-parent (overlay-get ac-prefix-overlay 'keymap) nil)))
|
||||||
|
|
||||||
(defsubst ac-selected-candidate ()
|
(defsubst ac-selected-candidate ()
|
||||||
|
"No documentation."
|
||||||
(if ac-menu
|
(if ac-menu
|
||||||
(popup-selected-item ac-menu)))
|
(popup-selected-item ac-menu)))
|
||||||
|
|
||||||
(defun ac-prefix (requires ignore-list)
|
(defun ac-prefix (requires ignore-list)
|
||||||
|
"No documentation, REQUIRES, IGNORE-LIST."
|
||||||
(cl-loop with current = (point)
|
(cl-loop with current = (point)
|
||||||
with point
|
with point
|
||||||
with point-def
|
with point-def
|
||||||
@ -1026,6 +1070,7 @@ You can not use it in source definition like (prefix . `NAME')."
|
|||||||
(eval function))))))
|
(eval function))))))
|
||||||
|
|
||||||
(defun ac-candidates-1 (source)
|
(defun ac-candidates-1 (source)
|
||||||
|
"No documentation, SOURCE."
|
||||||
(let* ((do-cache (assq 'cache source))
|
(let* ((do-cache (assq 'cache source))
|
||||||
(function (assoc-default 'candidates source))
|
(function (assoc-default 'candidates source))
|
||||||
(action (assoc-default 'action source))
|
(action (assoc-default 'action source))
|
||||||
@ -1069,6 +1114,7 @@ You can not use it in source definition like (prefix . `NAME')."
|
|||||||
candidates))
|
candidates))
|
||||||
|
|
||||||
(defun ac-delete-duplicated-candidates (candidates)
|
(defun ac-delete-duplicated-candidates (candidates)
|
||||||
|
"No documentation, CANDIDATES."
|
||||||
(cl-delete-duplicates
|
(cl-delete-duplicates
|
||||||
candidates
|
candidates
|
||||||
:test (lambda (x y)
|
:test (lambda (x y)
|
||||||
@ -1080,6 +1126,7 @@ You can not use it in source definition like (prefix . `NAME')."
|
|||||||
:from-end t))
|
:from-end t))
|
||||||
|
|
||||||
(defun ac-reduce-candidates (candidates)
|
(defun ac-reduce-candidates (candidates)
|
||||||
|
"No documentation, CANDIDATES."
|
||||||
;; Call `ac-delete-duplicated-candidates' on first portion of
|
;; Call `ac-delete-duplicated-candidates' on first portion of
|
||||||
;; candidate list for speed.
|
;; candidate list for speed.
|
||||||
(let ((size 20))
|
(let ((size 20))
|
||||||
@ -1127,7 +1174,9 @@ You can not use it in source definition like (prefix . `NAME')."
|
|||||||
candidates))))
|
candidates))))
|
||||||
|
|
||||||
(defun ac-update-candidates (cursor scroll-top)
|
(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
|
(setf (popup-cursor ac-menu) cursor
|
||||||
(popup-scroll-top ac-menu) scroll-top)
|
(popup-scroll-top ac-menu) scroll-top)
|
||||||
(setq ac-dwim-enable (= (length ac-candidates) 1))
|
(setq ac-dwim-enable (= (length ac-candidates) 1))
|
||||||
@ -1147,7 +1196,7 @@ You can not use it in source definition like (prefix . `NAME')."
|
|||||||
(popup-draw ac-menu))))
|
(popup-draw ac-menu))))
|
||||||
|
|
||||||
(defun ac-reposition ()
|
(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))
|
(let ((cursor (popup-cursor ac-menu))
|
||||||
(scroll-top (popup-scroll-top ac-menu))
|
(scroll-top (popup-scroll-top ac-menu))
|
||||||
(height (popup-height ac-menu)))
|
(height (popup-height ac-menu)))
|
||||||
@ -1207,11 +1256,10 @@ You can not use it in source definition like (prefix . `NAME')."
|
|||||||
(ac-cleanup))
|
(ac-cleanup))
|
||||||
|
|
||||||
(defun ac-extend-region-to-delete (string)
|
(defun ac-extend-region-to-delete (string)
|
||||||
"Determine the boundary of the region to delete before
|
"Determine the boundary of the region to delete before inserting the \
|
||||||
inserting the completed string. This will be either the position
|
completed string. This will be either the position of current point, or
|
||||||
of current point, or the end of the symbol at point, if the text
|
the end of the symbol at point, if the text from point to end of symbol
|
||||||
from point to end of symbol is the right part of the completed
|
is the right part of the completed STRING."
|
||||||
string."
|
|
||||||
(let* ((end-of-symbol (or (cdr-safe (bounds-of-thing-at-point 'symbol))
|
(let* ((end-of-symbol (or (cdr-safe (bounds-of-thing-at-point 'symbol))
|
||||||
(point)))
|
(point)))
|
||||||
(remaindar (buffer-substring-no-properties (point) end-of-symbol))
|
(remaindar (buffer-substring-no-properties (point) end-of-symbol))
|
||||||
@ -1223,11 +1271,11 @@ string."
|
|||||||
(point))))
|
(point))))
|
||||||
|
|
||||||
(defun ac-expand-string (string &optional remove-undo-boundary)
|
(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'.
|
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
|
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)
|
(when (eq buffer-undo-list t)
|
||||||
(setq remove-undo-boundary nil))
|
(setq remove-undo-boundary nil))
|
||||||
(when (not (equal string (buffer-substring ac-point (point))))
|
(when (not (equal string (buffer-substring ac-point (point))))
|
||||||
@ -1268,15 +1316,18 @@ 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)))
|
(define-key ac-mode-map (read-kbd-macro key) 'ac-trigger-key-command)))
|
||||||
|
|
||||||
(defun ac-set-timer ()
|
(defun ac-set-timer ()
|
||||||
|
"Safe way to start the completion menu timer."
|
||||||
(unless ac-timer
|
(unless ac-timer
|
||||||
(setq ac-timer (run-with-idle-timer ac-delay ac-delay 'ac-update-greedy))))
|
(setq ac-timer (run-with-idle-timer ac-delay ac-delay 'ac-update-greedy))))
|
||||||
|
|
||||||
(defun ac-cancel-timer ()
|
(defun ac-cancel-timer ()
|
||||||
|
"Safe way to cancel timer."
|
||||||
(when (timerp ac-timer)
|
(when (timerp ac-timer)
|
||||||
(cancel-timer ac-timer)
|
(cancel-timer ac-timer)
|
||||||
(setq ac-timer nil)))
|
(setq ac-timer nil)))
|
||||||
|
|
||||||
(defun ac-update (&optional force)
|
(defun ac-update (&optional force)
|
||||||
|
"No documentation, FORCE."
|
||||||
(when (and auto-complete-mode
|
(when (and auto-complete-mode
|
||||||
ac-prefix
|
ac-prefix
|
||||||
(or ac-triggered
|
(or ac-triggered
|
||||||
@ -1299,6 +1350,7 @@ that have been made before in this function. When `buffer-undo-list' is
|
|||||||
t))
|
t))
|
||||||
|
|
||||||
(defun ac-update-greedy (&optional force)
|
(defun ac-update-greedy (&optional force)
|
||||||
|
"No documentation, FORCE."
|
||||||
(let (result)
|
(let (result)
|
||||||
(while (when (and (setq result (ac-update force))
|
(while (when (and (setq result (ac-update force))
|
||||||
(null ac-candidates))
|
(null ac-candidates))
|
||||||
@ -1308,16 +1360,19 @@ that have been made before in this function. When `buffer-undo-list' is
|
|||||||
result))
|
result))
|
||||||
|
|
||||||
(defun ac-set-show-menu-timer ()
|
(defun ac-set-show-menu-timer ()
|
||||||
|
"No documentation."
|
||||||
(when (and (or (integerp ac-auto-show-menu) (floatp ac-auto-show-menu))
|
(when (and (or (integerp ac-auto-show-menu) (floatp ac-auto-show-menu))
|
||||||
(null ac-show-menu-timer))
|
(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))))
|
(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 ()
|
(defun ac-cancel-show-menu-timer ()
|
||||||
|
"No documentation."
|
||||||
(when (timerp ac-show-menu-timer)
|
(when (timerp ac-show-menu-timer)
|
||||||
(cancel-timer ac-show-menu-timer)
|
(cancel-timer ac-show-menu-timer)
|
||||||
(setq ac-show-menu-timer nil)))
|
(setq ac-show-menu-timer nil)))
|
||||||
|
|
||||||
(defun ac-show-menu ()
|
(defun ac-show-menu ()
|
||||||
|
"No documentation."
|
||||||
(when (not (eq ac-show-menu t))
|
(when (not (eq ac-show-menu t))
|
||||||
(setq ac-show-menu t)
|
(setq ac-show-menu t)
|
||||||
(ac-inline-hide)
|
(ac-inline-hide)
|
||||||
@ -1325,34 +1380,41 @@ that have been made before in this function. When `buffer-undo-list' is
|
|||||||
(ac-update t)))
|
(ac-update t)))
|
||||||
|
|
||||||
(defun ac-help (&optional persist)
|
(defun ac-help (&optional persist)
|
||||||
|
"No documentation, PERSIST."
|
||||||
(interactive "P")
|
(interactive "P")
|
||||||
(when ac-menu
|
(when ac-menu
|
||||||
(popup-menu-show-help ac-menu persist)))
|
(popup-menu-show-help ac-menu persist)))
|
||||||
|
|
||||||
(defun ac-persist-help ()
|
(defun ac-persist-help ()
|
||||||
|
"No documentation."
|
||||||
(interactive)
|
(interactive)
|
||||||
(ac-help t))
|
(ac-help t))
|
||||||
|
|
||||||
(defun ac-last-help (&optional persist)
|
(defun ac-last-help (&optional persist)
|
||||||
|
"No documentation, PERSIST."
|
||||||
(interactive "P")
|
(interactive "P")
|
||||||
(when ac-last-completion
|
(when ac-last-completion
|
||||||
(popup-item-show-help (cdr ac-last-completion) persist)))
|
(popup-item-show-help (cdr ac-last-completion) persist)))
|
||||||
|
|
||||||
(defun ac-last-persist-help ()
|
(defun ac-last-persist-help ()
|
||||||
|
"No documentation."
|
||||||
(interactive)
|
(interactive)
|
||||||
(ac-last-help t))
|
(ac-last-help t))
|
||||||
|
|
||||||
(defun ac-set-quick-help-timer ()
|
(defun ac-set-quick-help-timer ()
|
||||||
|
"No documentation."
|
||||||
(when (and ac-use-quick-help
|
(when (and ac-use-quick-help
|
||||||
(null ac-quick-help-timer))
|
(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))))
|
(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 ()
|
(defun ac-cancel-quick-help-timer ()
|
||||||
|
"No documentation."
|
||||||
(when (timerp ac-quick-help-timer)
|
(when (timerp ac-quick-help-timer)
|
||||||
(cancel-timer ac-quick-help-timer)
|
(cancel-timer ac-quick-help-timer)
|
||||||
(setq ac-quick-help-timer nil)))
|
(setq ac-quick-help-timer nil)))
|
||||||
|
|
||||||
(defun ac-pos-tip-show-quick-help (menu &optional item &rest args)
|
(defun ac-pos-tip-show-quick-help (menu &optional item &rest args)
|
||||||
|
"No documentation, MENU, ITEM, ARGS."
|
||||||
(let* ((point (plist-get args :point))
|
(let* ((point (plist-get args :point))
|
||||||
(around nil)
|
(around nil)
|
||||||
(parent-offset (popup-offset menu))
|
(parent-offset (popup-offset menu))
|
||||||
@ -1380,11 +1442,13 @@ that have been made before in this function. When `buffer-undo-list' is
|
|||||||
t)))))
|
t)))))
|
||||||
|
|
||||||
(defun ac-quick-help-use-pos-tip-p ()
|
(defun ac-quick-help-use-pos-tip-p ()
|
||||||
|
"No documentation."
|
||||||
(and ac-quick-help-prefer-pos-tip
|
(and ac-quick-help-prefer-pos-tip
|
||||||
window-system
|
window-system
|
||||||
(featurep 'pos-tip)))
|
(featurep 'pos-tip)))
|
||||||
|
|
||||||
(defun ac-quick-help (&optional force)
|
(defun ac-quick-help (&optional force)
|
||||||
|
"No documentation, FORCE."
|
||||||
(interactive)
|
(interactive)
|
||||||
;; TODO don't use FORCE
|
;; TODO don't use FORCE
|
||||||
(when (and (or force
|
(when (and (or force
|
||||||
@ -1405,14 +1469,15 @@ that have been made before in this function. When `buffer-undo-list' is
|
|||||||
:nowait t))))
|
:nowait t))))
|
||||||
|
|
||||||
(defun ac-remove-quick-help ()
|
(defun ac-remove-quick-help ()
|
||||||
|
"No documentation."
|
||||||
(when (ac-quick-help-use-pos-tip-p)
|
(when (ac-quick-help-use-pos-tip-p)
|
||||||
(with-no-warnings
|
(with-no-warnings (pos-tip-hide)))
|
||||||
(pos-tip-hide)))
|
|
||||||
(when ac-quick-help
|
(when ac-quick-help
|
||||||
(popup-delete ac-quick-help)
|
(popup-delete ac-quick-help)
|
||||||
(setq ac-quick-help nil)))
|
(setq ac-quick-help nil)))
|
||||||
|
|
||||||
(defun ac-last-quick-help ()
|
(defun ac-last-quick-help ()
|
||||||
|
"No documentation."
|
||||||
(interactive)
|
(interactive)
|
||||||
(when (and ac-last-completion
|
(when (and ac-last-completion
|
||||||
(eq (marker-buffer (car ac-last-completion))
|
(eq (marker-buffer (car ac-last-completion))
|
||||||
@ -1429,6 +1494,7 @@ that have been made before in this function. When `buffer-undo-list' is
|
|||||||
:margin t))))))
|
:margin t))))))
|
||||||
|
|
||||||
(defmacro ac-define-quick-help-command (name arglist &rest body)
|
(defmacro ac-define-quick-help-command (name arglist &rest body)
|
||||||
|
"No documentation, NAME, ARGLIST, BODY."
|
||||||
(declare (indent 2))
|
(declare (indent 2))
|
||||||
`(progn
|
`(progn
|
||||||
(defun ,name ,arglist ,@body)
|
(defun ,name ,arglist ,@body)
|
||||||
@ -1449,9 +1515,11 @@ that have been made before in this function. When `buffer-undo-list' is
|
|||||||
;;;; Auto completion isearch
|
;;;; Auto completion isearch
|
||||||
|
|
||||||
(defun ac-isearch-callback (list)
|
(defun ac-isearch-callback (list)
|
||||||
|
"No documentation, LIST."
|
||||||
(setq ac-dwim-enable (eq (length list) 1)))
|
(setq ac-dwim-enable (eq (length list) 1)))
|
||||||
|
|
||||||
(defun ac-isearch ()
|
(defun ac-isearch ()
|
||||||
|
"No documentation."
|
||||||
(interactive)
|
(interactive)
|
||||||
(when (ac-menu-live-p)
|
(when (ac-menu-live-p)
|
||||||
(ac-cancel-show-menu-timer)
|
(ac-cancel-show-menu-timer)
|
||||||
@ -1471,6 +1539,7 @@ that have been made before in this function. When `buffer-undo-list' is
|
|||||||
;;;; Auto completion commands
|
;;;; Auto completion commands
|
||||||
|
|
||||||
(cl-defun auto-complete-1 (&key sources (triggered 'command))
|
(cl-defun auto-complete-1 (&key sources (triggered 'command))
|
||||||
|
"No documentation."
|
||||||
(let ((menu-live (ac-menu-live-p))
|
(let ((menu-live (ac-menu-live-p))
|
||||||
(inline-live (ac-inline-live-p))
|
(inline-live (ac-inline-live-p))
|
||||||
started)
|
started)
|
||||||
@ -1579,6 +1648,7 @@ If given a prefix argument, select the previous candidate."
|
|||||||
t)))
|
t)))
|
||||||
|
|
||||||
(defun ac-complete-1 (candidate)
|
(defun ac-complete-1 (candidate)
|
||||||
|
"No documentation, CANDIDATE."
|
||||||
(let ((action (popup-item-property candidate 'action))
|
(let ((action (popup-item-property candidate 'action))
|
||||||
(fallback nil))
|
(fallback nil))
|
||||||
(when candidate
|
(when candidate
|
||||||
@ -1654,19 +1724,23 @@ If given a prefix argument, select the previous candidate."
|
|||||||
(interactive))
|
(interactive))
|
||||||
|
|
||||||
(defun ac-mouse-1 (event)
|
(defun ac-mouse-1 (event)
|
||||||
|
"No documentation, EVENT."
|
||||||
(interactive "e")
|
(interactive "e")
|
||||||
(popup-awhen (popup-menu-item-of-mouse-event event)
|
(popup-awhen (popup-menu-item-of-mouse-event event)
|
||||||
(ac-complete-1 it)))
|
(ac-complete-1 it)))
|
||||||
|
|
||||||
(defun ac-mouse-4 (event)
|
(defun ac-mouse-4 (event)
|
||||||
|
"No documentation, EVENT."
|
||||||
(interactive "e")
|
(interactive "e")
|
||||||
(ac-previous))
|
(ac-previous))
|
||||||
|
|
||||||
(defun ac-mouse-5 (event)
|
(defun ac-mouse-5 (event)
|
||||||
|
"No documentation, EVENT."
|
||||||
(interactive "e")
|
(interactive "e")
|
||||||
(ac-next))
|
(ac-next))
|
||||||
|
|
||||||
(defun ac-trigger-key-command (&optional force)
|
(defun ac-trigger-key-command (&optional force)
|
||||||
|
"No documentation, FORCE."
|
||||||
(interactive "P")
|
(interactive "P")
|
||||||
(let (started)
|
(let (started)
|
||||||
(when (or force (ac-trigger-command-p last-command))
|
(when (or force (ac-trigger-command-p last-command))
|
||||||
@ -1684,24 +1758,30 @@ If given a prefix argument, select the previous candidate."
|
|||||||
(defvar ac-minutes-counter 0)
|
(defvar ac-minutes-counter 0)
|
||||||
|
|
||||||
(defun ac-clear-variable-after-save (variable &optional pred)
|
(defun ac-clear-variable-after-save (variable &optional pred)
|
||||||
|
"No documentation."
|
||||||
(add-to-list 'ac-clear-variables-after-save (cons variable pred)))
|
(add-to-list 'ac-clear-variables-after-save (cons variable pred)))
|
||||||
|
|
||||||
(defun ac-clear-variables-after-save ()
|
(defun ac-clear-variables-after-save ()
|
||||||
|
"No documentation."
|
||||||
(dolist (pair ac-clear-variables-after-save)
|
(dolist (pair ac-clear-variables-after-save)
|
||||||
(if (or (null (cdr pair))
|
(if (or (null (cdr pair))
|
||||||
(funcall (cdr pair)))
|
(funcall (cdr pair)))
|
||||||
(set (car pair) nil))))
|
(set (car pair) nil))))
|
||||||
|
|
||||||
(defun ac-clear-variable-every-minutes (variable minutes)
|
(defun ac-clear-variable-every-minutes (variable minutes)
|
||||||
|
"No documentation."
|
||||||
(add-to-list 'ac-clear-variables-every-minute (cons variable minutes)))
|
(add-to-list 'ac-clear-variables-every-minute (cons variable minutes)))
|
||||||
|
|
||||||
(defun ac-clear-variable-every-minute (variable)
|
(defun ac-clear-variable-every-minute (variable)
|
||||||
|
"No documentation."
|
||||||
(ac-clear-variable-every-minutes variable 1))
|
(ac-clear-variable-every-minutes variable 1))
|
||||||
|
|
||||||
(defun ac-clear-variable-every-10-minutes (variable)
|
(defun ac-clear-variable-every-10-minutes (variable)
|
||||||
|
"No documentation."
|
||||||
(ac-clear-variable-every-minutes variable 10))
|
(ac-clear-variable-every-minutes variable 10))
|
||||||
|
|
||||||
(defun ac-clear-variables-every-minute ()
|
(defun ac-clear-variables-every-minute ()
|
||||||
|
"No documentation."
|
||||||
(cl-incf ac-minutes-counter)
|
(cl-incf ac-minutes-counter)
|
||||||
(dolist (pair ac-clear-variables-every-minute)
|
(dolist (pair ac-clear-variables-every-minute)
|
||||||
(if (eq (% ac-minutes-counter (cdr pair)) 0)
|
(if (eq (% ac-minutes-counter (cdr pair)) 0)
|
||||||
@ -1712,6 +1792,7 @@ If given a prefix argument, select the previous candidate."
|
|||||||
;;;; Auto complete mode
|
;;;; Auto complete mode
|
||||||
|
|
||||||
(defun ac-cursor-on-diable-face-p (&optional point)
|
(defun ac-cursor-on-diable-face-p (&optional point)
|
||||||
|
"No documentation."
|
||||||
(memq (get-text-property (or point (point)) 'face) ac-disable-faces))
|
(memq (get-text-property (or point (point)) 'face) ac-disable-faces))
|
||||||
|
|
||||||
(defun ac-trigger-command-p (command)
|
(defun ac-trigger-command-p (command)
|
||||||
@ -1723,12 +1804,14 @@ If given a prefix argument, select the previous candidate."
|
|||||||
(string-match "electric" (symbol-name command)))))
|
(string-match "electric" (symbol-name command)))))
|
||||||
|
|
||||||
(defun ac-fallback-key-sequence ()
|
(defun ac-fallback-key-sequence ()
|
||||||
|
"No documentation."
|
||||||
(setq unread-command-events
|
(setq unread-command-events
|
||||||
(append (this-single-command-raw-keys)
|
(append (this-single-command-raw-keys)
|
||||||
unread-command-events))
|
unread-command-events))
|
||||||
(read-key-sequence-vector ""))
|
(read-key-sequence-vector ""))
|
||||||
|
|
||||||
(defun ac-fallback-command (&optional except-command)
|
(defun ac-fallback-command (&optional except-command)
|
||||||
|
"No documentation."
|
||||||
(let* ((auto-complete-mode nil)
|
(let* ((auto-complete-mode nil)
|
||||||
(keys (ac-fallback-key-sequence))
|
(keys (ac-fallback-key-sequence))
|
||||||
(command (and keys (key-binding keys))))
|
(command (and keys (key-binding keys))))
|
||||||
@ -1762,6 +1845,7 @@ If given a prefix argument, select the previous candidate."
|
|||||||
(error (ac-error var))))
|
(error (ac-error var))))
|
||||||
|
|
||||||
(defun ac-handle-post-command ()
|
(defun ac-handle-post-command ()
|
||||||
|
"No documentation."
|
||||||
(condition-case var
|
(condition-case var
|
||||||
(when (and ac-triggered
|
(when (and ac-triggered
|
||||||
(or ac-auto-start
|
(or ac-auto-start
|
||||||
@ -1777,6 +1861,7 @@ If given a prefix argument, select the previous candidate."
|
|||||||
"Timer to poll end of completion.")
|
"Timer to poll end of completion.")
|
||||||
|
|
||||||
(defun ac-syntax-checker-workaround ()
|
(defun ac-syntax-checker-workaround ()
|
||||||
|
"No documentation."
|
||||||
(if ac-stop-flymake-on-completing
|
(if ac-stop-flymake-on-completing
|
||||||
(progn
|
(progn
|
||||||
(make-local-variable 'ac-flycheck-poll-completion-end-timer)
|
(make-local-variable 'ac-flycheck-poll-completion-end-timer)
|
||||||
@ -1798,6 +1883,7 @@ If given a prefix argument, select the previous candidate."
|
|||||||
(ad-disable-advice 'flycheck-handle-idle-change 'around 'ac-flycheck-stop-advice))))
|
(ad-disable-advice 'flycheck-handle-idle-change 'around 'ac-flycheck-stop-advice))))
|
||||||
|
|
||||||
(defun ac-setup ()
|
(defun ac-setup ()
|
||||||
|
"No documentation."
|
||||||
(if ac-trigger-key
|
(if ac-trigger-key
|
||||||
(ac-set-trigger-key ac-trigger-key))
|
(ac-set-trigger-key ac-trigger-key))
|
||||||
(if ac-use-comphist
|
(if ac-use-comphist
|
||||||
@ -1877,6 +1963,7 @@ completion menu. This workaround stops that annoying behavior."
|
|||||||
(defvar ac-word-index nil)
|
(defvar ac-word-index nil)
|
||||||
|
|
||||||
(defun ac-candidate-words-in-buffer (point prefix limit)
|
(defun ac-candidate-words-in-buffer (point prefix limit)
|
||||||
|
"No documentation."
|
||||||
(let ((i 0)
|
(let ((i 0)
|
||||||
candidate
|
candidate
|
||||||
candidates
|
candidates
|
||||||
@ -1901,6 +1988,7 @@ completion menu. This workaround stops that annoying behavior."
|
|||||||
(nreverse candidates))))
|
(nreverse candidates))))
|
||||||
|
|
||||||
(defun ac-incremental-update-word-index ()
|
(defun ac-incremental-update-word-index ()
|
||||||
|
"No documentation."
|
||||||
(unless (local-variable-p 'ac-word-index)
|
(unless (local-variable-p 'ac-word-index)
|
||||||
(make-local-variable 'ac-word-index))
|
(make-local-variable 'ac-word-index))
|
||||||
(if (null ac-word-index)
|
(if (null ac-word-index)
|
||||||
@ -1916,10 +2004,11 @@ completion menu. This workaround stops that annoying behavior."
|
|||||||
(setcdr ac-word-index index)))))
|
(setcdr ac-word-index index)))))
|
||||||
|
|
||||||
(defun ac-update-word-index-1 ()
|
(defun ac-update-word-index-1 ()
|
||||||
|
"No documentation."
|
||||||
(unless (local-variable-p 'ac-word-index)
|
(unless (local-variable-p 'ac-word-index)
|
||||||
(make-local-variable 'ac-word-index))
|
(make-local-variable 'ac-word-index))
|
||||||
(when (and (not (car ac-word-index))
|
(when (and (not (car ac-word-index))
|
||||||
(< (buffer-size) 1048576))
|
(< (buffer-size) 1048576)) ; NOTE: Not sure 1048576 means
|
||||||
;; Complete index
|
;; Complete index
|
||||||
(setq ac-word-index
|
(setq ac-word-index
|
||||||
(cons t
|
(cons t
|
||||||
@ -1927,6 +2016,7 @@ completion menu. This workaround stops that annoying behavior."
|
|||||||
"\\(?:^\\|\\_>\\).*?\\(?:\\_<\\|$\\)")))))
|
"\\(?:^\\|\\_>\\).*?\\(?:\\_<\\|$\\)")))))
|
||||||
|
|
||||||
(defun ac-update-word-index ()
|
(defun ac-update-word-index ()
|
||||||
|
"No documentation."
|
||||||
(dolist (buffer (buffer-list))
|
(dolist (buffer (buffer-list))
|
||||||
(when (or ac-fuzzy-enable
|
(when (or ac-fuzzy-enable
|
||||||
(not (eq buffer (current-buffer))))
|
(not (eq buffer (current-buffer))))
|
||||||
@ -1934,6 +2024,7 @@ completion menu. This workaround stops that annoying behavior."
|
|||||||
(ac-update-word-index-1)))))
|
(ac-update-word-index-1)))))
|
||||||
|
|
||||||
(defun ac-word-candidates (&optional buffer-pred)
|
(defun ac-word-candidates (&optional buffer-pred)
|
||||||
|
"No documentation."
|
||||||
(cl-loop initially (unless ac-fuzzy-enable (ac-incremental-update-word-index))
|
(cl-loop initially (unless ac-fuzzy-enable (ac-incremental-update-word-index))
|
||||||
for buffer in (buffer-list)
|
for buffer in (buffer-list)
|
||||||
if (and (or (not (integerp ac-limit)) (< (length candidates) ac-limit))
|
if (and (or (not (integerp ac-limit)) (< (length candidates) ac-limit))
|
||||||
@ -1963,6 +2054,7 @@ completion menu. This workaround stops that annoying behavior."
|
|||||||
(ac-clear-variable-every-10-minutes 'ac-symbols-cache)
|
(ac-clear-variable-every-10-minutes 'ac-symbols-cache)
|
||||||
|
|
||||||
(defun ac-symbol-file (symbol type)
|
(defun ac-symbol-file (symbol type)
|
||||||
|
"No documentation."
|
||||||
(if (fboundp 'find-lisp-object-file-name)
|
(if (fboundp 'find-lisp-object-file-name)
|
||||||
(find-lisp-object-file-name symbol type)
|
(find-lisp-object-file-name symbol type)
|
||||||
(let ((file-name (with-no-warnings
|
(let ((file-name (with-no-warnings
|
||||||
@ -1995,6 +2087,7 @@ completion menu. This workaround stops that annoying behavior."
|
|||||||
file-name))))
|
file-name))))
|
||||||
|
|
||||||
(defun ac-symbol-documentation (symbol)
|
(defun ac-symbol-documentation (symbol)
|
||||||
|
"No documentation."
|
||||||
(if (stringp symbol)
|
(if (stringp symbol)
|
||||||
(setq symbol (intern-soft symbol)))
|
(setq symbol (intern-soft symbol)))
|
||||||
(ignore-errors
|
(ignore-errors
|
||||||
@ -2042,6 +2135,7 @@ completion menu. This workaround stops that annoying behavior."
|
|||||||
(buffer-string)))))))))
|
(buffer-string)))))))))
|
||||||
|
|
||||||
(defun ac-symbol-candidates ()
|
(defun ac-symbol-candidates ()
|
||||||
|
"No documentation."
|
||||||
(or ac-symbols-cache
|
(or ac-symbols-cache
|
||||||
(setq ac-symbols-cache
|
(setq ac-symbols-cache
|
||||||
(cl-loop for x being the symbols
|
(cl-loop for x being the symbols
|
||||||
@ -2061,6 +2155,7 @@ completion menu. This workaround stops that annoying behavior."
|
|||||||
(ac-clear-variable-every-10-minutes 'ac-functions-cache)
|
(ac-clear-variable-every-10-minutes 'ac-functions-cache)
|
||||||
|
|
||||||
(defun ac-function-candidates ()
|
(defun ac-function-candidates ()
|
||||||
|
"No documentation."
|
||||||
(or ac-functions-cache
|
(or ac-functions-cache
|
||||||
(setq ac-functions-cache
|
(setq ac-functions-cache
|
||||||
(cl-loop for x being the symbols
|
(cl-loop for x being the symbols
|
||||||
@ -2079,6 +2174,7 @@ completion menu. This workaround stops that annoying behavior."
|
|||||||
(ac-clear-variable-every-10-minutes 'ac-variables-cache)
|
(ac-clear-variable-every-10-minutes 'ac-variables-cache)
|
||||||
|
|
||||||
(defun ac-variable-candidates ()
|
(defun ac-variable-candidates ()
|
||||||
|
"No documentation."
|
||||||
(or ac-variables-cache
|
(or ac-variables-cache
|
||||||
(setq ac-variables-cache
|
(setq ac-variables-cache
|
||||||
(cl-loop for x being the symbols
|
(cl-loop for x being the symbols
|
||||||
@ -2096,6 +2192,7 @@ completion menu. This workaround stops that annoying behavior."
|
|||||||
(ac-clear-variable-every-10-minutes 'ac-emacs-lisp-features)
|
(ac-clear-variable-every-10-minutes 'ac-emacs-lisp-features)
|
||||||
|
|
||||||
(defun ac-emacs-lisp-feature-candidates ()
|
(defun ac-emacs-lisp-feature-candidates ()
|
||||||
|
"No documentation."
|
||||||
(or ac-emacs-lisp-features
|
(or ac-emacs-lisp-features
|
||||||
(if (fboundp 'find-library-suffixes)
|
(if (fboundp 'find-library-suffixes)
|
||||||
(let ((suffix (concat (regexp-opt (find-library-suffixes) t) "\\'")))
|
(let ((suffix (concat (regexp-opt (find-library-suffixes) t) "\\'")))
|
||||||
@ -2131,6 +2228,7 @@ completion menu. This workaround stops that annoying behavior."
|
|||||||
(defvar ac-filename-cache nil)
|
(defvar ac-filename-cache nil)
|
||||||
|
|
||||||
(defun ac-filename-candidate ()
|
(defun ac-filename-candidate ()
|
||||||
|
"No documentation."
|
||||||
(let (file-name-handler-alist)
|
(let (file-name-handler-alist)
|
||||||
(unless (or (and comment-start-skip
|
(unless (or (and comment-start-skip
|
||||||
(string-match comment-start-skip ac-prefix))
|
(string-match comment-start-skip ac-prefix))
|
Binary file not shown.
@ -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
|
auto
|
||||||
break
|
break
|
||||||
case
|
case
|
||||||
@ -42,39 +66,81 @@ _Imaginary
|
|||||||
_Noreturn
|
_Noreturn
|
||||||
_Static_assert
|
_Static_assert
|
||||||
_Thread_local
|
_Thread_local
|
||||||
alignas
|
__func__
|
||||||
alignof
|
__objc_yes
|
||||||
atomic_
|
__objc_no
|
||||||
bool
|
|
||||||
complex
|
|
||||||
imaginary
|
|
||||||
noreturn
|
|
||||||
static_assert
|
|
||||||
thread_local
|
|
||||||
#if
|
|
||||||
#elif
|
|
||||||
#else
|
|
||||||
#endif
|
|
||||||
defined
|
|
||||||
#ifdef
|
|
||||||
#ifndef
|
|
||||||
#define
|
|
||||||
#undef
|
|
||||||
#include
|
|
||||||
#line
|
|
||||||
#error
|
|
||||||
#pragma
|
|
||||||
_Pragma
|
|
||||||
asm
|
asm
|
||||||
fortran
|
bool
|
||||||
#import
|
false
|
||||||
self
|
true
|
||||||
_cmd
|
wchar_t
|
||||||
instancetype
|
_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
|
||||||
__bridge_transfer
|
__bridge_transfer
|
||||||
__bridge_retained
|
__bridge_retained
|
||||||
__bridge_retain
|
__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
|
@not_keyword
|
||||||
@class
|
@class
|
||||||
@compatibility_alias
|
@compatibility_alias
|
||||||
@ -102,15 +168,12 @@ __bridge_retain
|
|||||||
@dynamic
|
@dynamic
|
||||||
@import
|
@import
|
||||||
@available
|
@available
|
||||||
__attribute__((visibility("default")))
|
self
|
||||||
__attribute__((visibility("hidden")))
|
_cmd
|
||||||
__attribute__((deprecated))
|
instancetype
|
||||||
__attribute__((unavailable))
|
id
|
||||||
__attribute__((objc_exception))
|
Class
|
||||||
__attribute__((objc_root_class))
|
SEL
|
||||||
__covariant
|
|
||||||
__contravariant
|
|
||||||
__kindof
|
|
||||||
getter=
|
getter=
|
||||||
setter=
|
setter=
|
||||||
readonly
|
readonly
|
||||||
@ -128,34 +191,24 @@ nullable
|
|||||||
null_unspecified
|
null_unspecified
|
||||||
null_resettable
|
null_resettable
|
||||||
class
|
class
|
||||||
__attribute__((deprecated))
|
|
||||||
in
|
in
|
||||||
out
|
out
|
||||||
inout
|
inout
|
||||||
oneway
|
oneway
|
||||||
bycopy
|
bycopy
|
||||||
byref
|
byref
|
||||||
nonnull
|
|
||||||
nullable
|
|
||||||
null_unspecified
|
|
||||||
__attribute__((unused))
|
|
||||||
super
|
super
|
||||||
true
|
__block
|
||||||
false
|
__strong
|
||||||
__objc_yes
|
__weak
|
||||||
__objc_no
|
__unsafe_unretained
|
||||||
Class
|
__autoreleasing
|
||||||
id
|
__nonnull
|
||||||
SEL
|
__nullable
|
||||||
|
__null_unspecified
|
||||||
IMP
|
IMP
|
||||||
BOOL
|
BOOL
|
||||||
STR
|
|
||||||
NSInteger
|
|
||||||
NSUInteger
|
|
||||||
YES
|
YES
|
||||||
NO
|
NO
|
||||||
Nil
|
Nil
|
||||||
nil
|
nil
|
||||||
__strong
|
|
||||||
__unsafe_unretained
|
|
||||||
__autoreleasing
|
|
@ -1,4 +1,4 @@
|
|||||||
(define-package "dash" "20200524.1947" "A modern list library for Emacs" 'nil :commit "732d92eac56023a4fb4a5dc3d9d4e274ebf44bf9" :keywords
|
(define-package "dash" "20200803.1520" "A modern list library for Emacs" 'nil :commit "b92ab5a39b987e4fe69317b9d9fda452300baf20" :keywords
|
||||||
'("lists")
|
'("lists")
|
||||||
:authors
|
:authors
|
||||||
'(("Magnar Sveen" . "magnars@gmail.com"))
|
'(("Magnar Sveen" . "magnars@gmail.com"))
|
@ -1581,7 +1581,7 @@ and when that result is non-nil, through the next form, etc."
|
|||||||
,@more))))
|
,@more))))
|
||||||
|
|
||||||
(defmacro -some--> (x &optional form &rest more)
|
(defmacro -some--> (x &optional form &rest more)
|
||||||
"When expr in non-nil, thread it through the first form (via `-->'),
|
"When expr is non-nil, thread it through the first form (via `-->'),
|
||||||
and when that result is non-nil, through the next form, etc."
|
and when that result is non-nil, through the next form, etc."
|
||||||
(declare (debug ->)
|
(declare (debug ->)
|
||||||
(indent 1))
|
(indent 1))
|
Binary file not shown.
@ -1,6 +1,6 @@
|
|||||||
(define-package "dracula-theme" "20200527.1834" "Dracula Theme"
|
(define-package "dracula-theme" "20200814.1717" "Dracula Theme"
|
||||||
'((emacs "24.3"))
|
'((emacs "24.3"))
|
||||||
:commit "f98f9bd54e965e8676ee15ce8b4ecbeae01341ed" :authors
|
:commit "3b7c2905d249f47bc9c09d304c16f72f217df2e0" :authors
|
||||||
'(("film42"))
|
'(("film42"))
|
||||||
:maintainer
|
:maintainer
|
||||||
'("film42")
|
'("film42")
|
@ -476,7 +476,11 @@ read it before opening a new issue about your will.")
|
|||||||
(message-header-name :foreground ,dracula-green)
|
(message-header-name :foreground ,dracula-green)
|
||||||
(message-header-xheader :foreground ,dracula-cyan)
|
(message-header-xheader :foreground ,dracula-cyan)
|
||||||
(message-separator :foreground ,dracula-cyan :slant italic)
|
(message-separator :foreground ,dracula-cyan :slant italic)
|
||||||
(message-cited-text :foreground ,dracula-comment)
|
(message-cited-text :foreground ,dracula-purple)
|
||||||
|
(message-cited-text-1 :foreground ,dracula-purple)
|
||||||
|
(message-cited-text-2 :foreground ,dracula-orange)
|
||||||
|
(message-cited-text-3 :foreground ,dracula-comment)
|
||||||
|
(message-cited-text-4 :foreground ,fg2)
|
||||||
(message-mml :foreground ,dracula-green :weight normal)
|
(message-mml :foreground ,dracula-green :weight normal)
|
||||||
;; mode-line
|
;; mode-line
|
||||||
(mode-line :background ,dracula-current
|
(mode-line :background ,dracula-current
|
@ -1,5 +1,6 @@
|
|||||||
(advice-add #'x-apply-session-resources :override #'ignore)
|
(advice-add #'x-apply-session-resources :override #'ignore)
|
||||||
(setq make-backup-files nil
|
(setq make-backup-files nil
|
||||||
|
auto-save-default nil
|
||||||
visible-bell t)
|
visible-bell t)
|
||||||
|
|
||||||
(load-file "dracula-theme.el")
|
(load-file "dracula-theme.el")
|
BIN
elpa/dracula-theme-20200814.1717/test-profile.elc
Normal file
BIN
elpa/dracula-theme-20200814.1717/test-profile.elc
Normal file
Binary file not shown.
Binary file not shown.
@ -2038,7 +2038,6 @@ The return value is the yanked text."
|
|||||||
(current-kill 0)))
|
(current-kill 0)))
|
||||||
(yank-handler (car-safe (get-text-property
|
(yank-handler (car-safe (get-text-property
|
||||||
0 'yank-handler text)))
|
0 'yank-handler text)))
|
||||||
new-kill
|
|
||||||
paste-eob)
|
paste-eob)
|
||||||
(evil-with-undo
|
(evil-with-undo
|
||||||
(let ((kill-ring-yank-pointer (list (current-kill 0))))
|
(let ((kill-ring-yank-pointer (list (current-kill 0))))
|
Binary file not shown.
@ -125,7 +125,8 @@ otherwise add at the end of the list."
|
|||||||
(set list-var (append (symbol-value list-var)
|
(set list-var (append (symbol-value list-var)
|
||||||
(list (cons key val)))))
|
(list (cons key val)))))
|
||||||
(if elements
|
(if elements
|
||||||
(apply #'evil-add-to-alist list-var elements)
|
(with-no-warnings
|
||||||
|
(apply #'evil-add-to-alist list-var elements))
|
||||||
(symbol-value list-var))))
|
(symbol-value list-var))))
|
||||||
|
|
||||||
(make-obsolete 'evil-add-to-alist
|
(make-obsolete 'evil-add-to-alist
|
||||||
@ -1529,7 +1530,7 @@ last successful match (that caused COUNT to reach zero)."
|
|||||||
(while
|
(while
|
||||||
(and (setq match
|
(and (setq match
|
||||||
(re-search-forward
|
(re-search-forward
|
||||||
"<\\([^/ >]+\\)\\(?:[^\"/>]\\|\"[^\"]*\"\\)*?>\\|</\\([^>]+?\\)>"
|
"<\\([^/ >\n]+\\)\\(?:[^\"/>]\\|\"[^\"]*\"\\)*?>\\|</\\([^>]+?\\)>"
|
||||||
nil t dir))
|
nil t dir))
|
||||||
(cond
|
(cond
|
||||||
((match-beginning op)
|
((match-beginning op)
|
||||||
@ -1563,7 +1564,7 @@ last successful match (that caused COUNT to reach zero)."
|
|||||||
(let* ((tag (match-string cl))
|
(let* ((tag (match-string cl))
|
||||||
(refwd (concat "<\\(/\\)?"
|
(refwd (concat "<\\(/\\)?"
|
||||||
(regexp-quote tag)
|
(regexp-quote tag)
|
||||||
"\\(?:>\\| \\(?:[^\"/>]\\|\"[^\"]*\"\\)*?>\\)"))
|
"\\(?:>\\|[ \n]\\(?:[^\"/>]\\|\"[^\"]*\"\\)*?>\\)"))
|
||||||
(cnt 1))
|
(cnt 1))
|
||||||
(while (and (> cnt 0) (re-search-backward refwd nil t dir))
|
(while (and (> cnt 0) (re-search-backward refwd nil t dir))
|
||||||
(setq cnt (+ cnt (if (match-beginning 1) dir (- dir)))))
|
(setq cnt (+ cnt (if (match-beginning 1) dir (- dir)))))
|
Binary file not shown.
@ -528,6 +528,12 @@ Based on `evil-enclose-ace-jump-for-motion'."
|
|||||||
'(when (fboundp 'eldoc-add-command-completions)
|
'(when (fboundp 'eldoc-add-command-completions)
|
||||||
(eldoc-add-command-completions "evil-window-")))
|
(eldoc-add-command-completions "evil-window-")))
|
||||||
|
|
||||||
|
;;; XRef
|
||||||
|
(eval-after-load 'xref
|
||||||
|
'(progn
|
||||||
|
(evil-set-command-property 'xref-find-definitions :jump t)
|
||||||
|
(evil-set-command-property 'xref-find-references :jump t)))
|
||||||
|
|
||||||
(provide 'evil-integration)
|
(provide 'evil-integration)
|
||||||
|
|
||||||
;;; evil-integration.el ends here
|
;;; evil-integration.el ends here
|
Binary file not shown.
@ -66,6 +66,10 @@
|
|||||||
|
|
||||||
(defvar evil--jumps-jumping nil)
|
(defvar evil--jumps-jumping nil)
|
||||||
|
|
||||||
|
(defvar evil--jumps-jumping-backward nil
|
||||||
|
"Set by `evil--jump-backward', used and cleared in the
|
||||||
|
`post-command-hook' by `evil--jump-handle-buffer-crossing'")
|
||||||
|
|
||||||
(eval-when-compile (defvar evil--jumps-debug nil))
|
(eval-when-compile (defvar evil--jumps-debug nil))
|
||||||
|
|
||||||
(defvar evil--jumps-buffer-targets "\\*\\(new\\|scratch\\)\\*"
|
(defvar evil--jumps-buffer-targets "\\*\\(new\\|scratch\\)\\*"
|
||||||
@ -79,13 +83,15 @@
|
|||||||
|
|
||||||
(cl-defstruct evil-jumps-struct
|
(cl-defstruct evil-jumps-struct
|
||||||
ring
|
ring
|
||||||
(idx -1))
|
(idx -1)
|
||||||
|
previous-pos)
|
||||||
|
|
||||||
(defmacro evil--jumps-message (format &rest args)
|
;; Is inlining this really worth it?
|
||||||
(when evil--jumps-debug
|
(defsubst evil--jumps-message (format &rest args)
|
||||||
`(with-current-buffer (get-buffer-create "*evil-jumps*")
|
(when (eval-when-compile evil--jumps-debug)
|
||||||
|
(with-current-buffer (get-buffer-create "*evil-jumps*")
|
||||||
(goto-char (point-max))
|
(goto-char (point-max))
|
||||||
(insert (apply #'format ,format ',args) "\n"))))
|
(insert (apply #'format format args) "\n"))))
|
||||||
|
|
||||||
(defun evil--jumps-get-current (&optional window)
|
(defun evil--jumps-get-current (&optional window)
|
||||||
(unless window
|
(unless window
|
||||||
@ -119,18 +125,16 @@
|
|||||||
(defun evil--jumps-savehist-sync ()
|
(defun evil--jumps-savehist-sync ()
|
||||||
"Updates the printable value of window jumps for `savehist'."
|
"Updates the printable value of window jumps for `savehist'."
|
||||||
(setq evil-jumps-history
|
(setq evil-jumps-history
|
||||||
(cl-remove-if-not #'identity
|
(delq nil (mapcar #'(lambda (jump)
|
||||||
(mapcar #'(lambda (jump)
|
|
||||||
(let* ((mark (car jump))
|
(let* ((mark (car jump))
|
||||||
(pos (if (markerp mark)
|
(pos (if (markerp mark)
|
||||||
(marker-position mark)
|
(marker-position mark)
|
||||||
mark))
|
mark))
|
||||||
(file-name (cadr jump)))
|
(file-name (cadr jump)))
|
||||||
(if (and (not (file-remote-p file-name))
|
(when (and (not (file-remote-p file-name))
|
||||||
(file-exists-p file-name)
|
(file-exists-p file-name)
|
||||||
pos)
|
pos)
|
||||||
(list pos file-name)
|
(list pos file-name))))
|
||||||
nil)))
|
|
||||||
(ring-elements (evil--jumps-get-window-jump-list))))))
|
(ring-elements (evil--jumps-get-window-jump-list))))))
|
||||||
|
|
||||||
(defun evil--jumps-jump (idx shift)
|
(defun evil--jumps-jump (idx shift)
|
||||||
@ -216,6 +220,10 @@
|
|||||||
(defun evil-set-jump (&optional pos)
|
(defun evil-set-jump (&optional pos)
|
||||||
"Set jump point at POS.
|
"Set jump point at POS.
|
||||||
POS defaults to point."
|
POS defaults to point."
|
||||||
|
(save-excursion
|
||||||
|
(when (markerp pos)
|
||||||
|
(set-buffer (marker-buffer pos)))
|
||||||
|
|
||||||
(unless (or (region-active-p) (evil-visual-state-p))
|
(unless (or (region-active-p) (evil-visual-state-p))
|
||||||
(push-mark pos t))
|
(push-mark pos t))
|
||||||
|
|
||||||
@ -227,12 +235,12 @@ POS defaults to point."
|
|||||||
(cl-loop repeat idx
|
(cl-loop repeat idx
|
||||||
do (ring-remove target-list))
|
do (ring-remove target-list))
|
||||||
(setf (evil-jumps-struct-idx struct) -1))
|
(setf (evil-jumps-struct-idx struct) -1))
|
||||||
(save-excursion
|
|
||||||
(when pos
|
(when pos
|
||||||
(goto-char pos))
|
(goto-char pos))
|
||||||
(evil--jumps-push))))
|
(evil--jumps-push))))
|
||||||
|
|
||||||
(defun evil--jump-backward (count)
|
(defun evil--jump-backward (count)
|
||||||
|
(setq evil--jumps-jumping-backward t)
|
||||||
(let ((count (or count 1)))
|
(let ((count (or count 1)))
|
||||||
(evil-motion-loop (nil count)
|
(evil-motion-loop (nil count)
|
||||||
(let* ((struct (evil--jumps-get-current))
|
(let* ((struct (evil--jumps-get-current))
|
||||||
@ -263,11 +271,13 @@ POS defaults to point."
|
|||||||
(> (length window-list) 1))
|
(> (length window-list) 1))
|
||||||
(let* ((target-jump-struct (evil--jumps-get-current new-window)))
|
(let* ((target-jump-struct (evil--jumps-get-current new-window)))
|
||||||
(if (not (ring-empty-p (evil--jumps-get-jumps target-jump-struct)))
|
(if (not (ring-empty-p (evil--jumps-get-jumps target-jump-struct)))
|
||||||
(evil--jumps-message "target window %s already has %s jumps" new-window target-jump-count)
|
(evil--jumps-message "target window %s already has %s jumps" new-window
|
||||||
|
(ring-length (evil--jumps-get-jumps target-jump-struct)))
|
||||||
(evil--jumps-message "new target window detected; copying %s to %s" existing-window new-window)
|
(evil--jumps-message "new target window detected; copying %s to %s" existing-window new-window)
|
||||||
(let* ((source-jump-struct (evil--jumps-get-current existing-window))
|
(let* ((source-jump-struct (evil--jumps-get-current existing-window))
|
||||||
(source-list (evil--jumps-get-jumps source-jump-struct)))
|
(source-list (evil--jumps-get-jumps source-jump-struct)))
|
||||||
(when (= (ring-length (evil--jumps-get-jumps target-jump-struct)) 0)
|
(when (= (ring-length (evil--jumps-get-jumps target-jump-struct)) 0)
|
||||||
|
(setf (evil-jumps-struct-previous-pos target-jump-struct) (evil-jumps-struct-previous-pos source-jump-struct))
|
||||||
(setf (evil-jumps-struct-idx target-jump-struct) (evil-jumps-struct-idx source-jump-struct))
|
(setf (evil-jumps-struct-idx target-jump-struct) (evil-jumps-struct-idx source-jump-struct))
|
||||||
(setf (evil-jumps-struct-ring target-jump-struct) (ring-copy source-list)))))))
|
(setf (evil-jumps-struct-ring target-jump-struct) (ring-copy source-list)))))))
|
||||||
;; delete obsolete windows
|
;; delete obsolete windows
|
||||||
@ -278,36 +288,65 @@ POS defaults to point."
|
|||||||
evil--jumps-window-jumps)))
|
evil--jumps-window-jumps)))
|
||||||
|
|
||||||
(defun evil--jump-hook (&optional command)
|
(defun evil--jump-hook (&optional command)
|
||||||
"Set jump point if COMMAND has a non-nil :jump property."
|
"`pre-command-hook' for evil-jumps.
|
||||||
|
Set jump point if COMMAND has a non-nil `:jump' property. Otherwise,
|
||||||
|
save the current position in case the command being executed will
|
||||||
|
change the current buffer."
|
||||||
(setq command (or command this-command))
|
(setq command (or command this-command))
|
||||||
(when (evil-get-command-property command :jump)
|
(if (evil-get-command-property command :jump)
|
||||||
(evil-set-jump)))
|
(evil-set-jump)
|
||||||
|
(setf (evil-jumps-struct-previous-pos (evil--jumps-get-current))
|
||||||
|
(point-marker))))
|
||||||
|
|
||||||
(defadvice switch-to-buffer (before evil-jumps activate)
|
(defun evil--jump-handle-buffer-crossing ()
|
||||||
(evil-set-jump))
|
(let ((jumping-backward evil--jumps-jumping-backward))
|
||||||
|
(setq evil--jumps-jumping-backward nil)
|
||||||
|
(dolist (frame (frame-list))
|
||||||
|
(dolist (window (window-list frame))
|
||||||
|
(let* ((struct (evil--jumps-get-current window))
|
||||||
|
(previous-pos (evil-jumps-struct-previous-pos struct)))
|
||||||
|
(when previous-pos
|
||||||
|
(setf (evil-jumps-struct-previous-pos struct) nil)
|
||||||
|
(if (and
|
||||||
|
;; `evil-jump-backward' (and other backward jumping
|
||||||
|
;; commands) needs to be handled specially. When
|
||||||
|
;; jumping backward multiple times, calling
|
||||||
|
;; `evil-set-jump' is always wrong: If you jump back
|
||||||
|
;; twice and we call `evil-set-jump' after the second
|
||||||
|
;; time, we clear the forward jump list and
|
||||||
|
;; `evil--jump-forward' won't work.
|
||||||
|
|
||||||
(defadvice split-window-internal (before evil-jumps activate)
|
;; The first time you jump backward, setting a jump
|
||||||
(evil-set-jump))
|
;; point is sometimes correct. But we don't do it
|
||||||
|
;; here because this function is called after
|
||||||
(eval-after-load 'etags
|
;; `evil--jump-backward' has updated our position in
|
||||||
'(defadvice find-tag-noselect (before evil-jumps activate)
|
;; the jump list so, again, `evil-set-jump' would
|
||||||
(evil-set-jump)))
|
;; break `evil--jump-forward'.
|
||||||
|
(not jumping-backward)
|
||||||
|
(let ((previous-buffer (marker-buffer previous-pos)))
|
||||||
|
(and previous-buffer
|
||||||
|
(not (eq previous-buffer (window-buffer window))))))
|
||||||
|
(evil-set-jump previous-pos)
|
||||||
|
(set-marker previous-pos nil))))))))
|
||||||
|
|
||||||
(if (bound-and-true-p savehist-loaded)
|
(if (bound-and-true-p savehist-loaded)
|
||||||
(evil--jumps-savehist-load)
|
(evil--jumps-savehist-load)
|
||||||
(add-hook 'savehist-mode-hook #'evil--jumps-savehist-load))
|
(add-hook 'savehist-mode-hook #'evil--jumps-savehist-load))
|
||||||
|
|
||||||
(add-hook 'evil-local-mode-hook
|
(defun evil--jumps-install-or-uninstall ()
|
||||||
(lambda ()
|
|
||||||
(if evil-local-mode
|
(if evil-local-mode
|
||||||
(progn
|
(progn
|
||||||
(add-hook 'pre-command-hook #'evil--jump-hook nil t)
|
(add-hook 'pre-command-hook #'evil--jump-hook nil t)
|
||||||
|
(add-hook 'post-command-hook #'evil--jump-handle-buffer-crossing nil t)
|
||||||
(add-hook 'next-error-hook #'evil-set-jump nil t)
|
(add-hook 'next-error-hook #'evil-set-jump nil t)
|
||||||
(add-hook 'window-configuration-change-hook #'evil--jumps-window-configuration-hook nil t))
|
(add-hook 'window-configuration-change-hook #'evil--jumps-window-configuration-hook nil t))
|
||||||
(progn
|
|
||||||
(remove-hook 'pre-command-hook #'evil--jump-hook t)
|
(remove-hook 'pre-command-hook #'evil--jump-hook t)
|
||||||
|
(remove-hook 'post-command-hook #'evil--jump-handle-buffer-crossing t)
|
||||||
(remove-hook 'next-error-hook #'evil-set-jump t)
|
(remove-hook 'next-error-hook #'evil-set-jump t)
|
||||||
(remove-hook 'window-configuration-change-hook #'evil--jumps-window-configuration-hook t)))))
|
(remove-hook 'window-configuration-change-hook #'evil--jumps-window-configuration-hook t)
|
||||||
|
(evil--jump-handle-buffer-crossing)))
|
||||||
|
|
||||||
|
(add-hook 'evil-local-mode-hook #'evil--jumps-install-or-uninstall)
|
||||||
|
|
||||||
(provide 'evil-jumps)
|
(provide 'evil-jumps)
|
||||||
|
|
BIN
elpa/evil-20200929.1018/evil-jumps.elc
Normal file
BIN
elpa/evil-20200929.1018/evil-jumps.elc
Normal file
Binary file not shown.
@ -1,9 +1,9 @@
|
|||||||
(define-package "evil" "20200718.842" "Extensible Vi layer for Emacs."
|
(define-package "evil" "20200929.1018" "Extensible Vi layer for Emacs."
|
||||||
'((emacs "24.1")
|
'((emacs "24.1")
|
||||||
(undo-tree "0.7.4")
|
(undo-tree "0.7.4")
|
||||||
(goto-chg "1.6")
|
(goto-chg "1.6")
|
||||||
(cl-lib "0.5"))
|
(cl-lib "0.5"))
|
||||||
:commit "2bc6ca3587502fde67b93e411e329fc8224c916a")
|
:commit "60ec41f73fb5a4c21bebf29eab1f6ef1bf1bbda9")
|
||||||
;; Local Variables:
|
;; Local Variables:
|
||||||
;; no-byte-compile: t
|
;; no-byte-compile: t
|
||||||
;; End:
|
;; End:
|
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue
Block a user