From f5824d8c4ffac2bea9ef5d3c05a60a32279d1603 Mon Sep 17 00:00:00 2001 From: Nikolaj Schumacher Date: Wed, 22 Apr 2009 14:49:33 +0200 Subject: [PATCH] Renamed company-electric to company--electric-do. --- company.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/company.el b/company.el index 7b51e4f..793af1a 100644 --- a/company.el +++ b/company.el @@ -1355,7 +1355,7 @@ To show the number next to the candidates in some back-ends, enable (erase-buffer) (current-buffer))) -(defmacro company-electric (&rest body) +(defmacro company--electric-do (&rest body) (declare (indent 0) (debug t)) `(when (company-manual-begin) (save-window-excursion @@ -1375,7 +1375,7 @@ To show the number next to the candidates in some back-ends, enable (defun company-show-doc-buffer () "Temporarily show a buffer with the complete documentation for the selection." (interactive) - (company-electric + (company--electric-do (let ((selected (nth company-selection company-candidates))) (display-buffer (or (company-call-backend 'doc-buffer selected) (error "No documentation available")) t)))) @@ -1384,7 +1384,7 @@ To show the number next to the candidates in some back-ends, enable (defun company-show-location () "Temporarily display a buffer showing the selected candidate in context." (interactive) - (company-electric + (company--electric-do (let* ((selected (nth company-selection company-candidates)) (location (company-call-backend 'location selected)) (pos (or (cdr location) (error "No location available"))) -- 2.39.2