branch: externals/gtags-mode
commit 1f2f3d272b6e73e3541acf6c4c5ee2a8f2cab52a
Author: Jimmy Aguilar Mena <kratsbinov...@gmail.com>
Commit: Jimmy Aguilar Mena <kratsbinov...@gmail.com>
Fix performance issue.
file-true-name is too expensive. It was consuming 98% of the time in a
find-reference with tramp.
---
gtags-mode.el | 36 ++++++++++++++++--------------------
1 file changed, 16 insertions(+), 20 deletions(-)
diff --git a/gtags-mode.el b/gtags-mode.el
index 8d137c1454..ed66559ab6 100644
--- a/gtags-mode.el
+++ b/gtags-mode.el
@@ -65,7 +65,7 @@ The address is absolute for remote hosts.")
"Regex to filter the output with `gtags-mode--output-format-options'.")
(defconst gtags-mode--output-format-options
- '("--result=ctags-x" "--path-style=absolute --color=never")
+ '("--result=ctags-x" "--path-style=absolute" "--color=never")
"Command line options to use with `gtags-mode--output-format-regex'.")
;; Connection functions
@@ -157,20 +157,19 @@ On success return a list of strings or nil if any error
occurred."
nil))
;; Utilities functions (a bit less low level) ========================
-(defun gtags-mode--get-plist (directory)
+(defun gtags-mode--get-plist (dir)
"Return the plist for DIRECTORY from `gtags-mode--alist'."
- (let ((truename (file-truename directory)))
- (catch 'found
- (dolist (plist gtags-mode--alist)
- (when (string-prefix-p (plist-get plist :gtagsroot) truename)
- (throw 'found plist)))
- nil)))
-
-(defun gtags-mode--create-plist (directory)
+ (catch 'found
+ (dolist (plist gtags-mode--alist)
+ (when (string-prefix-p (plist-get plist :gtagsroot) dir)
+ (throw 'found plist)))
+ nil))
+
+(defun gtags-mode--create-plist (dir)
"Return dbpath for DIRECTORY or nil if none."
- (when-let* ((default-directory (file-truename directory))
+ (when-let* ((default-directory dir)
(root (car (gtags-mode--exec-sync '("--print-dbpath")))))
- (setq root (file-truename (concat (file-remote-p default-directory) root)))
+ (setq root (concat (file-remote-p default-directory) root))
(or (gtags-mode--get-plist root) ;; already exist
(car (push `(:gtagsroot ,root :cache nil) gtags-mode--alist)))))
@@ -252,8 +251,7 @@ Return as a list of xref location objects."
(gtags-mode--filter-find-symbol
args symbol
(lambda (_name code file line)
- (xref-make code (xref-make-file-location
- (file-truename (concat remote file)) line 0))))))
+ (xref-make code (xref-make-file-location (concat remote file) line
0))))))
(cl-defmethod xref-backend-identifier-completion-table ((_backend (head
:gtagsroot)))
"List all symbols."
@@ -287,7 +285,7 @@ Return as a list of xref location objects."
;; project integration ===============================================
(defun gtags-mode-project-backend (dir)
"Return the project for DIR as an array."
- (gtags-mode--get-plist dir))
+ (gtags-mode--get-plist (file-truename dir)))
(cl-defmethod project-root ((project (head :gtagsroot)))
"Root for PROJECT."
@@ -299,13 +297,11 @@ Return as a list of xref location objects."
(remote (file-remote-p root))
(results (mapcan
(lambda (dir)
- (when-let* ((tdir (file-truename dir))
- ((string-prefix-p root tdir)))
- (mapcar (lambda (file)
- (concat remote file)) ;; Add remote prefix
+ (when (string-prefix-p root dir)
+ (mapcar (lambda (file) (concat remote file)) ;; Add
remote prefix
(gtags-mode--exec-sync
'("--path-style=absolute" "--path")
- (string-remove-prefix root tdir)))))
+ (string-remove-prefix root dir)))))
(or dirs `(,root)))))
(if (> (length dirs) 1) (delete-dups results) results)))
