;2007-10-1
(custom-set-variables
;; custom-set-variables was added by Custom -- don't edit or cut/paste it!
;; Your init file should contain only one such instance.
'(automatic-hscrolling nil)
'(backward-delete-char-untabify-method nil)
'(baud-rate 115200)
'(blink-matching-delay 0.15)
'(blink-matching-paren nil nil nil "jiu shi da yin bi he kuo hao shi hou bu hui hui shan dao aki shi de kuo hao")
'(blink-matching-paren-on-screen t nil nil "bu ming bai")
'(bookmark-completion-ignore-case t nil nil "bu ming bai")
'(bookmark-default-file "~\\.emacs.bmk" nil nil "ye suan pei zhi wen jian....")
'(bookmark-use-annotations nil nil nil "bao cun shi yong ji lu ? cai bu ")
'(bs-must-always-show-regexp nil)
'(buffers-menu-max-size 15)
'(c-basic-offset (quote set-from-style))
'(c-comment-only-line-offset (quote set-from-style))
'(c-comment-prefix-regexp (quote ((c++-mode . "") (other . ""))))
'(c-default-style (quote ((c-mode . "k&r"))))
'(c-echo-syntactic-information-p nil)
'(c-hanging-colons-alist (quote set-from-style))
'(c-indent-comments-syntactically-p nil)
'(c-progress-interval 4)
'(c-strict-syntax-p nil)
'(c-syntactic-indentation t)
'(c-tab-always-indent t)
'(case-fold-search t)
'(column-number-mode nil)
'(compilation-scroll-output t)
'(compilation-window-height 10 t)
'(compile-auto-highlight t)
'(compile-command "make")
'(confirm-kill-emacs (quote y-or-n-p))
'(current-language-environment "Chinese-GB")
'(delete-selection-mode t nil (delsel))
'(dired-dwim-target t)
'(dired-recursive-deletes (quote top))
'(double-click-time 400)
'(enable-completion t)
'(face-font-family-alternatives (quote (("$)A7BKN_GB2312" "fixed") ("KNLe" "fixed") ("helv" "helvetica" "arial" "fixed"))))
'(fill-column 800)
'(fill-individual-varying-indent nil)
'(focus-follows-mouse nil)
'(frame-background-mode (quote dark))
'(global-font-lock-mode t nil (font-lock))
'(global-hl-line-mode t nil (hl-line))
'(goto-address-highlight-p t)
'(highlight-nonselected-windows t)
'(hscroll-global-mode nil nil (hscroll))
'(imenu-auto-rescan t)
'(imenu-sort-function (quote imenu--sort-by-name))
'(inverse-video nil)
'(isearch-lazy-highlight t)
'(isearch-lazy-highlight-cleanup nil nil nil "zhe ge hao, xiang vi yi yang, wo xi huan")
'(isearch-lazy-highlight-initial-delay 0.25)
'(isearch-lazy-highlight-max-at-a-time 20 nil nil "zui duo gao liang ge shu ,tai duo le su du man")
'(iso-ascii-convenient nil)
'(kill-whole-line t)
'(left-margin 0 nil nil "huan hang suo jin zi jie shu.mei yong,")
'(line-move-ignore-invisible nil)
'(line-number-mode t)
'(list-matching-lines-default-context-lines 0 nil nil "0 dai biao cong dang qian hang kai shi!!!")
'(ls-lisp-dirs-first t)
'(menu-bar-mode nil)
'(mouse-avoidance-mode nil nil (avoid))
'(mouse-buffer-menu-maxlen 30 nil nil "shubiao buffer de caiban yuanlai zai zheli")
'(mouse-scroll-delay 0.25)
'(mouse-sel-mode nil nil (mouse-sel) "hao dong xi!! ke yi rang xuan zhong qu yu bu qing yi xiao shi!!zhao dao le!----yunsi,bu shi ta a ....xuanzhong ta yi hou zuojian buneng dian anniu le.yao yong zhong jian")
'(mouse-wheel-follow-mouse t)
'(mouse-wheel-mode t nil (mwheel))
'(mouse-yank-at-point nil nil nil "zai guangbiao dian cha ru,hai shi shu biao wei zhi cha ru.")
'(normal-erase-is-backspace t)
'(pc-select-override-scroll-error t)
'(pc-select-selection-keys-only nil)
'(pc-selection-mode t nil (pc-select))
'(recentf-max-menu-items 20)
'(recentf-max-saved-items 120)
'(recentf-mode t nil (recentf))
'(regexp-search-ring-max 100)
'(scroll-bar-mode nil)
'(scroll-conservatively 0)
'(scroll-preserve-screen-position nil)
'(scroll-step 0)
'(scroll-up-aggressively nil)
'(search-exit-option t nil nil "ren yi de kong zhi zi fu jie shu zeng liang sou suo")
'(search-highlight t)
'(search-ring-max 100)
'(search-upper-case (quote not-yanks) nil nil "luo ji guo yu fu za ,bu kan le")
'(show-paren-mode t nil (paren))
'(show-paren-ring-bell-on-mismatch t)
'(speedbar-show-unknown-files nil)
'(strokes-mode nil nil (strokes))
'(tab-always-indent t)
'(tab-stop-list (quote (8 16 24 32 40 48 56 64 72 80 88 96 104 112 120 4)))
'(tab-width 4)
'(transient-mark-mode t nil nil "jue ding shu biao gunlun gundong shi xuanzhongqu huibuhui xiaoshi~")
'(truncate-lines nil)
'(truncate-partial-width-windows nil)
'(vc-default-init-version "1.1.1.1")
'(vc-handled-backends (quote (CVS RCS SCCS)))
'(version-control nil))
(custom-set-faces
;; custom-set-faces was added by Custom -- don't edit or cut/paste it!
;; Your init file should contain only one such instance.
'(default ((t (:stipple nil :background "black" :foreground "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 105 :width normal :family "outline-courier new"))))
'(cursor ((t (:background "DEEPPINK1"))))
'(custom-variable-button-face ((t (:underline t :weight bold))))
'(fringe ((((class color) (background light)) (:background "WHITE"))))
'(hi-yellow ((t (:background "blue"))))
'(highlight ((t (:background "gray19"))))
'(isearch ((((class color) (background light)) (:background "magenta4" :foreground "lightskyblue1"))))
'(mode-line ((((type x w32 mac) (class color)) (:background "white" :foreground "blue"))))
'(mouse ((t (:background "red"))))
'(region ((t (:background "chocolate4"))))
'(secondary-selection ((((class color) (background light)) (:background "blue"))))
'(underline ((t (:background "red" :foreground "black" :underline t)))))
(put 'set-goal-column 'disabled nil)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;$)A04<|0s6(;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(global-set-key "\C-z" 'undo)
(global-set-key "\C-s" 'save-buffer)
(global-set-key "\C-a" 'mark-whole-buffer)
(global-set-key "\C-v" 'yank)
(global-set-key "\C-f" 'isearch-forward)
;(global-set-key "\C-x\k" 'kill-this-buffer)
(global-set-key "\C-x\k" 'wl-kill-this-buffer)
(global-set-key "\C-k" 'wl-kill-this-buffer)
(global-set-key "\C-c\o" 'occur)
(global-set-key "\M-[" 'forward-list)
(global-set-key "\M-]" 'backward-list)
;(global-set-key "\C-x\C-b" 'bs-show);$)A1Hlist-buffer8|:CSC5D9&D\
(global-set-key "\C-x\C-b" 'electric-buffer-list);$)A;rPmUb8v8|:CP)#?
(global-set-key "\C-x\C-j" 'dired-jump)
(global-set-key "\C-c\g" 'grep);$)A4+K5VP5Dgrep
(global-set-key "\M-`" 'compile);make
(global-set-key "\M-u" 'upcase-region);$)A4sP4
(global-set-key "\M-l" 'downcase-region);$)AP!P4
(global-set-key [M-return] 'bs-show);//$)AR2PmUbQy8|7=1cP)#?
(global-set-key "\M-m" 'goto-line);//$)AVUSZ8xNRUR5=AK
;$)ANRE2E2E2~~~8B8B8B
(global-set-key "\M-j" 'backward-char-nomark);
(global-set-key "\M-k" 'next-line-nomark);
(global-set-key "\M-l" 'forward-char-nomark);
(global-set-key "\M-i" 'previous-line-nomark);
(global-set-key "\C-D" 'wl-insert-current-date);$)A2eHk51G0J1<dHUFZ
;(11(22(33(44(55)44)33)22)11)$)ASCSZ2bJT@(:ELxW*
;(global-set-key [f12] 'buffer-menu)
;(global-set-key [f12] 'bs-show)
(global-set-key [f12] 'electric-buffer-list)
(global-set-key [f11] 'imenu)
(global-set-key [f3] 'other-window)
;(global-set-key [f5] 'delete-other-windows)
(global-set-key [C-return] 'delete-other-windows)
(global-set-key [f4] 'jump-to-register)
(global-set-key [f9] 'point-to-register)
(global-set-key [f10] 'recentf-open-files);$)A@zJ7ND<~
(global-set-key [f2] 'calculator);$)AN^1HG?:7
;(global-set-key [left] 'buffer-menu);$)AW"RbUb8vV;JGJ>767=Or<|SC7(#,NRC;4rKcUf0s6(
;(global-unset-key "\C-c\o");$)AUbJG=b3}NdW05D@}WS#,:G:G
(global-unset-key "\M-c");M-c$)AJG0Q4JJWWVD84sP4#,R;0c2;SCUb9&D\#,6xGRM-cL+H]RWNs6/Ww#,NRRQ>-RrN*4JJW1;Ns4sP46xStCF:C<84NAK#,lisp1`RkM(2;9}5D
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;$)A***D<0JdHk7(;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(set-keyboard-coding-system 'euc-cn)
(set-language-environment 'Chinese-GB)
(set-keyboard-coding-system 'chinese-iso-8bit)
(set-terminal-coding-system 'chinese-iso-8bit)
(set-clipboard-coding-system 'chinese-iso-8bit)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;$)AFdK{;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defvar wl-tftp-download-to-arm-s-c nil "$)ASCSZ6(VFJ9SCDDVVOBTX7=08#,tJG<r5%!#nilJG84TS")
(display-time);
(setq-default make-backup-files nil);
;(find-file "c:/.emacs");
;(cd "e:/temacs");$)AFt6/J1GP;;5=V86(D?B<
(load "e:/temacs/myload.el")
(load "e:/temacs/wl-openfile-search.el")
(setq vc-default-back-end "CVS")
(global-set-key "\C-c\l" 'wl-openfile-search)
(setq mouse-wheel-scroll-amount 4);
(setq grep-command "grep -n -e \"\" *.c");grep
(global-unset-key [(insert)]);
(setq track-eol t);
(setq resize-mini-windows nil);mini$)A40?Z4sP!2;1d
(setq uniquify-buffer-name-style 'forward);$)A512ND<~VXC{#,J9SCK{CG5DD?B<WwG0W:
(setq display-time-24hr-format t);$)AJ1<dOTJ>D#J=
(setq display-time-day-and-date t)
(setq display-time-use-mail-icon t)
(setq display-time-interval 10)
(fset 'yes-or-no-p 'y-or-n-p);$)A<r5%NJ4p
(global-font-lock-mode 1);$)ASo7(<SAA
(blink-cursor-mode -1);$)A9b1j2;IA
(point-to-register 46);$)A6(N;WV7{.<D4fFwN*51G0N;VC
(defun register-to-scratch ()
"$)AIh6(R;8v<D4fFw>5=scratch5DN;VC"
(save-excursion
(set-buffer (other-buffer))
(point-to-register 62);$)A6(N;WV7{><D4fFwN*51G0N;VC
)
)
(register-to-scratch)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;C-hook;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(add-hook 'c-mode-common-hook '(lambda () (c-set-style "wanglei")));$)A6(VF035D7g8q
(add-hook 'c-mode-common-hook;$)A6(VF035D7g8q
'(lambda () (c-add-style "wanglei"
'("k&r"
(c-basic-offset . 4)
) t)))
(add-hook 'c-mode-common-hook '(lambda () ;TAB$)ASPH:Ku9&D\
(local-set-key "\t" 'c-indent-line-or-region))
)
(add-hook 'c-mode-common-hook '(lambda () ;$)A;;PP8=4xKu=xP'9{
(local-set-key [return] 'newline-and-indent))
)
(add-hook 'c-mode-common-hook '(lambda () ;C$)AR2SC//W"JM
(progn (setq comment-start "//") (setq comment-end ""))
))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;$)AWT6(Re:/J};;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun wl-kill-whole-line ()
"$)AI1K@R;U{PP"
(interactive)
(beginning-of-line)
(kill-line)
)
(global-set-key [C-delete] 'wl-kill-whole-line)
(defun wl-swich-other-buffer ()
"c-x b$)AL+71#,NROkR*<r5%5CGP;;04<|:M9&D\"
(interactive)
(switch-to-buffer (other-buffer))
)
(global-set-key [C-tab] 'wl-swich-other-buffer)
(defun wl-copy-and-yank-line ()
"$)AWTVFVX84PPC|An"
(interactive)
(wl-kill-whole-line)
(yank)
(open-line 1)
(yank)
(backward-delete-char 1)
)
(global-set-key "\C-o" 'wl-copy-and-yank-line);C-o$)AT-@4JG?*R;8vPB5D?UPP#,SP_cSC#?2;HgSCret
(defun sc1 (aa)
"$)A5wJT:/J}#,D#7B4.?ZJd3v#,Jd3v5=R;8vPB5DAYJ1;:3eGxVP"
(find-file "wl-test")
(let (ms)
(setq ms (format "%d\n" aa))
(goto-char (point-max))
(insert ms)
)
)
(defun sc2 (aa)
"$)A5wJT:/J}#,D#7B4.?ZJd3v#,Jd3v5=R;8vPB5DAYJ1;:3eGxVP"
(find-file "wl-test")
(goto-char (point-max))
(insert aa)
(insert "\n")
)
(defun wl-view-scroll-forward (&optional lines)
"Move forward one line or LINES lines."
(interactive "p")
(scroll-up lines)
(if (not (eq scroll-preserve-screen-position 'keep))
(next-line lines)))
(defun wl-view-scroll-backward (&optional lines)
"Move backward one line or LINES lines."
(interactive "p")
(scroll-down lines)
(if (not (eq scroll-preserve-screen-position 'keep))
(previous-line lines)))
(defun wl-kill-this-buffer ()
"$)A3-1pHK5D#,7@V92;P!PD9X5tAKscratch;:3eGx"
(interactive)
(if (equal (buffer-name) "*scratch*")
(progn (erase-buffer)
(set-buffer-modified-p nil)
(bury-buffer))
(kill-buffer (current-buffer))))
(defun wl-tftp-download-to-arm-simple ()
"$)A:G:G#,UR5=</3I9$>_5D7=7(AK#,:\<r5%#,2;9}D?B<2;JG:\Ai;n
bin$)AND<~1XPk7ETZ./binVP#,U}3#Gi?vOBTZT4ND<~40?ZOBOBTX3LPr#,DGC4T43LPrS&8CTZ./D?B<#,6xbinTZ./bin/D?B<
$)AW"Rb#,Ub8v:/J}SCSZNR5DP!5D2bJTOnD?#,T43LPrS&8CTZ./D?B<#,6xbinTZ./bin/D?B<"
(interactive)
(let* (
(ppp (car
(directory-files
(concat (file-name-directory (buffer-file-name (current-buffer))) "/bin") nil "^.*\.bin$")))
(comm-arg (concat "tftp -i 192.168.1.100 put ./bin/" ppp)))
(compile-internal
; "tftp -i 192.168.1.100 put ./bin/lttest.bin"
comm-arg
"No more grep hits" "tftp"
)
)
)
(defun wl-tftp-download-to-arm-complex ()
"$)A:G:G#,UR5=</3I9$>_5D7=7(AK#,:\<r5%#,2;9}D?B<2;JG:\Ai;n
bin$)AND<~1XPk7ETZ./binVP#,U}3#Gi?vOBTZT4ND<~40?ZOBOBTX3LPr#,DGC4T43LPrS&8CTZ./D?B<#,6xbinTZ./bin/D?B<
$)AW"Rb#,Ub8v:/J}SCSZNR5DU}J=5D2bJTOnD?#,T43LPrS&8CTZ./srcD?B<#,6xbinTZ./bin/D?B<
$)AWv5D2;JG:\Ai;n#,=+>M0I"
(interactive)
(let* (
(ppp (car
(directory-files
(concat (file-name-directory (buffer-file-name (current-buffer))) "../bin") nil "^.*\.bin$")))
(comm-arg (concat "tftp -i 192.168.1.100 put ../bin/" ppp)))
(compile-internal comm-arg "No more grep hits" "tftp")
)
)
(defun wl-tftp-download-to-arm ()
"$)ARrN*Ok0Q28v:/J}</3IFp@4#,KyRTOk5=SC1dA?Ww?*9X5D7=7(#,>u5C:\1?
$)A2;9}C;0l7(#,J1<d=tFH"
(interactive)
(if wl-tftp-download-to-arm-s-c
(wl-tftp-download-to-arm-simple)
(wl-tftp-download-to-arm-complex)
)
)
(global-set-key "\C-cd" 'wl-tftp-download-to-arm)
(defun wl-scroll-up-nomark ()
"$)A2;K,T$6(5D7-R39&D\:\>CAK#,RrN*7-R3:s9b1jE\5=WnIO1_!#!#!#"
(interactive)
(scroll-up-nomark)
(recenter)
)
(global-set-key [next] 'wl-scroll-up-nomark)
(defun wl-scroll-down-nomark ()
"$)A2;K,T$6(5D7-R39&D\:\>CAK#,RrN*7-R3:s9b1jE\5=WnIO1_!#!#!#"
(interactive)
(scroll-down-nomark)
(recenter)
)
(global-set-key [prior] 'wl-scroll-down-nomark)
(defun wl-scroll-up ()
"$)AR;V1RT@4O2;6editplus5Dctrl+IOOB<|RF6/7=J=#,KyRTWvAKR;8v"
(interactive)
(scroll-up 5))
(defun wl-scroll-down ()
"$)AR;V1RT@4O2;6editplus5Dctrl+IOOB<|RF6/7=J=#,KyRTWvAKR;8v"
(interactive)
(scroll-down 5))
(global-set-key [C-up] 'wl-scroll-down)
(global-set-key [C-down] 'wl-scroll-up)
(put 'downcase-region 'disabled nil)
(defun wl-insert-current-date ()
"$)AD#7Beditplus,2eHk51G0J1<dHUFZ"
(interactive)
(insert-string (current-time-string)))
(put 'upcase-region 'disabled nil)
(defun wl-scroll-up-n ()
""
(interactive)
(forward-line-nomark 5))
(defun wl-scroll-down-n ()
""
(interactive)
(previous-line-nomark 5))
(global-set-key [M-up] 'wl-scroll-down-n)
(global-set-key [M-down] 'wl-scroll-up-n)
(defun wl-move-right-n ()
""
(interactive)
(forward-char-nomark 7))
(defun wl-move-left-n ()
""
(interactive)
(backward-char-nomark 7))
(global-set-key [M-right] 'wl-move-right-n)
(global-set-key [M-left] 'wl-move-left-n)
(global-set-key "\M-J" 'wl-move-left-n);
(global-set-key "\M-K" 'wl-scroll-up-n);
(global-set-key "\M-L" 'wl-move-right-n);
(global-set-key "\M-I" 'wl-scroll-down-n);
;(defun wl-mouse-buffer-menu-left ()
; ""
; (interactive)
; (mouse-buffer-menu))
;(global-set-key [apps] 'wl-mouse-buffer-menu-left)
|
|
楼主
标题置顶
标题高亮
