.emacs.el

;;; タグ検索
;; GNU Global
;; wget http://tamacom.com/global/global-6.2.8.tar.gz
;; タグファイル作成するコマンド (gtags -v)
(defun make-gtags ()
  "Make GTAGS file."
  (interactive)
  (if (and (executable-find "global") (executable-find "gtags"))
      (let* ((default default-directory)
             (dir (read-string "Directory: "
                               default nil default)))
        (if (and (file-directory-p dir) (file-readable-p dir))
            (let (out
                  (cmd
                   (if (file-readable-p
                        (concat (file-name-as-directory dir) "GTAGS"))
                       (concat "global -uv")
                     (concat "gtags -v"))))
              (setq out (shell-command-to-string cmd))
              (message "%s" cmd)
              (unless (string= out "") (message "%s" out)))
          (message "no such directory: %s" dir)))
    (message "not found gtags")))