(and (= (length l) (length r))
(string< l r))))))))
+(defvar scope-assume-func-p)
+
(defun elisp-completion-at-point ()
(with-syntax-table emacs-lisp-mode-syntax-table
(when-let ((pos (point))
(let* ((pos (get-text-property 0 'pos identifier))
(enable-local-variables nil)
(gc-cons-threshold (* 1024 1024 1024))
+ (scope-assume-func-p t)
(type-def (when pos
(save-excursion
(goto-char pos)
(tar
(case type
((symbol-type symbol-type-definition) 'symbol-type-definition)
- ((variable defvar) 'defval)
+ ((variable defvar) 'defvar)
((face defface) 'defface)
((defun function macro) 'defun)
((icon deficon) 'deficon)