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
@ -50,7 +50,7 @@ See `auto-complete-mode' for more information on Auto-Complete mode.
@@ -50,7 +50,7 @@ See `auto-complete-mode' for more information on Auto-Complete mode.
;;; Generated autoloads from auto-complete-config.el
"Regexp to indicate what packages can work with auto-complete."
"Regexp to indicate what packages can work with `auto-complete'."
:type'string
:group'auto-complete)
@ -265,9 +268,9 @@ and if there is no completions, an original command will be fallbacked."
@@ -265,9 +268,9 @@ and if there is no completions, an original command will be fallbacked."
(defcustomac-auto-start2
"Non-nil means completion will be started automatically.
@ -785,8 +815,8 @@ You can not use it in source definition like (prefix . `NAME')."
@@ -785,8 +815,8 @@ You can not use it in source definition like (prefix . `NAME')."
(cl-loopforfeaturein(assoc-default'dependssrc)
unless(requirefeaturenilt)returnnil
finallyreturnt))))
(if(symbolpsource)
(putsource'available(ifavailablet'no)))
(when(symbolpsource)
(putsource'available(ifavailablet'no)))
available)))
(defunac-compile-sources(sources)
@ -811,14 +841,16 @@ You can not use it in source definition like (prefix . `NAME')."
@@ -811,14 +841,16 @@ You can not use it in source definition like (prefix . `NAME')."
@ -829,21 +861,24 @@ You can not use it in source definition like (prefix . `NAME')."
@@ -829,21 +861,24 @@ You can not use it in source definition like (prefix . `NAME')."
:symbolt
:scroll-bart
:margin-left1
:keymapac-menu-map
)))
:keymapac-menu-map)))
(defunac-menu-delete()
"Delete the completion menu."
(whenac-menu
(popup-deleteac-menu)
(setqac-menunil)))
(defsubstac-inline-overlay()
"No documentation."
(nth0ac-inline))
(defsubstac-inline-live-p()
"No documentation."
(andac-inline(ac-inline-overlay)t))
(defunac-inline-show(pointstring)
"No documentation, POINT, STRING."
(unlessac-inline
(setqac-inline(listnil)))
(save-excursion
@ -859,9 +894,9 @@ You can not use it in source definition like (prefix . `NAME')."
@@ -859,9 +894,9 @@ You can not use it in source definition like (prefix . `NAME')."
(<widthstring-width)
(setqc(char-after))
(not(eqc?\t))); special case for tab
(cl-incfwidth(char-widthc))
(cl-incflength)
(forward-char)))
(cl-incfwidth(char-widthc))
(cl-incflength)
(forward-char)))
;; Show completion
(goto-charpoint)
@ -900,12 +935,14 @@ You can not use it in source definition like (prefix . `NAME')."
@@ -900,12 +935,14 @@ You can not use it in source definition like (prefix . `NAME')."
(overlay-putoverlay'stringoriginal-string))))
(defunac-inline-delete()
"No documentation."
(when(ac-inline-live-p)
(ac-inline-hide)
(delete-overlay(ac-inline-overlay))
(setqac-inlinenil)))
(defunac-inline-hide()
"No documentation."
(when(ac-inline-live-p)
(let((overlay(ac-inline-overlay))
(buffer-undo-listt))
@ -916,6 +953,7 @@ You can not use it in source definition like (prefix . `NAME')."
@@ -916,6 +953,7 @@ You can not use it in source definition like (prefix . `NAME')."
@ -927,6 +965,7 @@ You can not use it in source definition like (prefix . `NAME')."
@@ -927,6 +965,7 @@ You can not use it in source definition like (prefix . `NAME')."
(ac-inline-delete)))
(defunac-put-prefix-overlay()
"No documentation."
(unlessac-prefix-overlay
(let(newline)
;; 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')."
@@ -940,6 +979,7 @@ You can not use it in source definition like (prefix . `NAME')."
(overlay-putac-prefix-overlay'newlinenewline))))
(defunac-remove-prefix-overlay()
"No documentation."
(whenac-prefix-overlay
(when(overlay-getac-prefix-overlay'newline)
;; Remove inserted newline
@ -950,6 +990,7 @@ You can not use it in source definition like (prefix . `NAME')."
@@ -950,6 +990,7 @@ You can not use it in source definition like (prefix . `NAME')."
(delete-overlayac-prefix-overlay)))
(defunac-activate-completing-map()
"No documentation."
(if(andac-show-menuac-use-menu-map)
(set-keymap-parentac-current-mapac-menu-map))
(when(andac-use-overriding-local-map
@ -959,6 +1000,7 @@ You can not use it in source definition like (prefix . `NAME')."
@@ -959,6 +1000,7 @@ You can not use it in source definition like (prefix . `NAME')."
@ -967,10 +1009,12 @@ You can not use it in source definition like (prefix . `NAME')."
@@ -967,10 +1009,12 @@ You can not use it in source definition like (prefix . `NAME')."
@ -1026,6 +1070,7 @@ You can not use it in source definition like (prefix . `NAME')."
@@ -1026,6 +1070,7 @@ You can not use it in source definition like (prefix . `NAME')."
(evalfunction))))))
(defunac-candidates-1(source)
"No documentation, SOURCE."
(let*((do-cache(assq'cachesource))
(function(assoc-default'candidatessource))
(action(assoc-default'actionsource))
@ -1069,6 +1114,7 @@ You can not use it in source definition like (prefix . `NAME')."
@@ -1069,6 +1114,7 @@ You can not use it in source definition like (prefix . `NAME')."
candidates))
(defunac-delete-duplicated-candidates(candidates)
"No documentation, CANDIDATES."
(cl-delete-duplicates
candidates
:test(lambda(xy)
@ -1080,6 +1126,7 @@ You can not use it in source definition like (prefix . `NAME')."
@@ -1080,6 +1126,7 @@ You can not use it in source definition like (prefix . `NAME')."
:from-endt))
(defunac-reduce-candidates(candidates)
"No documentation, CANDIDATES."
;; Call `ac-delete-duplicated-candidates' on first portion of
;; candidate list for speed.
(let((size20))
@ -1127,7 +1174,9 @@ You can not use it in source definition like (prefix . `NAME')."
@@ -1127,7 +1174,9 @@ You can not use it in source definition like (prefix . `NAME')."
candidates))))
(defunac-update-candidates(cursorscroll-top)
"Update candidates of menu to `ac-candidates' and redraw it."
"Update candidates of menu to 'ac-candidates' and redraw it.
TODOMissingdocumentationCURSOR,SCROLL-TOP."
(setf(popup-cursorac-menu)cursor
(popup-scroll-topac-menu)scroll-top)
(setqac-dwim-enable(=(lengthac-candidates)1))
@ -1147,7 +1196,7 @@ You can not use it in source definition like (prefix . `NAME')."
@@ -1147,7 +1196,7 @@ You can not use it in source definition like (prefix . `NAME')."
(popup-drawac-menu))))
(defunac-reposition()
"Force to redraw candidate menu with current `ac-candidates'."
"Force to redraw candidate menu with current 'ac-candidates'."
(let((cursor(popup-cursorac-menu))
(scroll-top(popup-scroll-topac-menu))
(height(popup-heightac-menu)))
@ -1207,11 +1256,10 @@ You can not use it in source definition like (prefix . `NAME')."
@@ -1207,11 +1256,10 @@ You can not use it in source definition like (prefix . `NAME')."
(ac-cleanup))
(defunac-extend-region-to-delete(string)
"Determine the boundary of the region to delete before
@ -1257,7 +1305,7 @@ that have been made before in this function. When `buffer-undo-list' is
@@ -1257,7 +1305,7 @@ that have been made before in this function. When `buffer-undo-list' is
(setqac-prefixstring)))
(defunac-set-trigger-key(key)
"Set `ac-trigger-key' to `KEY'. It is recommemded to use this function instead of calling `setq'."
"Set `ac-trigger-key' to `KEY'. It is recommemded to use this function instead of calling `setq'."
@ -1268,15 +1316,18 @@ that have been made before in this function. When `buffer-undo-list' is
@@ -1268,15 +1316,18 @@ that have been made before in this function. When `buffer-undo-list' is
@ -1299,6 +1350,7 @@ that have been made before in this function. When `buffer-undo-list' is
@@ -1299,6 +1350,7 @@ that have been made before in this function. When `buffer-undo-list' is
t))
(defunac-update-greedy(&optionalforce)
"No documentation, FORCE."
(let(result)
(while(when(and(setqresult(ac-updateforce))
(nullac-candidates))
@ -1308,16 +1360,19 @@ that have been made before in this function. When `buffer-undo-list' is
@@ -1308,16 +1360,19 @@ that have been made before in this function. When `buffer-undo-list' is
@ -1325,34 +1380,41 @@ that have been made before in this function. When `buffer-undo-list' is
@@ -1325,34 +1380,41 @@ that have been made before in this function. When `buffer-undo-list' is
@ -1380,11 +1442,13 @@ that have been made before in this function. When `buffer-undo-list' is
@@ -1380,11 +1442,13 @@ that have been made before in this function. When `buffer-undo-list' is
t)))))
(defunac-quick-help-use-pos-tip-p()
"No documentation."
(andac-quick-help-prefer-pos-tip
window-system
(featurep'pos-tip)))
(defunac-quick-help(&optionalforce)
"No documentation, FORCE."
(interactive)
;; TODO don't use FORCE
(when(and(orforce
@ -1395,24 +1459,25 @@ that have been made before in this function. When `buffer-undo-list' is
@@ -1395,24 +1459,25 @@ that have been made before in this function. When `buffer-undo-list' is
(nullthis-command))
(ac-menu-live-p)
(nullac-quick-help))
(setqac-quick-help
(funcall(if(ac-quick-help-use-pos-tip-p)
'ac-pos-tip-show-quick-help
'popup-menu-show-quick-help)
ac-menunil
:pointac-point
:heightac-quick-help-height
:nowaitt))))
(setqac-quick-help
(funcall(if(ac-quick-help-use-pos-tip-p)
'ac-pos-tip-show-quick-help
'popup-menu-show-quick-help)
ac-menunil
:pointac-point
:heightac-quick-help-height
:nowaitt))))
(defunac-remove-quick-help()
"No documentation."
(when(ac-quick-help-use-pos-tip-p)
(with-no-warnings
(pos-tip-hide)))
(with-no-warnings(pos-tip-hide)))
(whenac-quick-help
(popup-deleteac-quick-help)
(setqac-quick-helpnil)))
(defunac-last-quick-help()
"No documentation."
(interactive)
(when(andac-last-completion
(eq(marker-buffer(carac-last-completion))
@ -1429,6 +1494,7 @@ that have been made before in this function. When `buffer-undo-list' is
@@ -1429,6 +1494,7 @@ that have been made before in this function. When `buffer-undo-list' is
@ -1449,9 +1515,11 @@ that have been made before in this function. When `buffer-undo-list' is
@@ -1449,9 +1515,11 @@ that have been made before in this function. When `buffer-undo-list' is
;;;; Auto completion isearch
(defunac-isearch-callback(list)
"No documentation, LIST."
(setqac-dwim-enable(eq(lengthlist)1)))
(defunac-isearch()
"No documentation."
(interactive)
(when(ac-menu-live-p)
(ac-cancel-show-menu-timer)
@ -1471,6 +1539,7 @@ that have been made before in this function. When `buffer-undo-list' is
@@ -1471,6 +1539,7 @@ that have been made before in this function. When `buffer-undo-list' is
@ -1553,10 +1622,10 @@ If given a prefix argument, select the previous candidate."
@@ -1553,10 +1622,10 @@ If given a prefix argument, select the previous candidate."
(setqstring(ac-selected-candidate)))
(ac-expand-stringstring
(or(eqlast-command'ac-expand)
(eqlast-command'ac-expand-previous)))
(eqlast-command'ac-expand-previous)))
;; Do reposition if menu at long line
(if(and(>(popup-directionac-menu)0)
(ac-menu-at-wrapper-line-p))
(ac-menu-at-wrapper-line-p))
(ac-reposition))
(setqac-show-menut)
string))))
@ -1579,6 +1648,7 @@ If given a prefix argument, select the previous candidate."
@@ -1579,6 +1648,7 @@ If given a prefix argument, select the previous candidate."
@ -1654,19 +1724,23 @@ If given a prefix argument, select the previous candidate."
@@ -1654,19 +1724,23 @@ If given a prefix argument, select the previous candidate."
(interactive))
(defunac-mouse-1(event)
"No documentation, EVENT."
(interactive"e")
(popup-awhen(popup-menu-item-of-mouse-eventevent)
(ac-complete-1it)))
(defunac-mouse-4(event)
"No documentation, EVENT."
(interactive"e")
(ac-previous))
(defunac-mouse-5(event)
"No documentation, EVENT."
(interactive"e")
(ac-next))
(defunac-trigger-key-command(&optionalforce)
"No documentation, FORCE."
(interactive"P")
(let(started)
(when(orforce(ac-trigger-command-plast-command))
@ -1684,24 +1758,30 @@ If given a prefix argument, select the previous candidate."
@@ -1684,24 +1758,30 @@ If given a prefix argument, select the previous candidate."
@ -1712,6 +1792,7 @@ If given a prefix argument, select the previous candidate."
@@ -1712,6 +1792,7 @@ If given a prefix argument, select the previous candidate."
@ -1723,12 +1804,14 @@ If given a prefix argument, select the previous candidate."
@@ -1723,12 +1804,14 @@ If given a prefix argument, select the previous candidate."
@ -1762,6 +1845,7 @@ If given a prefix argument, select the previous candidate."
@@ -1762,6 +1845,7 @@ If given a prefix argument, select the previous candidate."
(error(ac-errorvar))))
(defunac-handle-post-command()
"No documentation."
(condition-casevar
(when(andac-triggered
(orac-auto-start
@ -1777,6 +1861,7 @@ If given a prefix argument, select the previous candidate."
@@ -1777,6 +1861,7 @@ If given a prefix argument, select the previous candidate."
@ -1798,6 +1883,7 @@ If given a prefix argument, select the previous candidate."
@@ -1798,6 +1883,7 @@ If given a prefix argument, select the previous candidate."
@ -1581,7 +1581,7 @@ and when that result is non-nil, through the next form, etc."
@@ -1581,7 +1581,7 @@ and when that result is non-nil, through the next form, etc."
,@more))))
(defmacro-some-->(x&optionalform&restmore)
"When expr in non-nil, thread it through the first form (via `-->'),
"When expr is non-nil, thread it through the first form (via `-->'),
@ -125,7 +125,8 @@ otherwise add at the end of the list."
@@ -125,7 +125,8 @@ otherwise add at the end of the list."
(setlist-var(append(symbol-valuelist-var)
(list(conskeyval)))))
(ifelements
(apply#'evil-add-to-alistlist-varelements)
(with-no-warnings
(apply#'evil-add-to-alistlist-varelements))
(symbol-valuelist-var))))
(make-obsolete'evil-add-to-alist
@ -1529,7 +1530,7 @@ last successful match (that caused COUNT to reach zero)."
@@ -1529,7 +1530,7 @@ last successful match (that caused COUNT to reach zero)."
@ -1563,7 +1564,7 @@ last successful match (that caused COUNT to reach zero)."
@@ -1563,7 +1564,7 @@ last successful match (that caused COUNT to reach zero)."