In-buffer-completion: Add company-mode

Getting crashes with emacs 29.4, seems to be a known issue.
Until emacs 30, find another in-buffer-completion solution.

config.org

@@ -450,9 +450,22 @@ C-c C-c to apply."
 )
 #+END_SRC
 
-** Corfu
+** In-buffer completion
 
-#+BEGIN_SRC emacs-lisp
+*** Consult
+
+#+BEGIN_SRC
+(setq completion-in-region-function
+      (lambda (&rest args)
+        (apply (if vertico-mode
+                   #'consult-completion-in-region
+                 #'completion--in-region)
+               args)))
+#+END_SRC
+
+*** Corfu
+
+#+BEGIN_SRC
 (use-package corfu
   ;; Optional customizations
   :custom
@@ -478,6 +491,19 @@ C-c C-c to apply."
   (global-corfu-mode))
 #+end_src
 
+*** Company-mode
+
+#+BEGIN_SRC emacs-lisp
+(use-package company
+  :config
+  (define-key prog-mode-map
+              (kbd "TAB")
+              #'company-indent-or-complete-common)
+  :init
+  (global-company-mode)
+  )
+#+END_SRC
+
 ** Orderless
 
 #+begin_src emacs-lisp