emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

fix for +org-company-init-h company-files-regexps initialization

Browse source
This commit is contained in:
Jakub Darul 2019-10-10 20:21:35 +02:00
parent fa14fc9688
commit d3ebe747b6
1 changed files with 5 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

15
modules/lang/org/config.el
View file

@ -815,17 +815,10 @@ compelling reason, so..."
(sp-local-pair "=" "=" :unless '(:add sp-point-before-word-p sp-in-math-p +org-sp-in-src-block-p)))))
(defun +org-init-company-h ()
(after! company
(setq company-files--regexps
(let* ((root (if (eq system-type 'windows-nt)
"[a-zA-Z]:/"
"/"))
(begin (concat "\\(?:\\.\\{1,2\\}/\\|~/\\|" root "\\)")))
(list (concat "\"\\(" begin "[^\"\n]*\\)")
(concat "\'\\(" begin "[^\'\n]*\\)")
(concat "file:\\(" begin "[^\]\n]*\\)")
(concat "\\(?:[ \t=]\\|^\\)\\(" begin "[^ \t\n]*\\)"))))))
(after! company-files
(setq-local company-files--regexps
(cons "file:\\(\\(?:\\.\\{1,2\\}/\\|~/\\|/\\)[^\]\n]*\\)"
company-files--regexps))))
;;
;;; Bootstrap