emacs

;; kill a buffer without question
(global-set-key [(control x) (k)] 'kill-this-buffer)

;; set noline wrap
(set-default 'truncate-lines t)

;; disable backup
(setq backup-inhibited t)

;; disable autosave
(setq auto-save-default nil)

;; setup global tag system
(setq load-path (cons "/usr/share/emacs/site-lisp/global" load-path))
(autoload 'gtags-mode "gtags" "" t)

;; setup ggtags using globa tagging.
(require 'ggtags)
(add-hook 'c-mode-common-hook
          (lambda ()
            (when (derived-mode-p 'c-mode 'c++-mode 'java-mode 'asm-mode)
              (ggtags-mode 1))))

(define-key ggtags-mode-map (kbd "C-c g s") 'ggtags-find-other-symbol)
(define-key ggtags-mode-map (kbd "C-c g h") 'ggtags-view-tag-history)
(define-key ggtags-mode-map (kbd "C-c g r") 'ggtags-find-reference)
(define-key ggtags-mode-map (kbd "C-c g f") 'ggtags-find-file)
(define-key ggtags-mode-map (kbd "C-c g c") 'ggtags-create-tags)
(define-key ggtags-mode-map (kbd "C-c g u") 'ggtags-update-tags)

(define-key ggtags-mode-map (kbd "M-,") 'pop-tag-mark)


;; turn on which function mode, to display cursor in which function.
(which-function-mode 1)

;; show matching pairs of parentheses
(show-paren-mode 1)

;; enable speedbar frame when using windows
;;(when window-system  (speedbar t))
(require 'sr-speedbar)
(setq speedbar-show-unknown-files t) ; show all files
(setq sr-speedbar-right-side nil) ; put on left side
(setq sr-speedbar-width 25)
(sr-speedbar-open)
(with-current-buffer sr-speedbar-buffer-name
  (setq window-size-fixed 'width))


;; Identify same file name.
(require 'uniquify)
(setq uniquify-buffer-name-style 'forward)

;; open file in current position
(global-set-key (kbd "C-x C-f") 'ffap)

;; list the buffer in the same menu
(global-set-key "\C-x\C-b" 'buffer-menu)

;; auto indent
(setq c-default-style "linux" c-basic-offset 4)

;; following to install auto-complete package, point to MELPA-stable package
;; To install auto-complete package, M-x package-install [RET] auto-complete [RET] to install the package.
(require 'package) ;; You might already have this line
(add-to-list 'package-archives
             '("melpa-stable" . "http://stable.melpa.org/packages/") t)
(when (< emacs-major-version 24)
  ;; For important compatibility libraries like cl-lib
  (add-to-list 'package-archives '("gnu" . "http://elpa.gnu.org/packages/")))
(package-initialize) ;; You might already have this line

;; Following is the section to enable auto-compete-mode automatically
(require 'auto-complete-config)
(ac-config-default)
(global-auto-complete-mode t)

(setq url-proxy-services
       '(("no_proxy" . "^\\(localhost\\|10.*\\)")
         ("http" . "proxy.quanta.corp:80")
         ("https" . "proxy.quanta.corp:80")))