Advertisement
Guest User

Untitled

a guest
Dec 5th, 2014
431
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 4.79 KB | None | 0 0
  1. 1 Debugger entered--Lisp error: (wrong-type-argument stringp nil)
  2. 2 string-match("fn" nil)
  3. 3 (if (string-match "fn" type) "f" "v")
  4. 4 (popup-make-item name :symbol (if (string-match "fn" type) "f" "v") :summary (truncate-string-to-width type tern-ac-completion-truncate-length 0 nil "...") :document (concat type "\n\n" doc))
  5. 5 (let ((doc (cdr (assq (quote doc) item))) (type (cdr (assq (quote type) item))) (name (cdr (assq (quote name) item)))) (popup-make-item name :symbol (if (string-match "fn" type) "f" "v") :summary (truncate-string-to-width type tern-ac-completion-truncate-length 0 nil "...") :document (concat type "\n\n" doc)))
  6. 6 (closure (t) (item) (let ((doc (cdr (assq (quote doc) item))) (type (cdr (assq (quote type) item))) (name (cdr (assq (quote name) item)))) (popup-make-item name :symbol (if (string-match "fn" type) "f" "v") :summary (truncate-string-to-width type tern-ac-completion-truncate-length 0 nil "...") :document (concat type "\n\n" doc))))(((name . "beginPath")))
  7. 7 mapcar((closure (t) (item) (let ((doc (cdr (assq (quote doc) item))) (type (cdr (assq (quote type) item))) (name (cdr (assq (quote name) item)))) (popup-make-item name :symbol (if (string-match "fn" type) "f" "v") :summary (truncate-string-to-width type tern-ac-completion-truncate-length 0 nil "...") :document (concat type "\n\n" doc)))) (((name . "beginPa$
  8. 8 tern-ac-completion-matches()
  9. 9 funcall(tern-ac-completion-matches)
  10. 10 (cond ((functionp function) (funcall function)) (t (eval function)))
  11. 11 (save-excursion (cond ((functionp function) (funcall function)) (t (eval function))))
  12. 12 (setq candidates (save-excursion (cond ((functionp function) (funcall function)) (t (eval function)))))
  13. 13 (if cache nil (setq candidates (save-excursion (cond ((functionp function) (funcall function)) (t (eval function))))) (setq candidates (mapcar (function (lambda (candidate) (if (consp candidate) (propertize (car candidate) (quote value) (cdr candidate)) candidate))) candidates)) (if do-cache (progn (setq ac-candidates-cache (cons (cons source candidates) a$
  14. 14 (let* ((do-cache (assq (quote cache) source)) (function (assoc-default (quote candidates) source)) (action (assoc-default (quote action) source)) (document (assoc-default (quote document) source)) (symbol (assoc-default (quote symbol) source)) (ac-limit (or (assoc-default (quote limit) source) ac-limit)) (face (or (assoc-default (quote face) source) (assoc$
  15. 15 ac-candidates-1(((candidates . tern-ac-completion-matches) (prefix . tern-ac-completion-prefix) (requires . -1)))
  16. 16 (append candidates (ac-candidates-1 source))
  17. 17 (setq candidates (append candidates (ac-candidates-1 source)))
  18. 18 (while (consp --cl-var--) (setq source (car --cl-var--)) (setq candidates (append candidates (ac-candidates-1 source))) (setq --cl-var-- (cdr --cl-var--)))
  19. 19 (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 --$
  20. 20 ac-candidates()
  21. 21 (setq ac-candidates (ac-candidates))
  22. 22 (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 $
  23. 23 (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$
  24. 24 ac-update(nil)
  25. 25 (setq result (ac-update force))
  26. 26 (and (setq result (ac-update force)) (null ac-candidates))
  27. 27 (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))
  28. 28 (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)))
  29. 29 (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)
  30. 30 ac-update-greedy()
  31. 31 apply(ac-update-greedy nil)
  32. 32 timer-event-handler([t 0 0 100000 0.1 ac-update-greedy nil idle 0])
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement