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的模式