emacs之配置etags

emacsConfig/etags-setting.el

(require 'auto-complete-etags)

(setq ac-sources (append '(ac-source-etags) ac-sources))

;定义全局变量
(defvar etags-src-dir nil)
(defvar etags-saved-tagfile-name nil)
(defvar etags-language-type nil)


(defun etags-update ()
  "Make ETAGS incremental update"

  (if 
      (
       and(null etags-src-dir)
          (null etags-saved-tagfile-name)
          (null etags-language-type)
      )
     (message "no tags updated for etags")
     (with-temp-buffer
      (shell-command
       (concat "ctags" " " "--languages=" etags-language-type " " "-e -R -f" " " etags-saved-tagfile-name " " etags-src-dir)
       (buffer-name))
     )
  )
)

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

;etags生成函数
(defun generate-etags ()
  "Generate tag tables."
  (interactive)
  (let
      (
       (language-type "")
       (src-dir "")
       (saved-tagfile-name "")
      )

    (setq 
          src-dir
          (read-from-minibuffer "source directory:" )
    
          language-type
          (read-from-minibuffer "language type:")

          saved-tagfile-name
          (read-from-minibuffer "tags save path:")
    )
 
    ;设置全局变量保存起来
    (setf etags-src-dir src-dir)
    (setf etags-language-type language-type)
    (setf etags-saved-tagfile-name saved-tagfile-name)
    
    (with-temp-buffer
      (shell-command
       (concat "ctags" " " "--languages=" etags-language-type " " "-e -R -f" " " etags-saved-tagfile-name " " etags-src-dir)
       (buffer-name)))))

;加载etags
(defalias 'load-etags 'visit-tags-table)

ctags支持etags的模式