emacs之配置gtags

~/emacsConfig/gtags-setting.el

(if (eq system-type 'darwin)
    (add-to-list 'load-path "/usr/local/Cellar/global/6.2.9/share/gtags")
)

(require 'gtags)

(add-hook 'c-mode-common-hook 'gtags-mode)
(add-hook 'c++-mode-common-hook 'gtags-mode)
(add-hook 'java-mode-common-hook 'gtags-mode)
(add-hook 'gtags-select-mode-hook
      '(lambda ()
         (setq hl-line-face 'underline)
         (hl-line-mode 1)))

(defvar gtags-src-dir nil)
(defvar gtags-saved-tagfile-dir nil)
(defvar gtags-language-suffix nil)

(setq gtags-suggested-key-mapping t)

(defun gtags-update ()
  "Make GTAGS incremental update"
  (if
      (null gtags-src-dir)
    (message "no tags updated for gtags")
    (with-temp-buffer
      (shell-command
       (concat "cd " gtags-src-dir ";" "global " "-u")
       (buffer-name))
    )
  )
)

(defun gtags-update-hook ()
   (gtags-update)
)

(add-hook 'after-save-hook 'gtags-update-hook)

;gtags生成函数
(defun generate-gtags ()
  "Generate gtag tables."
  (interactive)
  (let
      (
       (language-suffix "")
       (src-dir "")
       (saved-tag-dir "")
      )

    (setq src-dir
          (read-from-minibuffer "source directory for gtags:")
          
          language-suffix
          (read-from-minibuffer "suffix:")

          saved-tag-dir
          (read-from-minibuffer "gtags saved path:")
    )
        ;设置全局变量保存起来
    (setf gtags-src-dir src-dir)
    (setf gtags-language-suffix language-suffix)
    (setf gtags-saved-tagfile-dir saved-tag-dir)


    (with-temp-buffer
      (shell-command
       (concat "mkdir -p" " " gtags-saved-tagfile-dir " " "2>/dev/null;" "cd " gtags-src-dir ";" "find" " " gtags-src-dir " -name "" gtags-language-suffix "" | gtags" " " gtags-saved-tagfile-dir)
       (buffer-name)))))

;加载gtags
(defalias 'load-gtags 'gtags-visit-rootdir)


;光return键在vim模式下不起作用，所以绑定的键是alt+回车
(define-key gtags-select-mode-map [(meta return)] 'gtags-select-tag)
(define-key gtags-select-mode-map [mouse-1] 'gtags-select-tag)

;查找变量引用：gtags-find-symbol
;查找函数引用：gtags-find-rtag
(global-set-key (kbd "C-x v") 'gtags-find-symbol) 
(global-set-key (kbd "C-x f") 'gtags-find-rtag)