emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/company 056d19d 42/46: Rename a function and add NEWS e


From: Dmitry Gutov
Subject: [elpa] externals/company 056d19d 42/46: Rename a function and add NEWS entry
Date: Wed, 30 Dec 2020 18:33:12 -0500 (EST)

branch: externals/company
commit 056d19d54af1447f60f2329774e6c5abf98a91cb
Author: Dmitry Gutov <dgutov@yandex.ru>
Commit: Dmitry Gutov <dgutov@yandex.ru>

    Rename a function and add NEWS entry
---
 NEWS.md          | 2 ++
 company-gtags.el | 6 +++---
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/NEWS.md b/NEWS.md
index b91d56a..38ef038 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -2,6 +2,8 @@
 
 ## Next
 
+* `company-gtags` on remote hosts is improved
+  ([#1037](https://github.com/company-mode/company-mode/pull/1037)).
 * New commands `company-select-first` and `company-select-last`.
 * `company-tng-mode` has been added to replace both
   `company-tng-configure-default` and the manual method of enabling
diff --git a/company-gtags.el b/company-gtags.el
index 86038a3..f298c67 100644
--- a/company-gtags.el
+++ b/company-gtags.el
@@ -63,7 +63,7 @@ completion."
             (locate-dominating-file buffer-file-name "GTAGS"))
     company-gtags--tags-available-p))
 
-(defun company-gtags--executable-p ()
+(defun company-gtags--executable ()
   (cond
    ((not (eq company-gtags--executable 'unknown)) ;; the value is already 
cached
     company-gtags--executable)
@@ -95,7 +95,7 @@ completion."
       (let ((temp-buffer (current-buffer)))
         (when (with-current-buffer caller-buffer
                 ;; Execute the command in the local buffer but output in the 
temporal one.
-                (/= 3 (process-file (company-gtags--executable-p) nil
+                (/= 3 (process-file (company-gtags--executable) nil
                                     ;; "-T" goes through all the tag files 
listed in GTAGSLIBPATH
                                     temp-buffer nil "-xGqT" (concat "^" 
prefix))))
           (goto-char (point-min))
@@ -126,7 +126,7 @@ completion."
   (interactive (list 'interactive))
   (cl-case command
     (interactive (company-begin-backend 'company-gtags))
-    (prefix (and (company-gtags--executable-p)
+    (prefix (and (company-gtags--executable)
                  buffer-file-name
                  (apply #'derived-mode-p company-gtags-modes)
                  (not (company-in-string-or-comment))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]