awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

completion/company: minor quoting refactor

Browse Source 
Sharp-quote function and use backquotes in pcase (better Emacs <25
compatibility).
This commit is contained in:
Henrik Lissner
2018-05-08 17:57:26 +02:00
parent b64b2764fa
commit 3488821b2e
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
modules/completion/company/autoload.el
View File

@ -23,9 +23,9 @@ C-x C-l."
(interactive (list 'interactive)) (interactive (list 'interactive))
(require 'company) (require 'company)
(pcase command (pcase command
('interactive (company-begin-backend '+company/whole-lines)) (`interactive (company-begin-backend '+company/whole-lines))
('prefix (company-grab-line "^[\t\s]*\\(.+\\)" 1)) (`prefix (company-grab-line "^[\t\s]*\\(.+\\)" 1))
('candidates (`candidates
(all-completions (all-completions
arg arg
(split-string (split-string
@ -42,7 +42,7 @@ C-x C-l."
(require 'company-dict) (require 'company-dict)
(require 'company-keywords) (require 'company-keywords)
(let ((company-backends '((company-keywords company-dict)))) (let ((company-backends '((company-keywords company-dict))))
(call-interactively 'company-complete))) (call-interactively #'company-complete)))
;;;###autoload ;;;###autoload
(defun +company/dabbrev-code-previous () (defun +company/dabbrev-code-previous ()