From 3488821b2e332ab8aa7100eb7a09db22f46f3057 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Tue, 8 May 2018 17:57:26 +0200 Subject: [PATCH] completion/company: minor quoting refactor Sharp-quote function and use backquotes in pcase (better Emacs <25 compatibility). --- modules/completion/company/autoload.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/modules/completion/company/autoload.el b/modules/completion/company/autoload.el index 406b04333..b6c444382 100644 --- a/modules/completion/company/autoload.el +++ b/modules/completion/company/autoload.el @@ -23,9 +23,9 @@ C-x C-l." (interactive (list 'interactive)) (require 'company) (pcase command - ('interactive (company-begin-backend '+company/whole-lines)) - ('prefix (company-grab-line "^[\t\s]*\\(.+\\)" 1)) - ('candidates + (`interactive (company-begin-backend '+company/whole-lines)) + (`prefix (company-grab-line "^[\t\s]*\\(.+\\)" 1)) + (`candidates (all-completions arg (split-string @@ -42,7 +42,7 @@ C-x C-l." (require 'company-dict) (require 'company-keywords) (let ((company-backends '((company-keywords company-dict)))) - (call-interactively 'company-complete))) + (call-interactively #'company-complete))) ;;;###autoload (defun +company/dabbrev-code-previous ()