katspaugh · May 6, 2013 07:18
diff --git a/backtrace.el b/backtrace.el
 Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p \.\.\.)
  *(\.\.\. 5.602796406145941e-09)
  (+ score (* (aref stat p) r))
  (setq score (+ score (* (aref stat p) r)))
  (while (< p --cl-var--) (setq x (max (- b) (min b (- d (abs (- prefix p)))))) (setq r (/ 1.0 (1+ (exp (* (- a) x))))) (setq score (+ score (* (aref stat p) r))) (setq p (+ p 1)))
  (let* ((p 0) (--cl-var-- (length string)) (a 5) (b (/ 700.0 a)) (d (/ 6.0 a)) (x nil) (r nil)) (while (< p --cl-var--) (setq x (max (- b) (min b (- d (abs (- prefix p)))))) (setq r (/ 1.0 (1+ (exp (* (- a) x))))) (setq score (+ score (* (aref stat p) r))) (setq p (+ p 1))) nil)
  (progn (let* ((p 0) (--cl-var-- (length string)) (a 5) (b (/ 700.0 a)) (d (/ 6.0 a)) (x nil) (r nil)) (while (< p --cl-var--) (setq x (max (- b) (min b (- d (abs ...))))) (setq r (/ 1.0 (1+ (exp (* ... x))))) (setq score (+ score (* (aref stat p) r))) (setq p (+ p 1))) nil))
  (progn (progn (let* ((p 0) (--cl-var-- (length string)) (a 5) (b (/ 700.0 a)) (d (/ 6.0 a)) (x nil) (r nil)) (while (< p --cl-var--) (setq x (max (- b) (min b (- d ...)))) (setq r (/ 1.0 (1+ (exp ...)))) (setq score (+ score (* (aref stat p) r))) (setq p (+ p 1))) nil)))
  (if stat (progn (progn (let* ((p 0) (--cl-var-- (length string)) (a 5) (b (/ 700.0 a)) (d (/ 6.0 a)) (x nil) (r nil)) (while (< p --cl-var--) (setq x (max (- b) (min b ...))) (setq r (/ 1.0 (1+ ...))) (setq score (+ score (* ... r))) (setq p (+ p 1))) nil))))
  (let ((stat (ac-comphist-get db string)) (score 0.0)) (if stat (progn (progn (let* ((p 0) (--cl-var-- (length string)) (a 5) (b (/ 700.0 a)) (d (/ 6.0 a)) (x nil) (r nil)) (while (< p --cl-var--) (setq x (max ... ...)) (setq r (/ 1.0 ...)) (setq score (+ score ...)) (setq p (+ p 1))) nil)))) (setq score (+ score (max 0.0 (- 0.3 (/ (- (length string) prefix) 100.0))))) (if cache nil (setq cache (make-vector (length string) nil)) (puthash string cache (ac-comphist-cache db))) (aset cache prefix score) score)
  (or (and cache (aref cache prefix)) (let ((stat (ac-comphist-get db string)) (score 0.0)) (if stat (progn (progn (let* ((p 0) (--cl-var-- ...) (a 5) (b ...) (d ...) (x nil) (r nil)) (while (< p --cl-var--) (setq x ...) (setq r ...) (setq score ...) (setq p ...)) nil)))) (setq score (+ score (max 0.0 (- 0.3 (/ (- ... prefix) 100.0))))) (if cache nil (setq cache (make-vector (length string) nil)) (puthash string cache (ac-comphist-cache db))) (aset cache prefix score) score))
  (let ((cache (gethash string (ac-comphist-cache db)))) (or (and cache (aref cache prefix)) (let ((stat (ac-comphist-get db string)) (score 0.0)) (if stat (progn (progn (let* (... ... ... ... ... ... ...) (while ... ... ... ... ...) nil)))) (setq score (+ score (max 0.0 (- 0.3 (/ ... 100.0))))) (if cache nil (setq cache (make-vector (length string) nil)) (puthash string cache (ac-comphist-cache db))) (aset cache prefix score) score)))
  (if (<= 0 prefix) (let ((cache (gethash string (ac-comphist-cache db)))) (or (and cache (aref cache prefix)) (let ((stat (ac-comphist-get db string)) (score 0.0)) (if stat (progn (progn (let* ... ... nil)))) (setq score (+ score (max 0.0 (- 0.3 ...)))) (if cache nil (setq cache (make-vector (length string) nil)) (puthash string cache (ac-comphist-cache db))) (aset cache prefix score) score))) 0.0)
  ac-comphist-score((#s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ("PI" [0 1] "Math" [4 0 0 1] "document" [0 0 0 0 0 0 0 2] "transforms" [0 0 1 0 0 0 0 0 0 0] "when" [1 0 0 0] "js-mode" [0 0 0 1 0 0 0] "require" [0 0 0 0 0 0 1] "provide" [0 0 0 0 1 0 0] "ac-init" [0 0 2 0 0 0 0] "powerline-default" [0 0 0 0 0 0 0 0 0 0 0 0 \.\.\.] "save-excursion" [0 0 0 0 0 0 0 0 0 0 0 0 \.\.\.] "renderTimeline" [0 0 0 0 0 0 0 0 0 0 0 0 \.\.\.] "set-mouse-" [0 0 0 0 0 0 0 0 0 1] "overflow" [1 0 0 0 0 0 1 1] "hidden" [1 0 2 0 0 3] "auto" [3 0 0 0] "margin-left" [0 0 0 0 0 0 0 0 1 0 0] "nil" [1 0 0] "displayTree" [0 0 0 0 0 0 0 0 1 0 0] ...)) #s(hash-table size 65 test equal weakness key-and-value rehash-size 1.5 rehash-threshold 0.8 data ( "renderTabs" [nil nil nil nil nil nil nil 0.27 nil nil] ...))) "renderTimeline" 7)
  (let ((score (ac-comphist-score db string prefix))) (setq total (+ total score)) (cons string score))
  (lambda (string) (let ((score (ac-comphist-score db string prefix))) (setq total (+ total score)) (cons string score)))("renderTimeline")
  mapcar((lambda (string) (let ((score (ac-comphist-score db string prefix))) (setq total (+ total score)) (cons string score))) ("renderTabs" "renderTimeline"))
  (sort (mapcar (function (lambda (string) (let ((score (ac-comphist-score db string prefix))) (setq total (+ total score)) (cons string score)))) collection) (function (lambda (a b) (< (cdr b) (cdr a)))))
  (mapcar (function (lambda (a) (if (and cur threshold) (progn (if (>= cur (* total threshold)) (setq cur nil) (setq n (1+ n)) (setq cur (+ cur ...))))) (car a))) (sort (mapcar (function (lambda (string) (let ((score ...)) (setq total (+ total score)) (cons string score)))) collection) (function (lambda (a b) (< (cdr b) (cdr a))))))
  (setq result (mapcar (function (lambda (a) (if (and cur threshold) (progn (if (>= cur ...) (setq cur nil) (setq n ...) (setq cur ...)))) (car a))) (sort (mapcar (function (lambda (string) (let (...) (setq total ...) (cons string score)))) collection) (function (lambda (a b) (< (cdr b) (cdr a)))))))
  (let (result (n 0) (total 0) (cur 0)) (setq result (mapcar (function (lambda (a) (if (and cur threshold) (progn (if ... ... ... ...))) (car a))) (sort (mapcar (function (lambda (string) (let ... ... ...))) collection) (function (lambda (a b) (< (cdr b) (cdr a))))))) (if threshold (cons n result) result))
  ac-comphist-sort((#s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ("PI" [0 1] "Math" [4 0 0 1] "document" [0 0 0 0 0 0 0 2] "transforms" [0 0 1 0 0 0 0 0 0 0] "when" [1 0 0 0] "js-mode" [0 0 0 1 0 0 0] "require" [0 0 0 0 0 0 1] "provide" [0 0 0 0 1 0 0] "ac-init" [0 0 2 0 0 0 0] "powerline-default" [0 0 0 0 0 0 0 0 0 0 0 0 \.\.\.] "save-excursion" [0 0 0 0 0 0 0 0 0 0 0 0 \.\.\.] "renderTimeline" [0 0 0 0 0 0 0 0 0 0 0 0 \.\.\.] "set-mouse-" [0 0 0 0 0 0 0 0 0 1] "overflow" [1 0 0 0 0 0 1 1] "hidden" [1 0 2 0 0 3] "auto" [3 0 0 0] "margin-left" [0 0 0 0 0 0 0 0 1 0 0] "nil" [1 0 0] "displayTree" [0 0 0 0 0 0 0 0 1 0 0] ...)) #s(hash-table size 65 test equal weakness key-and-value rehash-size 1.5 rehash-threshold 0.8 data ( "renderTabs" [nil nil nil nil nil nil nil 0.27 nil nil] ...))) ("renderTabs" "renderTimeline") 7 0.7)
  (let* ((pair (ac-comphist-sort ac-comphist candidates prefix-len ac-comphist-threshold)) (n (car pair)) (result (cdr pair)) (cons (if (> n 0) (nthcdr (1- n) result))) (cdr (cdr cons))) (if cons (setcdr cons nil)) (setq ac-common-part (try-completion ac-prefix result)) (setq ac-whole-common-part (try-completion ac-prefix candidates)) (if cons (setcdr cons cdr)) result)
  (if ac-show-menu (let* ((pair (ac-comphist-sort ac-comphist candidates prefix-len ac-comphist-threshold)) (n (car pair)) (result (cdr pair)) (cons (if (> n 0) (nthcdr (1- n) result))) (cdr (cdr cons))) (if cons (setcdr cons nil)) (setq ac-common-part (try-completion ac-prefix result)) (setq ac-whole-common-part (try-completion ac-prefix candidates)) (if cons (setcdr cons cdr)) result) (setq candidates (ac-comphist-sort ac-comphist candidates prefix-len)) (setq ac-common-part (if candidates (popup-x-to-string (car candidates)))) (setq ac-whole-common-part (try-completion ac-prefix candidates)) candidates)
  (if (and ac-use-comphist ac-comphist) (if ac-show-menu (let* ((pair (ac-comphist-sort ac-comphist candidates prefix-len ac-comphist-threshold)) (n (car pair)) (result (cdr pair)) (cons (if (> n 0) (nthcdr (1- n) result))) (cdr (cdr cons))) (if cons (setcdr cons nil)) (setq ac-common-part (try-completion ac-prefix result)) (setq ac-whole-common-part (try-completion ac-prefix candidates)) (if cons (setcdr cons cdr)) result) (setq candidates (ac-comphist-sort ac-comphist candidates prefix-len)) (setq ac-common-part (if candidates (popup-x-to-string (car candidates)))) (setq ac-whole-common-part (try-completion ac-prefix candidates)) candidates) (setq ac-common-part (try-completion ac-prefix candidates)) (setq ac-whole-common-part ac-common-part) candidates)
  (progn (delete-dups candidates) (if (and ac-use-comphist ac-comphist) (if ac-show-menu (let* ((pair (ac-comphist-sort ac-comphist candidates prefix-len ac-comphist-threshold)) (n (car pair)) (result (cdr pair)) (cons (if (> n 0) (nthcdr ... result))) (cdr (cdr cons))) (if cons (setcdr cons nil)) (setq ac-common-part (try-completion ac-prefix result)) (setq ac-whole-common-part (try-completion ac-prefix candidates)) (if cons (setcdr cons cdr)) result) (setq candidates (ac-comphist-sort ac-comphist candidates prefix-len)) (setq ac-common-part (if candidates (popup-x-to-string (car candidates)))) (setq ac-whole-common-part (try-completion ac-prefix candidates)) candidates) (setq ac-common-part (try-completion ac-prefix candidates)) (setq ac-whole-common-part ac-common-part) candidates))
  (let* ((completion-ignore-case (or (eq ac-ignore-case t) (and (eq ac-ignore-case (quote smart)) (let ((case-fold-search nil)) (not (string-match "[[:upper:]]" ac-prefix)))))) (case-fold-search completion-ignore-case) (prefix-len (length ac-prefix)) (--cl-var-- ac-current-sources) (source nil) (candidates nil)) (while (consp --cl-var--) (setq source (car --cl-var--)) (setq candidates (append candidates (ac-candidates-1 source))) (setq --cl-var-- (cdr --cl-var--))) (progn (delete-dups candidates) (if (and ac-use-comphist ac-comphist) (if ac-show-menu (let* ((pair (ac-comphist-sort ac-comphist candidates prefix-len ac-comphist-threshold)) (n (car pair)) (result (cdr pair)) (cons (if ... ...)) (cdr (cdr cons))) (if cons (setcdr cons nil)) (setq ac-common-part (try-completion ac-prefix result)) (setq ac-whole-common-part (try-completion ac-prefix candidates)) (if cons (setcdr cons cdr)) result) (setq candidates (ac-comphist-sort ac-comphist candidates prefix-len)) (setq ac-common-part (if candidates (popup-x-to-string (car candidates)))) (setq ac-whole-common-part (try-completion ac-prefix candidates)) candidates) (setq ac-common-part (try-completion ac-prefix candidates)) (setq ac-whole-common-part ac-common-part) candidates)))
  (progn (let* ((completion-ignore-case (or (eq ac-ignore-case t) (and (eq ac-ignore-case (quote smart)) (let (...) (not ...))))) (case-fold-search completion-ignore-case) (prefix-len (length ac-prefix)) (--cl-var-- ac-current-sources) (source nil) (candidates nil)) (while (consp --cl-var--) (setq source (car --cl-var--)) (setq candidates (append candidates (ac-candidates-1 source))) (setq --cl-var-- (cdr --cl-var--))) (progn (delete-dups candidates) (if (and ac-use-comphist ac-comphist) (if ac-show-menu (let* ((pair ...) (n ...) (result ...) (cons ...) (cdr ...)) (if cons (setcdr cons nil)) (setq ac-common-part (try-completion ac-prefix result)) (setq ac-whole-common-part (try-completion ac-prefix candidates)) (if cons (setcdr cons cdr)) result) (setq candidates (ac-comphist-sort ac-comphist candidates prefix-len)) (setq ac-common-part (if candidates (popup-x-to-string ...))) (setq ac-whole-common-part (try-completion ac-prefix candidates)) candidates) (setq ac-common-part (try-completion ac-prefix candidates)) (setq ac-whole-common-part ac-common-part) candidates))))
  ac-candidates()
  (setq ac-candidates (ac-candidates))
  (progn (ac-put-prefix-overlay) (setq ac-candidates (ac-candidates)) (let ((preferred-width (popup-preferred-width ac-candidates))) (if (or (null ac-menu) (>= (progn (or (and ... ... ...) (error "%s accessing a non-%s" ... ...)) (aref ac-menu 4)) preferred-width) (<= (progn (or (and ... ... ...) (error "%s accessing a non-%s" ... ...)) (aref ac-menu 4)) (- preferred-width 10)) (and (> (progn (or ... ...) (aref ac-menu 7)) 0) (ac-menu-at-wrapper-line-p))) (progn (ac-inline-hide) (ac-menu-delete) (ac-menu-create ac-point preferred-width ac-menu-height)))) (ac-update-candidates 0 0) t)
  (if (and auto-complete-mode ac-prefix (or ac-triggered force) (not isearch-mode)) (progn (ac-put-prefix-overlay) (setq ac-candidates (ac-candidates)) (let ((preferred-width (popup-preferred-width ac-candidates))) (if (or (null ac-menu) (>= (progn (or ... ...) (aref ac-menu 4)) preferred-width) (<= (progn (or ... ...) (aref ac-menu 4)) (- preferred-width 10)) (and (> (progn ... ...) 0) (ac-menu-at-wrapper-line-p))) (progn (ac-inline-hide) (ac-menu-delete) (ac-menu-create ac-point preferred-width ac-menu-height)))) (ac-update-candidates 0 0) t))
  ac-update(t)
  (setq result (ac-update force))
  (and (setq result (ac-update force)) (null ac-candidates))
  (if (and (setq result (ac-update force)) (null ac-candidates)) (progn (add-to-list (quote ac-ignoring-prefix-def) ac-current-prefix-def) (ac-start :force-init t) ac-current-prefix-def))
  (while (if (and (setq result (ac-update force)) (null ac-candidates)) (progn (add-to-list (quote ac-ignoring-prefix-def) ac-current-prefix-def) (ac-start :force-init t) ac-current-prefix-def)))
  (let (result) (while (if (and (setq result (ac-update force)) (null ac-candidates)) (progn (add-to-list (quote ac-ignoring-prefix-def) ac-current-prefix-def) (ac-start :force-init t) ac-current-prefix-def))) result)
  ac-update-greedy(t)
  (if (ac-update-greedy t) (progn (if (ac-inline-live-p) (ac-inline-hide)) (if (and (or (and (not ac-expand-on-auto-complete) (> (length ac-candidates) 1) (not menu-live)) (not (let (...) (ac-expand-common)))) ac-use-fuzzy (null ac-candidates)) (progn (ac-fuzzy-complete)))))
  (let ((menu-live (ac-menu-live-p)) (inline-live (ac-inline-live-p)) started) (ac-abort) (let ((ac-sources (or sources ac-sources))) (if (or ac-show-menu-immediately-on-auto-complete inline-live) (setq ac-show-menu t)) (setq started (ac-start :triggered triggered))) (if (ac-update-greedy t) (progn (if (ac-inline-live-p) (ac-inline-hide)) (if (and (or (and (not ac-expand-on-auto-complete) (> ... 1) (not menu-live)) (not (let ... ...))) ac-use-fuzzy (null ac-candidates)) (progn (ac-fuzzy-complete))))) started)
  (progn (let ((menu-live (ac-menu-live-p)) (inline-live (ac-inline-live-p)) started) (ac-abort) (let ((ac-sources (or sources ac-sources))) (if (or ac-show-menu-immediately-on-auto-complete inline-live) (setq ac-show-menu t)) (setq started (ac-start :triggered triggered))) (if (ac-update-greedy t) (progn (if (ac-inline-live-p) (ac-inline-hide)) (if (and (or (and ... ... ...) (not ...)) ac-use-fuzzy (null ac-candidates)) (progn (ac-fuzzy-complete))))) started))
  (let* ((sources (car (cdr (memq (quote :sources) --cl-rest--)))) (triggered (car (cdr (or (memq (quote :triggered) --cl-rest--) (quote (nil command))))))) (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond ((memq (car --cl-keys--) (quote (:sources :triggered :allow-other-keys))) (setq --cl-keys-- (cdr (cdr --cl-keys--)))) ((car (cdr (memq ... --cl-rest--))) (setq --cl-keys-- nil)) (t (error "Keyword argument %s not one of (:sources :triggered)" (car --cl-keys--)))))) (progn (let ((menu-live (ac-menu-live-p)) (inline-live (ac-inline-live-p)) started) (ac-abort) (let ((ac-sources (or sources ac-sources))) (if (or ac-show-menu-immediately-on-auto-complete inline-live) (setq ac-show-menu t)) (setq started (ac-start :triggered triggered))) (if (ac-update-greedy t) (progn (if (ac-inline-live-p) (ac-inline-hide)) (if (and (or ... ...) ac-use-fuzzy (null ac-candidates)) (progn (ac-fuzzy-complete))))) started)))
  auto-complete-1(:sources nil)
  auto-complete()
  call-interactively(auto-complete record nil)
  command-execute(auto-complete record)
  execute-extended-command(nil "auto-complete")
  call-interactively(execute-extended-command nil nil)
	Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p \.\.\.)
	*(\.\.\. 5.602796406145941e-09)
	(+ score (* (aref stat p) r))
	(setq score (+ score (* (aref stat p) r)))
	(while (< p --cl-var--) (setq x (max (- b) (min b (- d (abs (- prefix p)))))) (setq r (/ 1.0 (1+ (exp (* (- a) x))))) (setq score (+ score (* (aref stat p) r))) (setq p (+ p 1)))
	(let* ((p 0) (--cl-var-- (length string)) (a 5) (b (/ 700.0 a)) (d (/ 6.0 a)) (x nil) (r nil)) (while (< p --cl-var--) (setq x (max (- b) (min b (- d (abs (- prefix p)))))) (setq r (/ 1.0 (1+ (exp (* (- a) x))))) (setq score (+ score (* (aref stat p) r))) (setq p (+ p 1))) nil)
	(progn (let* ((p 0) (--cl-var-- (length string)) (a 5) (b (/ 700.0 a)) (d (/ 6.0 a)) (x nil) (r nil)) (while (< p --cl-var--) (setq x (max (- b) (min b (- d (abs ...))))) (setq r (/ 1.0 (1+ (exp (* ... x))))) (setq score (+ score (* (aref stat p) r))) (setq p (+ p 1))) nil))
	(progn (progn (let* ((p 0) (--cl-var-- (length string)) (a 5) (b (/ 700.0 a)) (d (/ 6.0 a)) (x nil) (r nil)) (while (< p --cl-var--) (setq x (max (- b) (min b (- d ...)))) (setq r (/ 1.0 (1+ (exp ...)))) (setq score (+ score (* (aref stat p) r))) (setq p (+ p 1))) nil)))
	(if stat (progn (progn (let* ((p 0) (--cl-var-- (length string)) (a 5) (b (/ 700.0 a)) (d (/ 6.0 a)) (x nil) (r nil)) (while (< p --cl-var--) (setq x (max (- b) (min b ...))) (setq r (/ 1.0 (1+ ...))) (setq score (+ score (* ... r))) (setq p (+ p 1))) nil))))
	(let ((stat (ac-comphist-get db string)) (score 0.0)) (if stat (progn (progn (let* ((p 0) (--cl-var-- (length string)) (a 5) (b (/ 700.0 a)) (d (/ 6.0 a)) (x nil) (r nil)) (while (< p --cl-var--) (setq x (max ... ...)) (setq r (/ 1.0 ...)) (setq score (+ score ...)) (setq p (+ p 1))) nil)))) (setq score (+ score (max 0.0 (- 0.3 (/ (- (length string) prefix) 100.0))))) (if cache nil (setq cache (make-vector (length string) nil)) (puthash string cache (ac-comphist-cache db))) (aset cache prefix score) score)
	(or (and cache (aref cache prefix)) (let ((stat (ac-comphist-get db string)) (score 0.0)) (if stat (progn (progn (let* ((p 0) (--cl-var-- ...) (a 5) (b ...) (d ...) (x nil) (r nil)) (while (< p --cl-var--) (setq x ...) (setq r ...) (setq score ...) (setq p ...)) nil)))) (setq score (+ score (max 0.0 (- 0.3 (/ (- ... prefix) 100.0))))) (if cache nil (setq cache (make-vector (length string) nil)) (puthash string cache (ac-comphist-cache db))) (aset cache prefix score) score))
	(let ((cache (gethash string (ac-comphist-cache db)))) (or (and cache (aref cache prefix)) (let ((stat (ac-comphist-get db string)) (score 0.0)) (if stat (progn (progn (let* (... ... ... ... ... ... ...) (while ... ... ... ... ...) nil)))) (setq score (+ score (max 0.0 (- 0.3 (/ ... 100.0))))) (if cache nil (setq cache (make-vector (length string) nil)) (puthash string cache (ac-comphist-cache db))) (aset cache prefix score) score)))
	(if (<= 0 prefix) (let ((cache (gethash string (ac-comphist-cache db)))) (or (and cache (aref cache prefix)) (let ((stat (ac-comphist-get db string)) (score 0.0)) (if stat (progn (progn (let* ... ... nil)))) (setq score (+ score (max 0.0 (- 0.3 ...)))) (if cache nil (setq cache (make-vector (length string) nil)) (puthash string cache (ac-comphist-cache db))) (aset cache prefix score) score))) 0.0)
	ac-comphist-score((#s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ("PI" [0 1] "Math" [4 0 0 1] "document" [0 0 0 0 0 0 0 2] "transforms" [0 0 1 0 0 0 0 0 0 0] "when" [1 0 0 0] "js-mode" [0 0 0 1 0 0 0] "require" [0 0 0 0 0 0 1] "provide" [0 0 0 0 1 0 0] "ac-init" [0 0 2 0 0 0 0] "powerline-default" [0 0 0 0 0 0 0 0 0 0 0 0 \.\.\.] "save-excursion" [0 0 0 0 0 0 0 0 0 0 0 0 \.\.\.] "renderTimeline" [0 0 0 0 0 0 0 0 0 0 0 0 \.\.\.] "set-mouse-" [0 0 0 0 0 0 0 0 0 1] "overflow" [1 0 0 0 0 0 1 1] "hidden" [1 0 2 0 0 3] "auto" [3 0 0 0] "margin-left" [0 0 0 0 0 0 0 0 1 0 0] "nil" [1 0 0] "displayTree" [0 0 0 0 0 0 0 0 1 0 0] ...)) #s(hash-table size 65 test equal weakness key-and-value rehash-size 1.5 rehash-threshold 0.8 data ( "renderTabs" [nil nil nil nil nil nil nil 0.27 nil nil] ...))) "renderTimeline" 7)
	(let ((score (ac-comphist-score db string prefix))) (setq total (+ total score)) (cons string score))
	(lambda (string) (let ((score (ac-comphist-score db string prefix))) (setq total (+ total score)) (cons string score)))("renderTimeline")
	mapcar((lambda (string) (let ((score (ac-comphist-score db string prefix))) (setq total (+ total score)) (cons string score))) ("renderTabs" "renderTimeline"))
	(sort (mapcar (function (lambda (string) (let ((score (ac-comphist-score db string prefix))) (setq total (+ total score)) (cons string score)))) collection) (function (lambda (a b) (< (cdr b) (cdr a)))))
	(mapcar (function (lambda (a) (if (and cur threshold) (progn (if (>= cur (* total threshold)) (setq cur nil) (setq n (1+ n)) (setq cur (+ cur ...))))) (car a))) (sort (mapcar (function (lambda (string) (let ((score ...)) (setq total (+ total score)) (cons string score)))) collection) (function (lambda (a b) (< (cdr b) (cdr a))))))
	(setq result (mapcar (function (lambda (a) (if (and cur threshold) (progn (if (>= cur ...) (setq cur nil) (setq n ...) (setq cur ...)))) (car a))) (sort (mapcar (function (lambda (string) (let (...) (setq total ...) (cons string score)))) collection) (function (lambda (a b) (< (cdr b) (cdr a)))))))
	(let (result (n 0) (total 0) (cur 0)) (setq result (mapcar (function (lambda (a) (if (and cur threshold) (progn (if ... ... ... ...))) (car a))) (sort (mapcar (function (lambda (string) (let ... ... ...))) collection) (function (lambda (a b) (< (cdr b) (cdr a))))))) (if threshold (cons n result) result))
	ac-comphist-sort((#s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8 data ("PI" [0 1] "Math" [4 0 0 1] "document" [0 0 0 0 0 0 0 2] "transforms" [0 0 1 0 0 0 0 0 0 0] "when" [1 0 0 0] "js-mode" [0 0 0 1 0 0 0] "require" [0 0 0 0 0 0 1] "provide" [0 0 0 0 1 0 0] "ac-init" [0 0 2 0 0 0 0] "powerline-default" [0 0 0 0 0 0 0 0 0 0 0 0 \.\.\.] "save-excursion" [0 0 0 0 0 0 0 0 0 0 0 0 \.\.\.] "renderTimeline" [0 0 0 0 0 0 0 0 0 0 0 0 \.\.\.] "set-mouse-" [0 0 0 0 0 0 0 0 0 1] "overflow" [1 0 0 0 0 0 1 1] "hidden" [1 0 2 0 0 3] "auto" [3 0 0 0] "margin-left" [0 0 0 0 0 0 0 0 1 0 0] "nil" [1 0 0] "displayTree" [0 0 0 0 0 0 0 0 1 0 0] ...)) #s(hash-table size 65 test equal weakness key-and-value rehash-size 1.5 rehash-threshold 0.8 data ( "renderTabs" [nil nil nil nil nil nil nil 0.27 nil nil] ...))) ("renderTabs" "renderTimeline") 7 0.7)
	(let* ((pair (ac-comphist-sort ac-comphist candidates prefix-len ac-comphist-threshold)) (n (car pair)) (result (cdr pair)) (cons (if (> n 0) (nthcdr (1- n) result))) (cdr (cdr cons))) (if cons (setcdr cons nil)) (setq ac-common-part (try-completion ac-prefix result)) (setq ac-whole-common-part (try-completion ac-prefix candidates)) (if cons (setcdr cons cdr)) result)
	(if ac-show-menu (let* ((pair (ac-comphist-sort ac-comphist candidates prefix-len ac-comphist-threshold)) (n (car pair)) (result (cdr pair)) (cons (if (> n 0) (nthcdr (1- n) result))) (cdr (cdr cons))) (if cons (setcdr cons nil)) (setq ac-common-part (try-completion ac-prefix result)) (setq ac-whole-common-part (try-completion ac-prefix candidates)) (if cons (setcdr cons cdr)) result) (setq candidates (ac-comphist-sort ac-comphist candidates prefix-len)) (setq ac-common-part (if candidates (popup-x-to-string (car candidates)))) (setq ac-whole-common-part (try-completion ac-prefix candidates)) candidates)
	(if (and ac-use-comphist ac-comphist) (if ac-show-menu (let* ((pair (ac-comphist-sort ac-comphist candidates prefix-len ac-comphist-threshold)) (n (car pair)) (result (cdr pair)) (cons (if (> n 0) (nthcdr (1- n) result))) (cdr (cdr cons))) (if cons (setcdr cons nil)) (setq ac-common-part (try-completion ac-prefix result)) (setq ac-whole-common-part (try-completion ac-prefix candidates)) (if cons (setcdr cons cdr)) result) (setq candidates (ac-comphist-sort ac-comphist candidates prefix-len)) (setq ac-common-part (if candidates (popup-x-to-string (car candidates)))) (setq ac-whole-common-part (try-completion ac-prefix candidates)) candidates) (setq ac-common-part (try-completion ac-prefix candidates)) (setq ac-whole-common-part ac-common-part) candidates)
	(progn (delete-dups candidates) (if (and ac-use-comphist ac-comphist) (if ac-show-menu (let* ((pair (ac-comphist-sort ac-comphist candidates prefix-len ac-comphist-threshold)) (n (car pair)) (result (cdr pair)) (cons (if (> n 0) (nthcdr ... result))) (cdr (cdr cons))) (if cons (setcdr cons nil)) (setq ac-common-part (try-completion ac-prefix result)) (setq ac-whole-common-part (try-completion ac-prefix candidates)) (if cons (setcdr cons cdr)) result) (setq candidates (ac-comphist-sort ac-comphist candidates prefix-len)) (setq ac-common-part (if candidates (popup-x-to-string (car candidates)))) (setq ac-whole-common-part (try-completion ac-prefix candidates)) candidates) (setq ac-common-part (try-completion ac-prefix candidates)) (setq ac-whole-common-part ac-common-part) candidates))
	(let* ((completion-ignore-case (or (eq ac-ignore-case t) (and (eq ac-ignore-case (quote smart)) (let ((case-fold-search nil)) (not (string-match "[[:upper:]]" ac-prefix)))))) (case-fold-search completion-ignore-case) (prefix-len (length ac-prefix)) (--cl-var-- ac-current-sources) (source nil) (candidates nil)) (while (consp --cl-var--) (setq source (car --cl-var--)) (setq candidates (append candidates (ac-candidates-1 source))) (setq --cl-var-- (cdr --cl-var--))) (progn (delete-dups candidates) (if (and ac-use-comphist ac-comphist) (if ac-show-menu (let* ((pair (ac-comphist-sort ac-comphist candidates prefix-len ac-comphist-threshold)) (n (car pair)) (result (cdr pair)) (cons (if ... ...)) (cdr (cdr cons))) (if cons (setcdr cons nil)) (setq ac-common-part (try-completion ac-prefix result)) (setq ac-whole-common-part (try-completion ac-prefix candidates)) (if cons (setcdr cons cdr)) result) (setq candidates (ac-comphist-sort ac-comphist candidates prefix-len)) (setq ac-common-part (if candidates (popup-x-to-string (car candidates)))) (setq ac-whole-common-part (try-completion ac-prefix candidates)) candidates) (setq ac-common-part (try-completion ac-prefix candidates)) (setq ac-whole-common-part ac-common-part) candidates)))
	(progn (let* ((completion-ignore-case (or (eq ac-ignore-case t) (and (eq ac-ignore-case (quote smart)) (let (...) (not ...))))) (case-fold-search completion-ignore-case) (prefix-len (length ac-prefix)) (--cl-var-- ac-current-sources) (source nil) (candidates nil)) (while (consp --cl-var--) (setq source (car --cl-var--)) (setq candidates (append candidates (ac-candidates-1 source))) (setq --cl-var-- (cdr --cl-var--))) (progn (delete-dups candidates) (if (and ac-use-comphist ac-comphist) (if ac-show-menu (let* ((pair ...) (n ...) (result ...) (cons ...) (cdr ...)) (if cons (setcdr cons nil)) (setq ac-common-part (try-completion ac-prefix result)) (setq ac-whole-common-part (try-completion ac-prefix candidates)) (if cons (setcdr cons cdr)) result) (setq candidates (ac-comphist-sort ac-comphist candidates prefix-len)) (setq ac-common-part (if candidates (popup-x-to-string ...))) (setq ac-whole-common-part (try-completion ac-prefix candidates)) candidates) (setq ac-common-part (try-completion ac-prefix candidates)) (setq ac-whole-common-part ac-common-part) candidates))))
	ac-candidates()
	(setq ac-candidates (ac-candidates))
	(progn (ac-put-prefix-overlay) (setq ac-candidates (ac-candidates)) (let ((preferred-width (popup-preferred-width ac-candidates))) (if (or (null ac-menu) (>= (progn (or (and ... ... ...) (error "%s accessing a non-%s" ... ...)) (aref ac-menu 4)) preferred-width) (<= (progn (or (and ... ... ...) (error "%s accessing a non-%s" ... ...)) (aref ac-menu 4)) (- preferred-width 10)) (and (> (progn (or ... ...) (aref ac-menu 7)) 0) (ac-menu-at-wrapper-line-p))) (progn (ac-inline-hide) (ac-menu-delete) (ac-menu-create ac-point preferred-width ac-menu-height)))) (ac-update-candidates 0 0) t)
	(if (and auto-complete-mode ac-prefix (or ac-triggered force) (not isearch-mode)) (progn (ac-put-prefix-overlay) (setq ac-candidates (ac-candidates)) (let ((preferred-width (popup-preferred-width ac-candidates))) (if (or (null ac-menu) (>= (progn (or ... ...) (aref ac-menu 4)) preferred-width) (<= (progn (or ... ...) (aref ac-menu 4)) (- preferred-width 10)) (and (> (progn ... ...) 0) (ac-menu-at-wrapper-line-p))) (progn (ac-inline-hide) (ac-menu-delete) (ac-menu-create ac-point preferred-width ac-menu-height)))) (ac-update-candidates 0 0) t))
	ac-update(t)
	(setq result (ac-update force))
	(and (setq result (ac-update force)) (null ac-candidates))
	(if (and (setq result (ac-update force)) (null ac-candidates)) (progn (add-to-list (quote ac-ignoring-prefix-def) ac-current-prefix-def) (ac-start :force-init t) ac-current-prefix-def))
	(while (if (and (setq result (ac-update force)) (null ac-candidates)) (progn (add-to-list (quote ac-ignoring-prefix-def) ac-current-prefix-def) (ac-start :force-init t) ac-current-prefix-def)))
	(let (result) (while (if (and (setq result (ac-update force)) (null ac-candidates)) (progn (add-to-list (quote ac-ignoring-prefix-def) ac-current-prefix-def) (ac-start :force-init t) ac-current-prefix-def))) result)
	ac-update-greedy(t)
	(if (ac-update-greedy t) (progn (if (ac-inline-live-p) (ac-inline-hide)) (if (and (or (and (not ac-expand-on-auto-complete) (> (length ac-candidates) 1) (not menu-live)) (not (let (...) (ac-expand-common)))) ac-use-fuzzy (null ac-candidates)) (progn (ac-fuzzy-complete)))))
	(let ((menu-live (ac-menu-live-p)) (inline-live (ac-inline-live-p)) started) (ac-abort) (let ((ac-sources (or sources ac-sources))) (if (or ac-show-menu-immediately-on-auto-complete inline-live) (setq ac-show-menu t)) (setq started (ac-start :triggered triggered))) (if (ac-update-greedy t) (progn (if (ac-inline-live-p) (ac-inline-hide)) (if (and (or (and (not ac-expand-on-auto-complete) (> ... 1) (not menu-live)) (not (let ... ...))) ac-use-fuzzy (null ac-candidates)) (progn (ac-fuzzy-complete))))) started)
	(progn (let ((menu-live (ac-menu-live-p)) (inline-live (ac-inline-live-p)) started) (ac-abort) (let ((ac-sources (or sources ac-sources))) (if (or ac-show-menu-immediately-on-auto-complete inline-live) (setq ac-show-menu t)) (setq started (ac-start :triggered triggered))) (if (ac-update-greedy t) (progn (if (ac-inline-live-p) (ac-inline-hide)) (if (and (or (and ... ... ...) (not ...)) ac-use-fuzzy (null ac-candidates)) (progn (ac-fuzzy-complete))))) started))
	(let* ((sources (car (cdr (memq (quote :sources) --cl-rest--)))) (triggered (car (cdr (or (memq (quote :triggered) --cl-rest--) (quote (nil command))))))) (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond ((memq (car --cl-keys--) (quote (:sources :triggered :allow-other-keys))) (setq --cl-keys-- (cdr (cdr --cl-keys--)))) ((car (cdr (memq ... --cl-rest--))) (setq --cl-keys-- nil)) (t (error "Keyword argument %s not one of (:sources :triggered)" (car --cl-keys--)))))) (progn (let ((menu-live (ac-menu-live-p)) (inline-live (ac-inline-live-p)) started) (ac-abort) (let ((ac-sources (or sources ac-sources))) (if (or ac-show-menu-immediately-on-auto-complete inline-live) (setq ac-show-menu t)) (setq started (ac-start :triggered triggered))) (if (ac-update-greedy t) (progn (if (ac-inline-live-p) (ac-inline-hide)) (if (and (or ... ...) ac-use-fuzzy (null ac-candidates)) (progn (ac-fuzzy-complete))))) started)))
	auto-complete-1(:sources nil)
	auto-complete()
	call-interactively(auto-complete record nil)
	command-execute(auto-complete record)
	execute-extended-command(nil "auto-complete")
	call-interactively(execute-extended-command nil nil)