   "Return cons with symbol and t whenever prefix of < is found.
 For example: \"<e\" -> (\"e\" . t)"
   (when (looking-back (if company-org-block-complete-at-bol
-                          (concat "^" company-org--regexp)
-                        company-org--regexp)
+                          (concat "^" company-org-block--regexp)
+                        company-org-block--regexp)
                       (line-beginning-position))
     (cons (match-string-no-properties 1) t)))
 

;;; company-org-block.el --- Company backend to complete org blocks.

;;; Commentary:
;; Enable in org-mode to complete source blocks.
;;
;; Completes only when there's a "<" before.

;;; Code:

(require 'map)
(require 'org)
(require 'seq)
(require 'company)

(defcustom company-org-block-complete-at-bol t
  "If t, detect completion only at the beginning of lines."

	  (const :tag "prompt: ask before edit" prompt)
	  (const :tag "auto edit, no prompt" auto)))

(defvar company-org-block--regexp "<\\([^ ]*\\)")

(defun company-org-block (command &optional arg &rest _ignored)
  "A company completion backend for org blocks.
