Add escape hatch for argument help retrieval

Causes freezes with generics that have lots of methods
emacs-ess · Nov 15, 2020 · 44c0ddb · 44c0ddb
1 parent 3b38b78
commit 44c0ddb
Showing 1 changed file with 9 additions and 8 deletions.
diff --git a/lisp/ess-r-completion.el b/lisp/ess-r-completion.el
@@ -388,14 +388,15 @@ To be used instead of ESS' completion engine for R versions >= 2.7.0."
                        (args (mapcar (lambda (a) (concat a ess-R-argument-suffix))
                                      args)))
                   (all-completions arg args)))
-    (meta (let ((proc (ess-get-next-available-process)))
-            (when (and proc
-                       (with-current-buffer (process-buffer proc)
-                         (not (file-remote-p default-directory))))
-              ;; fixme: ideally meta should be fetched with args
-              (let ((doc (ess-r-get-arg-help-string arg proc)))
-                (replace-regexp-in-string "^ +\\| +$" ""
-                                          (replace-regexp-in-string "[ \t\n]+" " " doc))))))
+    (meta (unless (bound-and-true-p ess-r--no-company-meta)
+            (let ((proc (ess-get-next-available-process)))
+              (when (and proc
+                         (with-current-buffer (process-buffer proc)
+                           (not (file-remote-p default-directory))))
+                ;; fixme: ideally meta should be fetched with args
+                (let ((doc (ess-r-get-arg-help-string arg proc)))
+                  (replace-regexp-in-string "^ +\\| +$" ""
+                                            (replace-regexp-in-string "[ \t\n]+" " " doc)))))))
     (sorted t)
     (require-match 'never)
     (doc-buffer (company-doc-buffer (ess-r-get-arg-help-string arg)))))