gtags fixed

555     ;
556     ; Path style is defined in gtags-path-style:
557     ;   root: relative from the root of the project (Default)
558     ;   relative: relative from the current directory
559     ;   absolute: absolute (relative from the system root directory)
560     ;
561     (cond
562      ((equal gtags-path-style 'absolute)
563       (setq option (concat option "a")))
564      ((equal gtags-path-style 'root)
565       (let (rootdir)
566         (if gtags-rootdir
567           (setq rootdir gtags-rootdir)
568          (setq rootdir (gtags-get-rootpath)))
569         ;;(if rootdir (cd rootdir)))))
570         (if rootdir nil))))
571     (message "Searching %s ..." tagname)
572     (if (not (= 0 (if (equal flag "C")
573                       (process-file "global" nil t nil option context tagname)
574                       (process-file "global" nil t nil option tagname))))
575         (progn (message (buffer-substring (point-min)(1- (point-max))))
576                (gtags-pop-context))
577       (goto-char (point-min))