source $VIMRUNTIME/gvimrc_example.vim
"source $VIMRUNTIME/mswin.vim
set ic
set is
set hls
set hid
set nocompatible
set cursorline
set ruler
set nu
set guioptions -=T
color darkblue
set winaltkeys=no
map <f3> :buffers<cr>
map <c-a> ^
imap <c-a> <esc>^i
map <c-e> $
imap <c-e> <esc>$a
command Myconf :argedit ~/.vimrc
au GUIEnter * simalt ~x
silent! badd scratch
silent! bn
setlocal buftype=nofile
setlocal bufhidden=hide
setlocal noswapfile
my $srcdir = "0321303474";
my @files = glob "./$srcdir/*.html";
for my $file (@files) {
if (-f $file) {
print $file,"/n";
my ($FH,$FHO);
open $FH,"<",$file;
my $newfilename = $file . "bak";
# open $FHO, ">", $newfilename;
# while(my $line=<$FH>) {
# $line =~ s/;380138//g;
# print $FHO $line;
# }
close $FH;
close $FHO;
}
}
;byte编译一个目录下的所有el文件
(defun byte-compile-directory (dir)
"byte compile a directory"
(interactive "D")
;(message dir)
(mapcar #'(lambda(file)
(when (string-equal (file-name-extension file) "el")
(byte-compile-file (concat dir file))))
;(message (concat dir file))))
(directory-files dir)))