Download
(menu-bar-mode -1)
(tool-bar-mode -1)
(scroll-bar-mode -1)
(fset 'yes-or-no-p 'y-or-n-p)
(global-font-lock-mode t)
(blink-cursor-mode -1)
(transient-mark-mode 1)
(column-number-mode t)
(show-paren-mode t)
(which-function-mode t)
(auto-compression-mode 1)
(mouse-avoidance-mode "banish")
(setq-default comment-style 'indent)
(setq ring-bell-function 'ignore)
(setq inhibit-startup-message t)
(setq initial-scratch-message nil)
(setq show-paren-style 'parentheses)
(setq blink-matching-paren nil)
(setq default-major-mode 'text-mode)
(setq mouse-yank-at-point t)
(setq x-select-enable-clipboard t)
(setq x-stretch-cursor t)
(setq auto-revert-mode 1)
(setq max-lisp-eval-depth 40000)
(setq max-specpdl-size 10000)
(setq kill-ring-max 1024)
(setq undo-outer-limit 5000000)
(setq mark-ring-max 1024)
(setq message-log-max t)
(setq read-quoted-char-radix 16)
(setq void-text-area-pointer nil)
(setq enable-recursive-minibuffers t)
(setq eval-expression-print-length nil)
(setq eval-expression-print-level nil)
(setq global-mark-ring-max 1024)
(setq history-delete-duplicates t)
(put 'narrow-to-region 'disabled nil)
(setq print-escape-newlines t)
(setq default-buffer-file-coding-system 'utf-8-unix)
(setq default-file-name-coding-system 'utf-8-unix)
(setq default-keyboard-coding-system 'utf-8-unix)
(setq default-process-coding-system '(utf-8-unix . utf-8-unix))
(setq default-sendmail-coding-system 'utf-8-unix)
(setq default-terminal-coding-system 'utf-8-unix)
(defadvice yank (after indent-region activate)
"To make yank content indent automatically."
(if (member major-mode '(emacs-lisp-mode
scheme-mode
lisp-mode
lisp-interaction-mode
c-mode
c++-mode
objc-mode
latex-mode
plain-tex-mode))
(indent-region (region-beginning) (region-end) nil)))
(setq minibuffer-message-timeout 1)
(setq-default indent-tabs-mode t)
(setq default-tab-width 4)
(dolist (hook (list
'emacs-lisp-mode-hook
'lisp-mode-hook
'lisp-interaction-mode-hook
'scheme-mode-hook
'c-mode-hook
'c++-mode-hook
'java-mode-hook
'haskell-mode-hook
'asm-mode-hook
'emms-tag-editor-mode-hook
'sh-mode-hook
))
(add-hook hook '(lambda () (setq indent-tabs-mode nil))))
(win:startup-with-window)
(setq win:configuration-file "~/MyEmacs/Configure-File/Windows/windows-configure")
(autoload 'save-current-configuration "revive" "Save status" t)
(autoload 'resume "revive" "Resume Emacs" t)
(autoload 'wipe "revive" "Wipe Emacs" t)
(setq revive:configuration-file "~/MyEmacs/Configure-File/Revive/revive-configure")
(delete 'win:mode-string global-mode-string)
(scroll-mode-line-mode 1)
(ctypes-auto-parse-mode 1)
(size-indication-mode 1)
(autoload 'hanconvert-region "hanconvert"
"Convert a region from simple chinese to tradition chinese or
from tradition chinese to simple chinese" t)
(tabbar-mode t)
(setq require-final-newline nil)
(browse-kill-ring-default-keybindings)
(recentf-mode 1)
(setq recentf-max-saved-items 100)
(setq recentf-auto-cleanup 300)
(setq recentf-save-file "~/MyEmacs/Configure-File/Recentf/recentf-list")
(setq uniquify-buffer-name-style 'post-forward-angle-brackets)
(setq uniquify-separator "/")
(setq uniquify-after-kill-buffer-p t)
(miniedit-install)
(autoload 'cycle-buffer "cycle-buffer" "Cycle forward." t)
(autoload 'cycle-buffer-backward "cycle-buffer" "Cycle backward." t)
(autoload 'cycle-buffer-permissive "cycle-buffer" "Cycle forward allowing *buffers*." t)
(autoload 'cycle-buffer-backward-permissive "cycle-buffer" "Cycle backward allowing *buffers*." t)
(autoload 'cycle-buffer-toggle-interesting "cycle-buffer" "Toggle if thisc buffer will be considered." t)
(dolist (elt-cons '(
("\\.stumpwmrc\\'" . lisp-mode)
("\\.[hg]s\\'" . haskell-mode)
("\\.hi\\'" . haskell-mode)
("\\.l[hg]s\\'" . literate-haskell-mode)
("\\.inc\\'" . asm-mode)
("\\.max\\'" . maxima-mode)
("\\.lrc\\'" . emms-lyrics-mode)
("\\.org\\'" . org-mode)
("\\.cron\\(tab\\)?\\'" . crontab-mode)
("cron\\(tab\\)?\\." . crontab-mode)
("\\.a90\\'" . intel-hex-mode)
("\\.hex\\'" . intel-hex-mode)))
(add-to-alist 'auto-mode-alist elt-cons))
(dolist (hook (list
'c-mode-hook
'c++-mode-hook
'java-mode-hook
))
(doxymacs-font-lock)
(add-hook hook 'doxymacs-mode)
(add-hook hook (lambda () (local-set-key (kbd "C-m") 'my-doxymacs-return)))
)
(setq whitespace-global-mode t)
(setq mail-notify-directory "~/MyEmacs/Mail/inbox/new/")
(setq mail-notify-status t)
(setq mail-notify-repeat 60)
(setq speedbar-show-unknown-files t)
(setq sr-speedbar-skip-other-window-p t)
(add-hook 'find-file-hook 'highlight-parentheses-mode t)
(autoload 'kill-ring-search "kill-ring-search"
"Search the kill ring in the minibuffer."
(interactive))
(setq modelinepos-column-limit 80)
(setq install-elisp-repository-directory "~/MyEmacs/Site-Lisp/Packages/LazyCatCollect/")
(setq install-elisp-confirm-flag nil)
(setq install-elisp-use-url-retrieve nil)
(setq save-abbreviation-file "~/MyEmacs/Configure-File/Save-Abbreviation/abbreviation")
(save-abbreviation-mode)
(setq ibuffer-sorting-mode 'recency)
(setq contentswitch-file-completion-delay 0.1)
(setq contentswitch-max-name-length 40)
(setq find-function-C-source-directory "~/MyEmacs/Src")
(global-hl-line-mode 1)
(timid-mode 1)
(timid-iswitchb-setup)
(setq g-user-email my-mail)
(setq doc-view-cache-directory my-translate-png-directory)
(setq moccur-kill-moccur-buffer t)
(setq moccur-edit-highlight-edited-text t)
(defadvice moccur-edit-change-file
(after save-after-moccur-edit-buffer activate)
"Automatically save buffer when edit in moccur."
(save-buffer))
(setq default-fill-column 100)
(dolist (hook (list
'after-text-mode-hook
'message-mode-hook
'org-mode-hook
))
(add-hook hook '(lambda () (auto-fill-mode 1))))
(setq tempbuf-kill-message nil)
(setq tempbuf-minimum-timeout 30)
(dolist (hook (list
'compilation-mode-hook
'comint-mode-hook
'completion-list-mode-hook
'help-mode-hook
'Info-mode-hook
'calc-mode-hook
'gnus-article-mode-hook
'gnus-kill-file-mode
))
(add-hook hook 'turn-on-tempbuf-mode))
(setq bc-bookmark-file "~/MyEmacs/Configure-File/Breadcrumb/bookmark")
(setq bc-bookmark-limit 300)
(setq tramp-default-method "ssh")
(custom-set-variables '(tramp-verbose 0))
(setq calendar-week-start-day 1)
(setq calendar-chinese-location-name "Chengdu")
(setq calendar-date-style (quote iso))
(setq diary-file "~/Diary/diary")
(setq traverse-use-avfs t)
(add-to-list 'traverse-ignore-files ".ledger-cache")
(setq term-eol-on-send t)
(setq multi-term-program "/bin/zsh")
(setq multi-term-dedicated-skip-other-window-p t)
(setq multi-term-scroll-show-maximum-output t)
(setq multi-term-scroll-to-bottom-on-output nil)
(add-hook 'c-mode-common-hook 'xgtags-mode)
(setq browse-kill-ring-quit-action
(quote save-and-restore))
(window-number-mode 1)
(scim-mode t)
(toggle-cursor-type-when-idle 1)
(setq byte-compile-warnings
(quote (
free-vars
unresolved
callargs
obsolete
noruntime
interactive-only
make-local
mapcar
(not redefine)
(not cl-functions)
)))
(setq c-echo-syntactic-information-p nil)
(setq ediff-window-setup-function (quote ediff-setup-windows-plain))
(icomplete-mode 1)
(setq isearch-allow-scroll t)
(setq inferior-lisp-program "/usr/bin/sbcl")
(setq slime-net-coding-system 'utf-8-unix)
(add-hook 'lisp-mode-hook 'turn-on-cldoc-mode)
(setq imenu-sort-function 'imenu--sort-by-name)
(dolist (hook (list
'c-mode-common-hook
'emacs-lisp-mode-hook
'lisp-mode-hook
'lisp-interaction-mode-hook
))
(add-hook hook 'imenu-add-menubar-index))
(setq woman-default-indent 7
woman-fill-frame t
woman-use-own-frame nil
woman-cache-level 3)
(setq fj-journal-size 10)
(setq fj-journal-file
"~/MyEmacs/Configure-File/File-Journal/file-journal")
(setq babel-preferred-from-language "English")
(setq babel-preferred-to-language "Chinese (Simplified)")
(setq paste2-user erc-nick)
(setq auto-install-directory "~/MyEmacs/Site-Lisp/Packages/LazyCatCollect/")
(setq auto-install-from-w3m-confirm nil)
(winner-mode 1)
(setq one-key-popup-window nil)
(setq elisp-depend-directory-list
'("~/MyEmacs/Common/share/emacs/"
"~/MyEmacs/Site-Lisp/Configure/"))
(window-point-remember-mode 1)
(setq winpoint-non-restore-buffer-list
'("*Group*"))
(setq irfc-directory "/data/Book/Network_Programming/RFC-all")
(custom-set-variables
'(irfc-assoc-mode t))
(setq auto-install-save-confirm nil)
(setq yaoddmuse-browse-function 'yaoddmuse-browse-page-in-w3m)
(setq yaoddmuse-notify-function 'yaoddmuse-notify-popup-window)
(setq yaoddmuse-wikis
'(("EmacsWiki" "http://www.emacswiki.org/cgi-bin/emacs" utf-8 "uihnscuskc=1;")))
(add-hook 'emacs-lisp-mode-hook 'highlight-cl-add-font-lock-keywords)
(add-hook 'lisp-interaction-mode-hook 'highlight-cl-add-font-lock-keywords)
(setq apt-utils-automatic-update t)
(provide 'init-misc)