|
楼主 |
发表于 2015-7-4 09:59:21
|
显示全部楼层
.emacs
;;If you use Windows, then use the below line, otherwise use;; to comment it.
(load-file "c:/emacs-24.3/lisp/emulation/cua-base.el")
;;(load-file "~/lisp/emulation/cua-base.el")
;;If you use Linux, then use the below line, otherwise use;; to comment it.
;;(load-file "cua-mode.el”)
(cua-mode t)
(global-set-key [C-home] 'beginning-of-buffer)
(global-set-key [C-end] 'end-of-buffer)
(global-set-key [home] 'beginning-of-line)
(global-set-key [end] 'end-of-line)
(define-key global-map [f3] 'isearch-forward)
(define-key isearch-mode-map [f3] 'isearch-repeat-forward)
(define-key global-map [S-f3] 'isearch-backward)
(define-key isearch-mode-map [S-f3] 'isearch-repeat-backward)
(define-key global-map [f5] 'goto-line)
(define-key global-map [M-f6] 'kill-buffer)
(define-key global-map [S-f6] 'buffer-menu)
(define-key global-map [C-f6] 'switch-to-buffer)
(define-key global-map [f10] 'replace-string)
(define-key global-map [f11] 'replace-regexp)
(define-key global-map [C-f10] 'query-replace)
(define-key global-map [C-f11] 'query-replace-regexp)
(set-background-color "black")
(set-foreground-color "white")
(set-mouse-color "yellow")
(set-cursor-color "red")
(setq kill-whole-line t)
(global-font-lock-mode t)
(column-number-mode t)
(which-func-mode t)
(show-paren-mode t)
(setq transient-mark-mode t)
(setq require-final-newline t)
(setq auto-mode-alist (cons '("\\.v\\'" . verilog-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\\.vh\\'" . verilog-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\\.sv\\'" . verilog-mode) auto-mode-alist))
(setq verilog-indent-level 3
verilog-indent-level-module 3
verilog-indent-level-declaration 3
verilog-indent-level-behavioral 3
verilog-indent-level-directive 1
verilog-case-indent 2
verilog-auto-newline nil
verilog-auto-indent-on-newline t
verilog-tab-always-indent nil
verilog-auto-endcomments nil
verilog-minimum-comment-distance 40
verilog-indent-begin-after-if t
verilog-auto-lineup 'declarations
verilog-highlight-p1800-keywords nil
verilog-linter "my_lint_shell_command"
)
(custom-set-faces)
(put 'upcase-region 'disabled nil)
(put 'downcase-region 'disabled nil)
;;On Linux
;;You can run shell command in shell-1
;;(shell)
;;(rename-buffer shell-1)
;;On Windows
;;You can run the unix-like command in shell-1
(eshell)
(rename-buffer shell-1) |
|