[Last updated: <2006/11/03 06:51:16 +0900>]
*scratch*
#<function: car> , 41
gethash , 32
list , 22
apply , 20
string= , 18
system:*puthash , 16
string-matchp , 14
system:pack-uint32 , 14
#<function: length> , 12
match-string , 12
outline-tree2::outline-tree-data-hash , 12
outline-tree2::outline-tree-data-set , 12
scan-buffer , 12
system:pack-int32 , 12
#<lexical-closure: (anonymous)> , 11
make-local-variable , 11
car , 10
cons , 10
null , 10
#<function: string-equal> , 9
assoc , 9
cdr , 9
boole , 8
get-buffer-file-name , 8
mapcar , 8
#<function: *copy-into-seq> , 6
#<function: +> , 6
#<lexical-closure: concatenate> , 6
concat , 6
file-exist-p , 6
make-sequence , 6
run-hook-with-args , 6
system:*make-vector , 6
find-symbol , 5
get , 5
stringp , 5
#<function: set-buffer> , 4
buffer-name , 4
find , 4
logior , 4
not , 4
selected-buffer , 4
set-buffer , 4
system:clear-chunk , 4
system:make-chunk , 4
terpri , 4
treeview::treeview-data-get , 4
treeview::treeview-data-reference-get , 4
valid-path-p , 4
#<lexical-closure: (anonymous)> , 3
bufferp , 3
list* , 3
listp , 3
outline-tree2::outline-tree-data-get , 3
outline-tree2::outline-tree-exist-p , 3
reverse , 3
run-hooks , 3
selected-window , 3
string-match , 3
treeview::treeview-dll-get-hwnd , 3
treeview::treeview-exist-p , 3
treeview::treeview-get-hwnd , 3
#<function: format> , 2
#<function: string=> , 2
#<lexical-closure: editor::pseudo-frame-name> , 2
compiled-regexp-case-fold-p , 2
compiled-regexp-source , 2
convert-encoding-from-internal , 2
directory-namestring , 2
editor::find-file-scan-params , 2
fboundp , 2
file-directory-p , 2
file-namestring , 2
find-pseudo-frame , 2
format , 2
insert-file-contents , 2
kill-all-local-variables , 2
make-hash-table , 2
map-backslash-to-slash , 2
map-internal-to-ucs-2 , 2
member-if , 2
message , 2
minibuffer-window-p , 2
namestring , 2
outline-tree2::outline-tree-create-buffer-node-by-buffer , 2
outline-tree2::outline-tree-get-buffer-node-by-buffer , 2
outline-tree2::outline-tree-register-node , 2
outline-tree2::outline-tree-revdata-get-buffer-node , 2
regexpp , 2
string-downcase , 2
system:*index-slot-value , 2
system:copy-chunk , 2
system:make-string-chunk , 2
treeview::treeview-app-id-get-treeview-id , 2
treeview::treeview-dll-get-htree , 2
treeview::treeview-get-htree , 2
treeview::treeview-insert-item , 2
use-keymap , 2
use-syntax-table , 2
winapi:SendMessage , 2
winapi:make-TVINSERTSTRUCTW , 2
winapi:make-TVITEMEXW , 2
#<lexical-closure: (anonymous)> , 1
#<lexical-closure: (anonymous)> , 1
#<lexical-closure: (anonymous)> , 1
#<lexical-closure: (anonymous)> , 1
#<lexical-closure: (anonymous)> , 1
#<lexical-closure: auto-find-file-read-only> , 1
#<lexical-closure: editor::clickable-uri-regexp-equal> , 1
#<lexical-closure: make-directory-unless-directory-exists> , 1
append , 1
assoc-if , 1
begin-wait-cursor , 1
buffer-in-any-pseudo-frame-p , 1
char-encoding-p , 1
check-valid-pathname , 1
clickable-uri-emphasis , 1
clickable-uri-emphasis-force , 1
compile-regexp , 1
create-file-buffer , 1
current-window-configuration , 1
default-directory , 1
deleted-buffer-p , 1
editor::create-buffer-hook , 1
editor::find-buffer-colors , 1
editor::find-file-auto-encoding , 1
editor::find-file-auto-mode , 1
editor::find-file-internal , 1
editor::find-file-lock-file , 1
editor::find-file-notice , 1
editor::find-file-process-params , 1
editor::find-file-readin , 1
editor::find-file-set-column , 1
editor::open-backup-set-mode , 1
editor::set-encoding-eol-code-1 , 1
editor::set-encoding-eol-code-before-find-file-hook , 1
editor::set-encoding-eol-code-find-file-hooks , 1
editor::xdoc2txt-enable-p , 1
editor::xdoc2txt-file-matchp , 1
editor::xdoc2txt-file-regexp , 1
editor::xdoc2txt-find-file-hook , 1
end-wait-cursor , 1
eq , 1
erase-buffer , 1
file-writable-p , 1
find-file , 1
find-http , 1
find-package , 1
functionp , 1
fundamental-mode , 1
get-file-buffer , 1
integerp , 1
lisp-keyword-definition , 1
lisp-mode , 1
local-variable-p , 1
mapc , 1
my-lisp-mode-hook , 1
nbutlast , 1
outline-tree2::outline-tree-buffer-node-obsolete-p , 1
outline-tree2::outline-tree-data-get-buffer , 1
outline-tree2::outline-tree-data-get-buffer-name , 1
outline-tree2::outline-tree-data-get-namestring , 1
outline-tree2::outline-tree-find-file-outline-create-function, 1
outline-tree2::outline-tree-get-folder-node-by-folder-name , 1
outline-tree2::outline-tree-get-selected-node , 1
outline-tree2::outline-tree-get-target-buffer , 1
outline-tree2::outline-tree-get-target-window , 1
outline-tree2::outline-tree-insert-buffer-node , 1
outline-tree2::outline-tree-insert-folder-node , 1
outline-tree2::outline-tree-node-valid-p , 1
outline-tree2::outline-tree-register-buffer-node , 1
outline-tree2::outline-tree-register-folder-node , 1
outline-tree2::outline-tree-revdata-get-folder-node , 1
outline-tree2::outline-tree-revdata-set-buffer-node , 1
outline-tree2::outline-tree-revdata-set-folder-node , 1
parse-integer , 1
path-equal , 1
pathname-host , 1
point-max , 1
run-hook-with-args-until-success , 1
select-pseudo-frame , 1
set-buffer-colors , 1
set-read-only-color , 1
set-sjis-crlf-hook , 1
special-file-p , 1
split-string , 1
substring , 1
template-insert:template-insert , 1
treeview::treeview-dll-expand , 1
treeview::treeview-dll-get-selected-item , 1
treeview::treeview-expand-expand , 1
treeview::treeview-get-selected-item , 1
treeview::treeview-hitem-valid-p , 1
truename , 1
window-buffer , 1
windowp , 1
zerop , 1
------------------------------------------------------------------------------
[ROOT] -回数- -MIN- -MAX- -AVG- -SUM-(ms)
└ find-file 1 95.588 95.588 95.588 95.588
├ begin-wait-cursor 1 0.0092 0.0092 0.0092 0.0092
├ listp 1 0.0045 0.0045 0.0045 0.0045
├ editor::find-file-internal 1 95.318 95.318 95.318 95.318
│ ├ run-hook-with-args-until-success 1 34.195 34.195 34.195 34.195
│ │ ├ #<lexical-closure: (anonymous)> 1 0.5054 0.5054 0.5054 0.5054
│ │ │ ├ list 2 0.0036 0.0039 0.0038 0.0075
│ │ │ ├ cons 1 0.0039 0.0039 0.0039 0.0039
│ │ │ ├ find-pseudo-frame 2 0.1193 0.1668 0.143 0.2861
│ │ │ │ └ find 2 0.0908 0.1363 0.1136 0.2271
│ │ │ │ ├ #<lexical-closure: editor::pseudo-frame-name> 2 0.0327 0.0751 0.0539 0.1078
│ │ │ │ │ └ system:*index-slot-value 2 0.0036 0.0045 0.0041 0.0081
│ │ │ │ └ #<function: string=> 2 0.0042 0.0047 0.0045 0.0089
│ │ │ ├ not 1 0.0042 0.0042 0.0042 0.0042
│ │ │ └ select-pseudo-frame 1 0.0056 0.0056 0.0056 0.0056
│ │ ├ find-http 1 0.1062 0.1062 0.1062 0.1062
│ │ │ ├ cons 1 0.0036 0.0036 0.0036 0.0036
│ │ │ ├ list 1 0.0039 0.0039 0.0039 0.0039
│ │ │ └ string-matchp 1 0.0129 0.0129 0.0129 0.0129
│ │ ├ #<lexical-closure: (anonymous)> 1 0.0056 0.0056 0.0056 0.0056
│ │ ├ #<lexical-closure: (anonymous)> 1 0.1 0.1 0.1 0.1
│ │ │ ├ cons 1 0.0036 0.0036 0.0036 0.0036
│ │ │ ├ list 1 0.0039 0.0039 0.0039 0.0039
│ │ │ └ string-matchp 1 0.0081 0.0081 0.0081 0.0081
│ │ ├ #<lexical-closure: make-directory-unless-directory-exists> 1 0.2612 0.2612 0.2612 0.2612
│ │ │ ├ directory-namestring 1 0.0089 0.0089 0.0089 0.0089
│ │ │ ├ list 2 0.0036 0.0039 0.0038 0.0075
│ │ │ ├ cons 1 0.0036 0.0036 0.0036 0.0036
│ │ │ ├ check-valid-pathname 1 0.0643 0.0643 0.0643 0.0643
│ │ │ └ not 1 0.0036 0.0036 0.0036 0.0036
│ │ ├ editor::set-encoding-eol-code-before-find-file-hook 1 32.649 32.649 32.649 32.649
│ │ │ ├ stringp 1 0.0042 0.0042 0.0042 0.0042
│ │ │ ├ valid-path-p 1 0.0282 0.0282 0.0282 0.0282
│ │ │ ├ file-exist-p 1 0.0235 0.0235 0.0235 0.0235
│ │ │ └ editor::set-encoding-eol-code-1 1 32.463 32.463 32.463 32.463
│ │ │ ├ stringp 2 0.0036 0.0039 0.0038 0.0075
│ │ │ ├ valid-path-p 1 0.0235 0.0235 0.0235 0.0235
│ │ │ ├ split-string 1 0.0064 0.0064 0.0064 0.0064
│ │ │ ├ pathname-host 1 0.005 0.005 0.005 0.005
│ │ │ ├ format 1 0.0159 0.0159 0.0159 0.0159
│ │ │ ├ substring 1 0.0047 0.0047 0.0047 0.0047
│ │ │ ├ assoc 5 0.0324 0.1509 0.1024 0.5121
│ │ │ │ └ string= 17 0.0039 0.0047 0.0041 0.0701
│ │ │ ├ map-backslash-to-slash 2 0.0047 0.0053 0.005 0.0101
│ │ │ ├ path-equal 1 31.332 31.332 31.332 31.332
│ │ │ └ nbutlast 1 0.0109 0.0109 0.0109 0.0109
│ │ └ editor::xdoc2txt-find-file-hook 1 0.3607 0.3607 0.3607 0.3607
│ │ ├ editor::xdoc2txt-enable-p 1 0.045 0.045 0.045 0.045
│ │ │ └ functionp 1 0.0042 0.0042 0.0042 0.0042
│ │ └ editor::xdoc2txt-file-matchp 1 0.2576 0.2576 0.2576 0.2576
│ │ ├ editor::xdoc2txt-file-regexp 1 0.1483 0.1483 0.1483 0.1483
│ │ │ └ format 1 0.114 0.114 0.114 0.114
│ │ └ string-matchp 1 0.05 0.05 0.05 0.05
│ ├ namestring 1 0.0081 0.0081 0.0081 0.0081
│ ├ file-exist-p 1 0.0584 0.0584 0.0584 0.0584
│ ├ truename 1 1.52 1.52 1.52 1.52
│ ├ special-file-p 1 0.6509 0.6509 0.6509 0.6509
│ ├ file-directory-p 1 0.0274 0.0274 0.0274 0.0274
│ ├ valid-path-p 1 0.0237 0.0237 0.0237 0.0237
│ ├ get-file-buffer 1 0.0075 0.0075 0.0075 0.0075
│ ├ selected-buffer 1 0.0042 0.0042 0.0042 0.0042
│ ├ create-file-buffer 1 19.313 19.313 19.313 19.313
│ │ ├ outline-tree2::outline-tree-create-buffer-node-by-buffer 1 18.632 18.632 18.632 18.632
│ │ │ ├ treeview::treeview-app-id-get-treeview-id 1 0.0394 0.0394 0.0394 0.0394
│ │ │ │ └ gethash 1 0.0047 0.0047 0.0047 0.0047
│ │ │ ├ treeview::treeview-data-get 2 0.0953 0.0995 0.0974 0.1947
│ │ │ │ ├ treeview::treeview-data-reference-get 2 0.0344 0.0355 0.0349 0.0698
│ │ │ │ │ └ gethash 2 0.0039 0.0039 0.0039 0.0078
│ │ │ │ └ gethash 2 0.0039 0.0042 0.0041 0.0081
│ │ │ ├ outline-tree2::outline-tree-exist-p 1 0.1137 0.1137 0.1137 0.1137
│ │ │ │ └ treeview::treeview-exist-p 1 0.0813 0.0813 0.0813 0.0813
│ │ │ │ └ treeview::treeview-get-hwnd 1 0.0489 0.0489 0.0489 0.0489
│ │ │ │ └ treeview::treeview-dll-get-hwnd 1 0.017 0.017 0.017 0.017
│ │ │ ├ listp 1 0.0045 0.0045 0.0045 0.0045
│ │ │ ├ bufferp 1 0.0045 0.0045 0.0045 0.0045
│ │ │ ├ outline-tree2::outline-tree-get-buffer-node-by-buffer 1 0.0665 0.0665 0.0665 0.0665
│ │ │ │ └ outline-tree2::outline-tree-revdata-get-buffer-node 1 0.0358 0.0358 0.0358 0.0358
│ │ │ │ └ gethash 1 0.0045 0.0045 0.0045 0.0045
│ │ │ ├ deleted-buffer-p 1 0.0039 0.0039 0.0039 0.0039
│ │ │ ├ buffer-name 1 0.0047 0.0047 0.0047 0.0047
│ │ │ ├ get-buffer-file-name 1 0.0039 0.0039 0.0039 0.0039
│ │ │ ├ directory-namestring 1 0.0059 0.0059 0.0059 0.0059
│ │ │ ├ namestring 1 0.0053 0.0053 0.0053 0.0053
│ │ │ ├ string-match 1 0.0081 0.0081 0.0081 0.0081
│ │ │ ├ outline-tree2::outline-tree-get-folder-node-by-folder-name 1 0.0673 0.0673 0.0673 0.0673
│ │ │ │ └ outline-tree2::outline-tree-revdata-get-folder-node 1 0.0372 0.0372 0.0372 0.0372
│ │ │ │ └ gethash 1 0.0056 0.0056 0.0056 0.0056
│ │ │ ├ outline-tree2::outline-tree-insert-folder-node 1 8.9537 8.9537 8.9537 8.9537
│ │ │ │ ├ treeview::treeview-insert-item 1 8.0516 8.0516 8.0516 8.0516
│ │ │ │ │ ├ winapi:make-TVITEMEXW 1 0.0377 0.0377 0.0377 0.0377
│ │ │ │ │ │ └ system:make-chunk 1 0.0042 0.0042 0.0042 0.0042
│ │ │ │ │ ├ winapi:make-TVINSERTSTRUCTW 1 0.0363 0.0363 0.0363 0.0363
│ │ │ │ │ │ └ system:make-chunk 1 0.0039 0.0039 0.0039 0.0039
│ │ │ │ │ ├ system:clear-chunk 2 0.0042 0.005 0.0046 0.0092
│ │ │ │ │ ├ logior 2 0.0676 0.0715 0.0696 0.1391
│ │ │ │ │ │ └ boole 4 0.0036 0.0056 0.0042 0.0168
│ │ │ │ │ ├ system:pack-uint32 7 0.0036 0.0042 0.0039 0.0271
│ │ │ │ │ ├ concat 1 0.357 0.357 0.357 0.357
│ │ │ │ │ │ └ apply 1 0.326 0.326 0.326 0.326
│ │ │ │ │ │ └ #<lexical-closure: concatenate> 1 0.2975 0.2975 0.2975 0.2975
│ │ │ │ │ │ ├ mapcar 1 0.0637 0.0637 0.0637 0.0637
│ │ │ │ │ │ │ └ #<function: length> 2 0.0039 0.0039 0.0039 0.0078
│ │ │ │ │ │ ├ apply 2 0.0338 0.0346 0.0342 0.0684
│ │ │ │ │ │ │ ├ #<function: +> 1 0.0042 0.0042 0.0042 0.0042
│ │ │ │ │ │ │ └ #<function: *copy-into-seq> 1 0.0045 0.0045 0.0045 0.0045
│ │ │ │ │ │ └ make-sequence 1 0.0433 0.0433 0.0433 0.0433
│ │ │ │ │ │ └ system:*make-vector 1 0.0053 0.0053 0.0053 0.0053
│ │ │ │ │ ├ map-internal-to-ucs-2 1 0.0497 0.0497 0.0497 0.0497
│ │ │ │ │ │ └ convert-encoding-from-internal 1 0.0156 0.0156 0.0156 0.0156
│ │ │ │ │ ├ system:make-string-chunk 1 0.005 0.005 0.005 0.005
│ │ │ │ │ ├ system:pack-int32 6 0.0036 0.0039 0.0039 0.0232
│ │ │ │ │ ├ system:copy-chunk 1 0.0061 0.0061 0.0061 0.0061
│ │ │ │ │ ├ treeview::treeview-get-htree 1 0.0402 0.0402 0.0402 0.0402
│ │ │ │ │ │ └ treeview::treeview-dll-get-htree 1 0.005 0.005 0.005 0.005
│ │ │ │ │ └ winapi:SendMessage 1 1.498 1.498 1.498 1.498
│ │ │ │ └ outline-tree2::outline-tree-register-folder-node 1 0.8233 0.8233 0.8233 0.8233
│ │ │ │ ├ outline-tree2::outline-tree-revdata-set-folder-node 1 0.0388 0.0388 0.0388 0.0388
│ │ │ │ │ └ system:*puthash 1 0.0061 0.0061 0.0061 0.0061
│ │ │ │ ├ outline-tree2::outline-tree-data-set 1 0.1777 0.1777 0.1777 0.1777
│ │ │ │ │ ├ outline-tree2::outline-tree-data-hash 1 0.1117 0.1117 0.1117 0.1117
│ │ │ │ │ │ ├ gethash 1 0.005 0.005 0.005 0.005
│ │ │ │ │ │ ├ make-hash-table 1 0.007 0.007 0.007 0.007
│ │ │ │ │ │ └ system:*puthash 1 0.0045 0.0045 0.0045 0.0045
│ │ │ │ │ └ system:*puthash 1 0.0039 0.0039 0.0039 0.0039
│ │ │ │ └ outline-tree2::outline-tree-register-node 1 0.5048 0.5048 0.5048 0.5048
│ │ │ │ └ outline-tree2::outline-tree-data-set 4 0.0958 0.1073 0.0988 0.3953
│ │ │ │ ├ outline-tree2::outline-tree-data-hash 4 0.0346 0.0349 0.0348 0.1391
│ │ │ │ │ └ gethash 4 0.0039 0.0047 0.0043 0.017
│ │ │ │ └ system:*puthash 4 0.0039 0.0042 0.004 0.0159
│ │ │ ├ outline-tree2::outline-tree-insert-buffer-node 1 2.7403 2.7403 2.7403 2.7403
│ │ │ │ ├ buffer-name 1 0.0053 0.0053 0.0053 0.0053
│ │ │ │ ├ get-buffer-file-name 1 0.0042 0.0042 0.0042 0.0042
│ │ │ │ ├ file-namestring 1 0.0101 0.0101 0.0101 0.0101
│ │ │ │ ├ treeview::treeview-insert-item 1 1.5139 1.5139 1.5139 1.5139
│ │ │ │ │ ├ winapi:make-TVITEMEXW 1 0.0358 0.0358 0.0358 0.0358
│ │ │ │ │ │ └ system:make-chunk 1 0.0039 0.0039 0.0039 0.0039
│ │ │ │ │ ├ winapi:make-TVINSERTSTRUCTW 1 0.0358 0.0358 0.0358 0.0358
│ │ │ │ │ │ └ system:make-chunk 1 0.0039 0.0039 0.0039 0.0039
│ │ │ │ │ ├ system:clear-chunk 2 0.0039 0.0039 0.0039 0.0078
│ │ │ │ │ ├ logior 2 0.067 0.0925 0.0798 0.1595
│ │ │ │ │ │ └ boole 4 0.0036 0.0053 0.0043 0.017
│ │ │ │ │ ├ system:pack-uint32 7 0.0036 0.0042 0.0039 0.0274
│ │ │ │ │ ├ concat 1 0.3425 0.3425 0.3425 0.3425
│ │ │ │ │ │ └ apply 1 0.3126 0.3126 0.3126 0.3126
│ │ │ │ │ │ └ #<lexical-closure: concatenate> 1 0.2844 0.2844 0.2844 0.2844
│ │ │ │ │ │ ├ mapcar 1 0.0634 0.0634 0.0634 0.0634
│ │ │ │ │ │ │ └ #<function: length> 2 0.0039 0.0042 0.0041 0.0081
│ │ │ │ │ │ ├ apply 2 0.033 0.0346 0.0338 0.0676
│ │ │ │ │ │ │ ├ #<function: +> 1 0.0039 0.0039 0.0039 0.0039
│ │ │ │ │ │ │ └ #<function: *copy-into-seq> 1 0.0045 0.0045 0.0045 0.0045
│ │ │ │ │ │ └ make-sequence 1 0.0419 0.0419 0.0419 0.0419
│ │ │ │ │ │ └ system:*make-vector 1 0.0056 0.0056 0.0056 0.0056
│ │ │ │ │ ├ map-internal-to-ucs-2 1 0.0475 0.0475 0.0475 0.0475
│ │ │ │ │ │ └ convert-encoding-from-internal 1 0.0126 0.0126 0.0126 0.0126
│ │ │ │ │ ├ system:make-string-chunk 1 0.005 0.005 0.005 0.005
│ │ │ │ │ ├ system:pack-int32 6 0.0036 0.0042 0.0039 0.0232
│ │ │ │ │ ├ system:copy-chunk 1 0.0042 0.0042 0.0042 0.0042
│ │ │ │ │ ├ treeview::treeview-get-htree 1 0.0358 0.0358 0.0358 0.0358
│ │ │ │ │ │ └ treeview::treeview-dll-get-htree 1 0.0042 0.0042 0.0042 0.0042
│ │ │ │ │ └ winapi:SendMessage 1 0.0156 0.0156 0.0156 0.0156
│ │ │ │ └ outline-tree2::outline-tree-register-buffer-node 1 1.0521 1.0521 1.0521 1.0521
│ │ │ │ ├ outline-tree2::outline-tree-revdata-set-buffer-node 1 0.0338 0.0338 0.0338 0.0338
│ │ │ │ │ └ system:*puthash 1 0.0039 0.0039 0.0039 0.0039
│ │ │ │ ├ outline-tree2::outline-tree-data-set 3 0.0967 0.1573 0.1169 0.3506
│ │ │ │ │ ├ outline-tree2::outline-tree-data-hash 3 0.0366 0.0961 0.0565 0.1696
│ │ │ │ │ │ ├ gethash 3 0.0039 0.0042 0.0041 0.0123
│ │ │ │ │ │ ├ make-hash-table 1 0.005 0.005 0.005 0.005
│ │ │ │ │ │ └ system:*puthash 1 0.0039 0.0039 0.0039 0.0039
│ │ │ │ │ └ system:*puthash 3 0.0039 0.0042 0.0041 0.0123
│ │ │ │ ├ file-namestring 1 0.0061 0.0061 0.0061 0.0061
│ │ │ │ └ outline-tree2::outline-tree-register-node 1 0.4914 0.4914 0.4914 0.4914
│ │ │ │ └ outline-tree2::outline-tree-data-set 4 0.093 0.0944 0.0937 0.3749
│ │ │ │ ├ outline-tree2::outline-tree-data-hash 4 0.0324 0.0338 0.0332 0.1327
│ │ │ │ │ └ gethash 4 0.0036 0.0039 0.0038 0.0154
│ │ │ │ └ system:*puthash 4 0.0036 0.0042 0.004 0.0159
│ │ │ ├ selected-window 1 0.0045 0.0045 0.0045 0.0045
│ │ │ ├ minibuffer-window-p 1 0.0039 0.0039 0.0039 0.0039
│ │ │ ├ set-buffer 1 0.0735 0.0735 0.0735 0.0735
│ │ │ │ ├ #<function: set-buffer> 1 0.0075 0.0075 0.0075 0.0075
│ │ │ │ └ run-hook-with-args 1 0.0045 0.0045 0.0045 0.0045
│ │ │ ├ buffer-in-any-pseudo-frame-p 1 0.0654 0.0654 0.0654 0.0654
│ │ │ │ └ member-if 1 0.0346 0.0346 0.0346 0.0346
│ │ │ │ └ #<lexical-closure: (anonymous)> 1 0.0047 0.0047 0.0047 0.0047
│ │ │ ├ treeview::treeview-expand-expand 1 5.1635 5.1635 5.1635 5.1635
│ │ │ │ ├ run-hook-with-args 2 0.0039 0.0042 0.0041 0.0081
│ │ │ │ └ treeview::treeview-dll-expand 1 5.0395 5.0395 5.0395 5.0395
│ │ │ ├ outline-tree2::outline-tree-get-selected-node 1 0.2595 0.2595 0.2595 0.2595
│ │ │ │ ├ outline-tree2::outline-tree-exist-p 1 0.0969 0.0969 0.0969 0.0969
│ │ │ │ │ └ treeview::treeview-exist-p 1 0.0665 0.0665 0.0665 0.0665
│ │ │ │ │ └ treeview::treeview-get-hwnd 1 0.0352 0.0352 0.0352 0.0352
│ │ │ │ │ └ treeview::treeview-dll-get-hwnd 1 0.0045 0.0045 0.0045 0.0045
│ │ │ │ └ treeview::treeview-get-selected-item 1 0.1025 0.1025 0.1025 0.1025
│ │ │ │ └ treeview::treeview-dll-get-selected-item 1 0.0098 0.0098 0.0098 0.0098
│ │ │ └ outline-tree2::outline-tree-node-valid-p 1 0.0369 0.0369 0.0369 0.0369
│ │ │ └ treeview::treeview-hitem-valid-p 1 0.0061 0.0061 0.0061 0.0061
│ │ └ editor::create-buffer-hook 1 0.5551 0.5551 0.5551 0.5551
│ │ ├ selected-window 1 0.0039 0.0039 0.0039 0.0039
│ │ ├ minibuffer-window-p 1 0.0039 0.0039 0.0039 0.0039
│ │ ├ set-buffer 1 0.0687 0.0687 0.0687 0.0687
│ │ │ ├ #<function: set-buffer> 1 0.0056 0.0056 0.0056 0.0056
│ │ │ └ run-hook-with-args 1 0.0039 0.0039 0.0039 0.0039
│ │ ├ fundamental-mode 1 0.1902 0.1902 0.1902 0.1902
│ │ │ ├ kill-all-local-variables 1 0.0047 0.0047 0.0047 0.0047
│ │ │ ├ use-keymap 1 0.005 0.005 0.005 0.005
│ │ │ ├ use-syntax-table 1 0.0053 0.0053 0.0053 0.0053
│ │ │ ├ make-local-variable 1 0.0045 0.0045 0.0045 0.0045
│ │ │ └ run-hooks 1 0.0039 0.0039 0.0039 0.0039
│ │ └ editor::find-buffer-colors 1 0.1442 0.1442 0.1442 0.1442
│ │ ├ buffer-name 1 0.0042 0.0042 0.0042 0.0042
│ │ ├ string= 1 0.0067 0.0067 0.0067 0.0067
│ │ ├ default-directory 1 0.0039 0.0039 0.0039 0.0039
│ │ └ assoc-if 1 0.0042 0.0042 0.0042 0.0042
│ ├ set-buffer 1 0.0645 0.0645 0.0645 0.0645
│ │ ├ #<function: set-buffer> 1 0.0042 0.0042 0.0042 0.0042
│ │ └ run-hook-with-args 1 0.0036 0.0036 0.0036 0.0036
│ ├ editor::find-file-auto-encoding 1 9.6725 9.6725 9.6725 9.6725
│ │ ├ insert-file-contents 1 8.7246 8.7246 8.7246 8.7246
│ │ ├ stringp 1 0.0053 0.0053 0.0053 0.0053
│ │ ├ char-encoding-p 1 0.0045 0.0045 0.0045 0.0045
│ │ ├ editor::find-file-scan-params 1 0.5336 0.5336 0.5336 0.5336
│ │ │ ├ scan-buffer 6 0.0053 0.0494 0.0259 0.1556
│ │ │ └ match-string 6 0.0042 0.0064 0.0048 0.0288
│ │ ├ assoc 1 0.0961 0.0961 0.0961 0.0961
│ │ │ └ #<function: string-equal> 3 0.0039 0.0053 0.0045 0.0134
│ │ ├ gethash 1 0.0064 0.0064 0.0064 0.0064
│ │ ├ selected-buffer 1 0.0039 0.0039 0.0039 0.0039
│ │ └ erase-buffer 1 0.0075 0.0075 0.0075 0.0075
│ ├ editor::find-file-readin 1 11.411 11.411 11.411 11.411
│ │ ├ file-exist-p 1 0.0542 0.0542 0.0542 0.0542
│ │ ├ message 1 1.0596 1.0596 1.0596 1.0596
│ │ │ ├ terpri 2 0.007 0.9199 0.4635 0.9269
│ │ │ └ apply 1 0.0408 0.0408 0.0408 0.0408
│ │ │ └ #<function: format> 1 0.0103 0.0103 0.0103 0.0103
│ │ ├ insert-file-contents 1 8.9059 8.9059 8.9059 8.9059
│ │ ├ editor::find-file-lock-file 1 0.0064 0.0064 0.0064 0.0064
│ │ └ editor::find-file-notice 1 1.1962 1.1962 1.1962 1.1962
│ │ ├ file-writable-p 1 0.0413 0.0413 0.0413 0.0413
│ │ └ message 1 1.0898 1.0898 1.0898 1.0898
│ │ ├ terpri 2 0.0061 0.9482 0.4772 0.9543
│ │ └ apply 1 0.043 0.043 0.043 0.043
│ │ └ #<function: format> 1 0.0126 0.0126 0.0126 0.0126
│ ├ editor::find-file-scan-params 1 0.5079 0.5079 0.5079 0.5079
│ │ ├ scan-buffer 6 0.0056 0.0433 0.0249 0.1492
│ │ └ match-string 6 0.0042 0.0053 0.0046 0.0274
│ ├ editor::find-file-process-params 1 8.7592 8.7592 8.7592 8.7592
│ │ ├ fboundp 1 0.0042 0.0042 0.0042 0.0042
│ │ └ mapc 1 8.6938 8.6938 8.6938 8.6938
│ │ └ #<lexical-closure: (anonymous)> 3 0.2654 5.9795 2.8695 8.6086
│ │ ├ assoc 3 0.0335 0.0964 0.0639 0.1916
│ │ │ └ #<function: string-equal> 6 0.0042 0.0056 0.0046 0.0274
│ │ ├ editor::find-file-auto-mode 1 5.7935 5.7935 5.7935 5.7935
│ │ │ ├ concat 2 0.3243 0.3523 0.3383 0.6766
│ │ │ │ └ apply 2 0.2956 0.3218 0.3087 0.6174
│ │ │ │ └ #<lexical-closure: concatenate> 2 0.2687 0.2933 0.281 0.5621
│ │ │ │ ├ mapcar 2 0.0603 0.0623 0.0613 0.1226
│ │ │ │ │ └ #<function: length> 4 0.0036 0.0042 0.0038 0.0154
│ │ │ │ ├ apply 4 0.0321 0.0341 0.0329 0.1316
│ │ │ │ │ ├ #<function: +> 2 0.0036 0.0039 0.0038 0.0075
│ │ │ │ │ └ #<function: *copy-into-seq> 2 0.0039 0.0047 0.0043 0.0087
│ │ │ │ └ make-sequence 2 0.0363 0.057 0.0467 0.0933
│ │ │ │ └ system:*make-vector 2 0.0042 0.0059 0.005 0.0101
│ │ │ ├ find-symbol 2 0.0129 0.0179 0.0154 0.0307
│ │ │ ├ string-downcase 1 0.0056 0.0056 0.0056 0.0056
│ │ │ ├ fboundp 1 0.0039 0.0039 0.0039 0.0039
│ │ │ └ lisp-mode 1 4.8772 4.8772 4.8772 4.8772
│ │ │ ├ kill-all-local-variables 1 0.0047 0.0047 0.0047 0.0047
│ │ │ ├ use-keymap 1 0.005 0.005 0.005 0.005
│ │ │ ├ use-syntax-table 1 0.005 0.005 0.005 0.005
│ │ │ ├ make-local-variable 7 0.0039 0.0047 0.0042 0.0296
│ │ │ └ run-hooks 1 4.5394 4.5394 4.5394 4.5394
│ │ │ ├ #<lexical-closure: (anonymous)> 1 0.024 0.024 0.024 0.024
│ │ │ ├ my-lisp-mode-hook 1 0.038 0.038 0.038 0.038
│ │ │ │ └ make-local-variable 1 0.0042 0.0042 0.0042 0.0042
│ │ │ └ lisp-keyword-definition 1 1.3848 1.3848 1.3848 1.3848
│ │ │ ├ reverse 1 0.0039 0.0039 0.0039 0.0039
│ │ │ ├ car 3 0.0036 0.0036 0.0036 0.0109
│ │ │ ├ cons 3 0.0036 0.0039 0.0037 0.0112
│ │ │ ├ list* 1 0.0039 0.0039 0.0039 0.0039
│ │ │ ├ list 7 0.0036 0.0039 0.0037 0.0257
│ │ │ ├ cdr 3 0.0036 0.0036 0.0036 0.0109
│ │ │ ├ null 4 0.0036 0.0039 0.0038 0.0151
│ │ │ ├ make-local-variable 2 0.0042 0.0045 0.0043 0.0087
│ │ │ ├ local-variable-p 1 0.0045 0.0045 0.0045 0.0045
│ │ │ ├ not 1 0.0039 0.0039 0.0039 0.0039
│ │ │ └ append 1 0.0042 0.0042 0.0042 0.0042
│ │ ├ get 5 0.0036 0.0045 0.0039 0.0196
│ │ ├ editor::find-file-set-column 1 0.0838 0.0838 0.0838 0.0838
│ │ │ ├ string-match 1 0.0142 0.0142 0.0142 0.0142
│ │ │ └ parse-integer 1 0.0081 0.0081 0.0081 0.0081
│ │ └ outline-tree2::outline-tree-find-file-outline-create-function 1 2.1849 2.1849 2.1849 2.1849
│ │ ├ find-package 1 0.0075 0.0075 0.0075 0.0075
│ │ ├ mapcar 1 1.1742 1.1742 1.1742 1.1742
│ │ │ └ #<function: car> 41 0.0034 0.0039 0.0036 0.1489
│ │ ├ find-symbol 3 0.0059 0.0131 0.0102 0.0307
│ │ ├ concat 2 0.3297 0.3447 0.3372 0.6744
│ │ │ └ apply 2 0.3006 0.3168 0.3087 0.6174
│ │ │ └ #<lexical-closure: concatenate> 2 0.2721 0.2894 0.2808 0.5615
│ │ │ ├ mapcar 2 0.0595 0.0601 0.0598 0.1196
│ │ │ │ └ #<function: length> 4 0.0036 0.0039 0.0037 0.0148
│ │ │ ├ apply 4 0.0321 0.0344 0.0335 0.1341
│ │ │ │ ├ #<function: +> 2 0.0036 0.0036 0.0036 0.0073
│ │ │ │ └ #<function: *copy-into-seq> 2 0.0039 0.0045 0.0042 0.0084
│ │ │ └ make-sequence 2 0.0369 0.0386 0.0377 0.0754
│ │ │ └ system:*make-vector 2 0.0042 0.0047 0.0045 0.0089
│ │ ├ string-downcase 1 0.0047 0.0047 0.0047 0.0047
│ │ ├ find 1 0.0073 0.0073 0.0073 0.0073
│ │ └ selected-buffer 1 0.0039 0.0039 0.0039 0.0039
│ └ run-hooks 1 8.5072 8.5072 8.5072 8.5072
│ ├ outline-tree2::outline-tree-create-buffer-node-by-buffer 1 1.341 1.341 1.341 1.341
│ │ ├ outline-tree2::outline-tree-get-target-buffer 1 0.2207 0.2207 0.2207 0.2207
│ │ │ ├ outline-tree2::outline-tree-get-target-window 1 0.1606 0.1606 0.1606 0.1606
│ │ │ │ ├ current-window-configuration 1 0.0089 0.0089 0.0089 0.0089
│ │ │ │ ├ mapcar 1 0.0321 0.0321 0.0321 0.0321
│ │ │ │ │ └ car 1 0.0036 0.0036 0.0036 0.0036
│ │ │ │ ├ windowp 1 0.0042 0.0042 0.0042 0.0042
│ │ │ │ └ selected-window 1 0.0042 0.0042 0.0042 0.0042
│ │ │ └ window-buffer 1 0.0045 0.0045 0.0045 0.0045
│ │ ├ treeview::treeview-app-id-get-treeview-id 1 0.0355 0.0355 0.0355 0.0355
│ │ │ └ gethash 1 0.0045 0.0045 0.0045 0.0045
│ │ ├ treeview::treeview-data-get 2 0.0964 0.0995 0.0979 0.1958
│ │ │ ├ treeview::treeview-data-reference-get 2 0.0335 0.0344 0.0339 0.0679
│ │ │ │ └ gethash 2 0.0039 0.0042 0.0041 0.0081
│ │ │ └ gethash 2 0.0039 0.0042 0.0041 0.0081
│ │ ├ outline-tree2::outline-tree-exist-p 1 0.1198 0.1198 0.1198 0.1198
│ │ │ └ treeview::treeview-exist-p 1 0.0891 0.0891 0.0891 0.0891
│ │ │ └ treeview::treeview-get-hwnd 1 0.0372 0.0372 0.0372 0.0372
│ │ │ └ treeview::treeview-dll-get-hwnd 1 0.0064 0.0064 0.0064 0.0064
│ │ ├ listp 1 0.0045 0.0045 0.0045 0.0045
│ │ ├ bufferp 1 0.0039 0.0039 0.0039 0.0039
│ │ ├ outline-tree2::outline-tree-get-buffer-node-by-buffer 1 0.0648 0.0648 0.0648 0.0648
│ │ │ └ outline-tree2::outline-tree-revdata-get-buffer-node 1 0.0346 0.0346 0.0346 0.0346
│ │ │ └ gethash 1 0.0042 0.0042 0.0042 0.0042
│ │ └ outline-tree2::outline-tree-buffer-node-obsolete-p 1 0.4308 0.4308 0.4308 0.4308
│ │ ├ outline-tree2::outline-tree-data-get-buffer-name 1 0.0961 0.0961 0.0961 0.0961
│ │ │ └ outline-tree2::outline-tree-data-get 1 0.0657 0.0657 0.0657 0.0657
│ │ │ └ gethash 2 0.0042 0.0053 0.0047 0.0095
│ │ ├ outline-tree2::outline-tree-data-get-namestring 1 0.0933 0.0933 0.0933 0.0933
│ │ │ └ outline-tree2::outline-tree-data-get 1 0.0637 0.0637 0.0637 0.0637
│ │ │ └ gethash 2 0.0039 0.0045 0.0042 0.0084
│ │ ├ outline-tree2::outline-tree-data-get-buffer 1 0.093 0.093 0.093 0.093
│ │ │ └ outline-tree2::outline-tree-data-get 1 0.0631 0.0631 0.0631 0.0631
│ │ │ └ gethash 2 0.0039 0.0042 0.0041 0.0081
│ │ ├ buffer-name 1 0.0042 0.0042 0.0042 0.0042
│ │ └ get-buffer-file-name 1 0.0042 0.0042 0.0042 0.0042
│ ├ set-read-only-color 1 0.0654 0.0654 0.0654 0.0654
│ │ ├ eq 1 0.0039 0.0039 0.0039 0.0039
│ │ └ set-buffer-colors 1 0.0045 0.0045 0.0045 0.0045
│ ├ #<lexical-closure: auto-find-file-read-only> 1 5.1914 5.1914 5.1914 5.1914
│ │ ├ get-buffer-file-name 1 0.0036 0.0036 0.0036 0.0036
│ │ ├ reverse 1 0.0039 0.0039 0.0039 0.0039
│ │ ├ car 4 0.0036 0.0039 0.0037 0.0148
│ │ ├ cons 1 0.0036 0.0036 0.0036 0.0036
│ │ ├ list* 1 0.0039 0.0039 0.0039 0.0039
│ │ ├ list 5 0.0036 0.0039 0.0038 0.019
│ │ ├ cdr 4 0.0036 0.0039 0.0038 0.0151
│ │ ├ null 4 0.0036 0.0039 0.0038 0.0151
│ │ ├ file-exist-p 1 0.0514 0.0514 0.0514 0.0514
│ │ ├ file-directory-p 1 0.0321 0.0321 0.0321 0.0321
│ │ ├ not 1 0.0036 0.0036 0.0036 0.0036
│ │ └ member-if 1 0.6942 0.6942 0.6942 0.6942
│ │ └ #<lexical-closure: (anonymous)> 11 0.0355 0.0427 0.0379 0.4168
│ │ └ string-matchp 11 0.0056 0.0129 0.0085 0.093
│ ├ set-sjis-crlf-hook 1 0.8853 0.8853 0.8853 0.8853
│ │ ├ get-buffer-file-name 1 0.0036 0.0036 0.0036 0.0036
│ │ ├ cons 2 0.0036 0.0036 0.0036 0.0073
│ │ ├ list 4 0.0036 0.0039 0.0038 0.0154
│ │ ├ reverse 1 0.0039 0.0039 0.0039 0.0039
│ │ ├ car 2 0.0036 0.0036 0.0036 0.0073
│ │ ├ list* 1 0.0039 0.0039 0.0039 0.0039
│ │ ├ cdr 2 0.0036 0.0039 0.0038 0.0075
│ │ ├ null 2 0.0036 0.0039 0.0038 0.0075
│ │ ├ point-max 1 0.0042 0.0042 0.0042 0.0042
│ │ └ zerop 1 0.0039 0.0039 0.0039 0.0039
│ ├ template-insert:template-insert 1 0.1344 0.1344 0.1344 0.1344
│ │ ├ selected-buffer 1 0.0036 0.0036 0.0036 0.0036
│ │ ├ get-buffer-file-name 1 0.0039 0.0039 0.0039 0.0039
│ │ └ file-exist-p 1 0.0279 0.0279 0.0279 0.0279
│ ├ editor::open-backup-set-mode 1 0.1098 0.1098 0.1098 0.1098
│ │ ├ get-buffer-file-name 1 0.0039 0.0039 0.0039 0.0039
│ │ ├ compile-regexp 1 0.0131 0.0131 0.0131 0.0131
│ │ └ string-match 1 0.0061 0.0061 0.0061 0.0061
│ ├ editor::set-encoding-eol-code-find-file-hooks 1 0.1752 0.1752 0.1752 0.1752
│ │ ├ get-buffer-file-name 1 0.0036 0.0036 0.0036 0.0036
│ │ ├ stringp 1 0.0042 0.0042 0.0042 0.0042
│ │ ├ valid-path-p 1 0.0246 0.0246 0.0246 0.0246
│ │ └ file-exist-p 1 0.0229 0.0229 0.0229 0.0229
│ └ clickable-uri-emphasis 1 0.3632 0.3632 0.3632 0.3632
│ ├ integerp 1 0.0036 0.0036 0.0036 0.0036
│ └ clickable-uri-emphasis-force 1 0.2998 0.2998 0.2998 0.2998
│ ├ bufferp 1 0.0036 0.0036 0.0036 0.0036
│ └ find 1 0.2341 0.2341 0.2341 0.2341
│ └ #<lexical-closure: editor::clickable-uri-regexp-equal> 1 0.2031 0.2031 0.2031 0.2031
│ ├ regexpp 2 0.0036 0.0042 0.0039 0.0078
│ ├ compiled-regexp-source 2 0.0036 0.0045 0.0041 0.0081
│ └ compiled-regexp-case-fold-p 2 0.0039 0.0039 0.0039 0.0078
├ set-buffer 1 0.069 0.069 0.069 0.069
│ ├ #<function: set-buffer> 1 0.0045 0.0045 0.0045 0.0045
│ └ run-hook-with-args 1 0.0042 0.0042 0.0042 0.0042
└ end-wait-cursor 1 0.0159 0.0159 0.0159 0.0159
string-matchp , 26
terpri , 4
set-buffer , 3
#<function: format> , 2
apply , 2
assoc , 2
editor::find-file-scan-params , 2
file-exist-p , 2
insert-file-contents , 2
message , 2
run-hooks , 2
scan-buffer , 2
selected-buffer , 2
begin-wait-cursor , 1
buffer-name , 1
char-encoding-p , 1
create-file-buffer , 1
default-directory , 1
editor::create-buffer-hook , 1
editor::find-file-auto-encoding , 1
editor::find-file-internal , 1
editor::find-file-lock-file , 1
editor::find-file-notice , 1
editor::find-file-process-params , 1
editor::find-file-readin , 1
end-wait-cursor , 1
erase-buffer , 1
file-directory-p , 1
file-writable-p , 1
find-file , 1
fundamental-mode , 1
get-buffer-file-name , 1
get-file-buffer , 1
gethash , 1
kill-all-local-variables , 1
listp , 1
make-local-variable , 1
mapc , 1
minibuffer-window-p , 1
namestring , 1
run-hook-with-args-until-success , 1
selected-window , 1
special-file-p , 1
string= , 1
stringp , 1
truename , 1
use-keymap , 1
use-syntax-table , 1
valid-path-p , 1
------------------------------------------------------------------------------
[ROOT] -回数-
└ find-file 1
├ begin-wait-cursor 1
├ listp 1
├ editor::find-file-internal 1
| ├ run-hook-with-args-until-success 1
| ├ namestring 1
| ├ file-exist-p 1
| ├ truename 1
| ├ special-file-p 1
| ├ file-directory-p 1
| ├ valid-path-p 1
| ├ get-file-buffer 1
| ├ selected-buffer 1
| ├ create-file-buffer 1
| | └ editor::create-buffer-hook 1
| | ├ selected-window 1
| | ├ minibuffer-window-p 1
| | ├ set-buffer 1
| | ├ fundamental-mode 1
| | | ├ kill-all-local-variables 1
| | | ├ use-keymap 1
| | | ├ use-syntax-table 1
| | | ├ make-local-variable 1
| | | └ run-hooks 1
| | ├ buffer-name 1
| | ├ string= 1
| | ├ default-directory 1
| | └ assoc 1
| ├ set-buffer 1
| ├ editor::find-file-auto-encoding 1
| | ├ insert-file-contents 1
| | ├ stringp 1
| | ├ char-encoding-p 1
| | ├ editor::find-file-scan-params 1
| | | └ scan-buffer 1
| | ├ assoc 1
| | ├ gethash 1
| | ├ selected-buffer 1
| | └ erase-buffer 1
| ├ editor::find-file-readin 1
| | ├ file-exist-p 1
| | ├ message 1
| | | ├ terpri 2
| | | └ apply 1
| | | └ #<function: format> 1
| | ├ insert-file-contents 1
| | ├ editor::find-file-lock-file 1
| | └ editor::find-file-notice 1
| | ├ file-writable-p 1
| | └ message 1
| | ├ terpri 2
| | └ apply 1
| | └ #<function: format> 1
| ├ editor::find-file-scan-params 1
| | └ scan-buffer 1
| ├ editor::find-file-process-params 1
| | ├ mapc 1
| | ├ get-buffer-file-name 1
| | └ string-matchp 26
| └ run-hooks 1
├ set-buffer 1
└ end-wait-cursor 1
gethash , 69
string= , 28
boole , 20
list , 19
system:*puthash , 18
apply , 14
treeview::treeview-data-reference-get , 14
assoc , 11
integerp , 11
make-local-variable , 11
string-matchp , 11
#<lexical-closure: (anonymous)> , 10
<= , 10
buffer-tree::buffer-tree-set-node-data , 10
null , 10
scan-buffer , 10
treeview::treeview-data-get , 10
car , 9
cdr , 9
mapcar , 9
cons , 8
editor::re-kwd-color , 8
get-buffer-file-name , 8
logior , 8
match-string , 8
#<function: string-equal> , 7
file-exist-p , 7
selected-buffer , 5
stringp , 5
#<function: length> , 4
#<lexical-closure: logior> , 4
< , 4
ash , 4
buffer-name , 4
editor::re-kwd-attributes , 4
terpri , 4
treeview::treeview-data-set , 4
treeview::treeview-dll-get-htree , 4
treeview::treeview-get-htree , 4
treeview::treeview-set-redraw , 4
valid-path-p , 4
winapi:SendMessage , 4
#<function: set-buffer> , 3
buffer-tree::buffer-tree-get-buffer-node-id , 3
buffer-tree::buffer-tree-get-node-data , 3
file-directory-p , 3
list* , 3
listp , 3
not , 3
reverse , 3
run-hook-with-args , 3
run-hooks , 3
set-buffer , 3
#<function: *copy-into-seq> , 2
#<function: +> , 2
#<function: format> , 2
#<function: string=> , 2
#<lexical-closure: (anonymous)> , 2
#<lexical-closure: (anonymous)> , 2
#<lexical-closure: (anonymous)> , 2
#<lexical-closure: (anonymous)> , 2
#<lexical-closure: compile-regexp-keyword> , 2
#<lexical-closure: concatenate> , 2
#<lexical-closure: editor::pseudo-frame-name> , 2
buffer-tree::buffer-tree-exist-p , 2
buffer-tree::buffer-tree-insert-node , 2
buffer-tree::buffer-tree-register-node , 2
bufferp , 2
char-downcase , 2
compile-regexp , 2
concat , 2
digit-char , 2
directory-namestring , 2
editor::find-file-scan-params , 2
editor::re-kwd-context , 2
editor::re-kwd-index-color , 2
find , 2
find-pseudo-frame , 2
find-symbol , 2
insert-file-contents , 2
kill-all-local-variables , 2
make-hash-table , 2
make-sequence , 2
map-backslash-to-slash , 2
message , 2
numberp , 2
regexpp , 2
string-match , 2
system:*index-slot-value , 2
system:*make-vector , 2
system:make-string-chunk , 2
treeview::treeview-app-id-get-treeview-id , 2
treeview::treeview-dll-get-hwnd , 2
treeview::treeview-dll-insert-item , 2
treeview::treeview-exist-p , 2
treeview::treeview-get-hwnd , 2
treeview::treeview-insert-item , 2
use-keymap , 2
use-syntax-table , 2
#<lexical-closure: (anonymous)> , 1
#<lexical-closure: (anonymous)> , 1
#<lexical-closure: (anonymous)> , 1
#<lexical-closure: (anonymous)> , 1
#<lexical-closure: (anonymous)> , 1
#<lexical-closure: auto-find-file-read-only> , 1
#<lexical-closure: make-directory-unless-directory-exists> , 1
begin-wait-cursor , 1
buffer-local-value , 1
buffer-tree::buffer-tree-buffer-node-obsolete-p , 1
buffer-tree::buffer-tree-get-folder-node-id , 1
buffer-tree::buffer-tree-get-node-buffer , 1
buffer-tree::buffer-tree-get-node-buffer-name , 1
buffer-tree::buffer-tree-get-node-namestring , 1
buffer-tree::buffer-tree-insert-buffer-node , 1
buffer-tree::buffer-tree-insert-folder-node , 1
buffer-tree::buffer-tree-register-buffer-node , 1
buffer-tree::buffer-tree-register-folder-node , 1
buffer-tree::buffer-tree-set-buffer-node-id , 1
buffer-tree::buffer-tree-set-folder-node-id , 1
char-encoding-p , 1
check-valid-pathname , 1
clickable-url-set-attribute , 1
clickable-url-set-attribute-threshold , 1
compile-regexp-keyword-list , 1
create-file-buffer , 1
default-directory , 1
deleted-buffer-p , 1
editor::create-buffer-hook , 1
editor::find-file-auto-encoding , 1
editor::find-file-auto-mode , 1
editor::find-file-internal , 1
editor::find-file-lock-file , 1
editor::find-file-notice , 1
editor::find-file-process-params , 1
editor::find-file-readin , 1
editor::find-file-set-column , 1
editor::set-encoding-eol-code-1 , 1
editor::set-encoding-eol-code-before-find-file-hook , 1
editor::set-encoding-eol-code-find-file-hooks , 1
end-wait-cursor , 1
erase-buffer , 1
fboundp , 1
file-length , 1
file-namestring , 1
file-writable-p , 1
find-file , 1
format , 1
fundamental-mode , 1
get-file-buffer , 1
lisp-keyword-definition , 1
lisp-mode , 1
mapc , 1
member , 1
member-if , 1
minibuffer-window-p , 1
my-lisp-mode-hook , 1
namestring , 1
nbutlast , 1
outline-tree::treeview-open-p , 1
outline-tree:olt-make-only-buffer-node , 1
outline-tree:olt-setting-lisp-mode , 1
outline-tree:olt-setting-text-mode , 1
parse-integer , 1
path-equal , 1
pathname-host , 1
point-max , 1
run-hook-with-args-until-success , 1
select-pseudo-frame , 1
selected-window , 1
set-sjis-crlf-hook , 1
special-file-p , 1
split-string , 1
string-downcase , 1
substring , 1
template-insert::template-insert , 1
treeview::treeview-dll-select , 1
treeview::treeview-select-item , 1
truename , 1
zerop , 1
------------------------------------------------------------------------------
[ROOT] -回数-
└ find-file 1
├ begin-wait-cursor 1
├ listp 1
├ editor::find-file-internal 1
| ├ run-hook-with-args-until-success 1
| | ├ #<lexical-closure: (anonymous)> 1
| | | ├ list 2
| | | ├ cons 1
| | | ├ find-pseudo-frame 2
| | | | └ find 2
| | | | ├ #<lexical-closure: editor::pseudo-frame-name> 2
| | | | | └ system:*index-slot-value 2
| | | | └ #<function: string=> 2
| | | ├ not 1
| | | └ select-pseudo-frame 1
| | ├ #<lexical-closure: (anonymous)> 1
| | | ├ cons 1
| | | ├ list 1
| | | └ string-matchp 1
| | ├ editor::set-encoding-eol-code-before-find-file-hook 1
| | | ├ stringp 1
| | | ├ valid-path-p 1
| | | ├ file-exist-p 1
| | | └ editor::set-encoding-eol-code-1 1
| | | ├ stringp 2
| | | ├ valid-path-p 1
| | | ├ split-string 1
| | | ├ pathname-host 1
| | | ├ format 1
| | | ├ substring 1
| | | ├ assoc 7
| | | | └ string= 27
| | | ├ map-backslash-to-slash 2
| | | ├ path-equal 1
| | | └ nbutlast 1
| | └ #<lexical-closure: make-directory-unless-directory-exists> 1
| | ├ directory-namestring 1
| | ├ list 2
| | ├ cons 1
| | ├ check-valid-pathname 1
| | └ not 1
| ├ namestring 1
| ├ file-exist-p 1
| ├ truename 1
| ├ special-file-p 1
| ├ file-directory-p 1
| ├ valid-path-p 1
| ├ get-file-buffer 1
| ├ selected-buffer 1
| ├ create-file-buffer 1
| | ├ outline-tree:olt-make-only-buffer-node 1
| | | └ outline-tree::treeview-open-p 1
| | ├ buffer-tree::buffer-tree-insert-node 1
| | | ├ treeview::treeview-app-id-get-treeview-id 1
| | | | └ gethash 1
| | | ├ treeview::treeview-data-get 5
| | | | ├ treeview::treeview-data-reference-get 5
| | | | | └ gethash 8
| | | | └ gethash 8
| | | ├ buffer-tree::buffer-tree-exist-p 1
| | | | └ treeview::treeview-exist-p 1
| | | | └ treeview::treeview-get-hwnd 1
| | | | └ treeview::treeview-dll-get-hwnd 1
| | | ├ treeview::treeview-data-set 2
| | | | ├ treeview::treeview-data-reference-get 2
| | | | | └ gethash 4
| | | | ├ gethash 2
| | | | └ system:*puthash 2
| | | ├ treeview::treeview-set-redraw 2
| | | | ├ treeview::treeview-get-htree 2
| | | | | └ treeview::treeview-dll-get-htree 2
| | | | ├ winapi:SendMessage 2
| | | | └ numberp 1
| | | ├ listp 1
| | | ├ bufferp 1
| | | ├ buffer-tree::buffer-tree-get-buffer-node-id 2
| | | | └ gethash 2
| | | ├ deleted-buffer-p 1
| | | ├ buffer-name 1
| | | ├ get-buffer-file-name 1
| | | ├ directory-namestring 1
| | | ├ buffer-tree::buffer-tree-get-folder-node-id 1
| | | | └ gethash 1
| | | ├ string-match 1
| | | ├ buffer-tree::buffer-tree-insert-folder-node 1
| | | | ├ treeview::treeview-insert-item 1
| | | | | ├ logior 2
| | | | | | └ boole 4
| | | | | ├ system:make-string-chunk 1
| | | | | └ treeview::treeview-dll-insert-item 1
| | | | └ buffer-tree::buffer-tree-register-folder-node 1
| | | | ├ buffer-tree::buffer-tree-set-folder-node-id 1
| | | | | └ system:*puthash 1
| | | | ├ buffer-tree::buffer-tree-set-node-data 2
| | | | | ├ gethash 2
| | | | | ├ make-hash-table 1
| | | | | └ system:*puthash 3
| | | | └ buffer-tree::buffer-tree-register-node 1
| | | | └ buffer-tree::buffer-tree-set-node-data 2
| | | | ├ gethash 2
| | | | └ system:*puthash 2
| | | ├ buffer-tree::buffer-tree-insert-buffer-node 1
| | | | ├ buffer-name 1
| | | | ├ get-buffer-file-name 1
| | | | ├ file-namestring 1
| | | | ├ treeview::treeview-insert-item 1
| | | | | ├ logior 2
| | | | | | └ boole 4
| | | | | ├ system:make-string-chunk 1
| | | | | └ treeview::treeview-dll-insert-item 1
| | | | └ buffer-tree::buffer-tree-register-buffer-node 1
| | | | ├ buffer-tree::buffer-tree-set-buffer-node-id 1
| | | | | └ system:*puthash 1
| | | | ├ buffer-tree::buffer-tree-set-node-data 4
| | | | | ├ gethash 4
| | | | | ├ make-hash-table 1
| | | | | └ system:*puthash 5
| | | | └ buffer-tree::buffer-tree-register-node 1
| | | | └ buffer-tree::buffer-tree-set-node-data 2
| | | | ├ gethash 2
| | | | └ system:*puthash 2
| | | ├ selected-buffer 1
| | | └ treeview::treeview-select-item 1
| | | └ treeview::treeview-dll-select 1
| | └ editor::create-buffer-hook 1
| | ├ selected-window 1
| | ├ minibuffer-window-p 1
| | ├ set-buffer 1
| | | ├ #<function: set-buffer> 1
| | | └ run-hook-with-args 1
| | ├ fundamental-mode 1
| | | ├ kill-all-local-variables 1
| | | ├ use-keymap 1
| | | ├ use-syntax-table 1
| | | ├ make-local-variable 1
| | | └ run-hooks 1
| | | └ outline-tree:olt-setting-text-mode 1
| | ├ buffer-name 1
| | ├ string= 1
| | ├ default-directory 1
| | └ assoc 1
| ├ set-buffer 1
| | ├ #<function: set-buffer> 1
| | └ run-hook-with-args 1
| ├ editor::find-file-auto-encoding 1
| | ├ insert-file-contents 1
| | ├ stringp 1
| | ├ char-encoding-p 1
| | ├ editor::find-file-scan-params 1
| | | ├ scan-buffer 5
| | | └ match-string 4
| | ├ assoc 1
| | | └ #<function: string-equal> 2
| | ├ gethash 1
| | ├ selected-buffer 1
| | └ erase-buffer 1
| ├ editor::find-file-readin 1
| | ├ file-exist-p 1
| | ├ message 1
| | | ├ terpri 2
| | | └ apply 1
| | | └ #<function: format> 1
| | ├ insert-file-contents 1
| | ├ editor::find-file-lock-file 1
| | └ editor::find-file-notice 1
| | ├ file-writable-p 1
| | └ message 1
| | ├ terpri 2
| | └ apply 1
| | └ #<function: format> 1
| ├ editor::find-file-scan-params 1
| | ├ scan-buffer 5
| | └ match-string 4
| ├ editor::find-file-process-params 1
| | └ mapc 1
| | └ #<lexical-closure: (anonymous)> 2
| | ├ assoc 2
| | | └ #<function: string-equal> 5
| | ├ editor::find-file-auto-mode 1
| | | ├ concat 2
| | | | └ apply 2
| | | | └ #<lexical-closure: concatenate> 2
| | | | ├ mapcar 2
| | | | | └ #<function: length> 4
| | | | ├ apply 4
| | | | | ├ #<function: +> 2
| | | | | └ #<function: *copy-into-seq> 2
| | | | └ make-sequence 2
| | | | └ system:*make-vector 2
| | | ├ find-symbol 2
| | | ├ string-downcase 1
| | | ├ fboundp 1
| | | └ lisp-mode 1
| | | ├ kill-all-local-variables 1
| | | ├ use-keymap 1
| | | ├ use-syntax-table 1
| | | ├ make-local-variable 7
| | | └ run-hooks 1
| | | ├ #<lexical-closure: (anonymous)> 1
| | | ├ outline-tree:olt-setting-lisp-mode 1
| | | ├ my-lisp-mode-hook 1
| | | | └ make-local-variable 1
| | | └ lisp-keyword-definition 1
| | | ├ reverse 1
| | | ├ car 3
| | | ├ cons 2
| | | ├ list* 1
| | | ├ list 5
| | | ├ cdr 3
| | | ├ null 4
| | | ├ make-local-variable 2
| | | └ compile-regexp-keyword-list 1
| | | └ mapcar 1
| | | └ #<lexical-closure: (anonymous)> 2
| | | └ apply 2
| | | └ #<lexical-closure: compile-regexp-keyword> 2
| | | ├ regexpp 2
| | | ├ compile-regexp 2
| | | ├ editor::re-kwd-color 2
| | | | └ mapcar 2
| | | | ├ #<lexical-closure: (anonymous)> 2
| | | | | ├ integerp 2
| | | | | ├ <= 2
| | | | | └ editor::re-kwd-color 2
| | | | | ├ editor::re-kwd-color 1
| | | | | | ├ integerp 1
| | | | | | ├ <= 1
| | | | | | ├ digit-char 1
| | | | | | ├ char-downcase 1
| | | | | | └ gethash 1
| | | | | ├ editor::re-kwd-attributes 1
| | | | | | ├ mapcar 1
| | | | | | └ apply 1
| | | | | | └ #<lexical-closure: logior> 1
| | | | | ├ logior 1
| | | | | | └ boole 2
| | | | | └ editor::re-kwd-index-color 1
| | | | | ├ integerp 2
| | | | | ├ <= 2
| | | | | ├ ash 2
| | | | | ├ editor::re-kwd-attributes 1
| | | | | | ├ mapcar 1
| | | | | | | └ #<lexical-closure: (anonymous)> 1
| | | | | | └ apply 1
| | | | | | └ #<lexical-closure: logior> 1
| | | | | | └ boole 1
| | | | | └ logior 1
| | | | | └ boole 3
| | | | └ #<lexical-closure: (anonymous)> 2
| | | | ├ integerp 2
| | | | ├ <= 2
| | | | └ editor::re-kwd-color 2
| | | | ├ editor::re-kwd-color 1
| | | | | ├ integerp 1
| | | | | ├ <= 1
| | | | | ├ digit-char 1
| | | | | ├ char-downcase 1
| | | | | └ gethash 1
| | | | ├ editor::re-kwd-attributes 1
| | | | | ├ mapcar 1
| | | | | └ apply 1
| | | | | └ #<lexical-closure: logior> 1
| | | | ├ logior 1
| | | | | └ boole 2
| | | | └ editor::re-kwd-index-color 1
| | | | ├ integerp 2
| | | | ├ <= 2
| | | | ├ ash 2
| | | | ├ editor::re-kwd-attributes 1
| | | | | ├ mapcar 1
| | | | | | └ #<lexical-closure: (anonymous)> 1
| | | | | └ apply 1
| | | | | └ #<lexical-closure: logior> 1
| | | | | └ boole 1
| | | | └ logior 1
| | | | └ boole 3
| | | ├ editor::re-kwd-context 2
| | | └ < 4
| | └ editor::find-file-set-column 1
| | ├ string-match 1
| | └ parse-integer 1
| └ run-hooks 1
| ├ buffer-tree::buffer-tree-insert-node 1
| | ├ selected-buffer 1
| | ├ treeview::treeview-app-id-get-treeview-id 1
| | | └ gethash 1
| | ├ treeview::treeview-data-get 5
| | | ├ treeview::treeview-data-reference-get 5
| | | | └ gethash 8
| | | └ gethash 8
| | ├ buffer-tree::buffer-tree-exist-p 1
| | | └ treeview::treeview-exist-p 1
| | | └ treeview::treeview-get-hwnd 1
| | | └ treeview::treeview-dll-get-hwnd 1
| | ├ treeview::treeview-data-set 2
| | | ├ treeview::treeview-data-reference-get 2
| | | | └ gethash 4
| | | ├ gethash 2
| | | └ system:*puthash 2
| | ├ treeview::treeview-set-redraw 2
| | | ├ treeview::treeview-get-htree 2
| | | | └ treeview::treeview-dll-get-htree 2
| | | ├ winapi:SendMessage 2
| | | └ numberp 1
| | ├ listp 1
| | ├ bufferp 1
| | ├ buffer-tree::buffer-tree-get-buffer-node-id 1
| | | └ gethash 1
| | └ buffer-tree::buffer-tree-buffer-node-obsolete-p 1
| | ├ buffer-tree::buffer-tree-get-node-buffer-name 1
| | | └ buffer-tree::buffer-tree-get-node-data 1
| | | └ gethash 2
| | ├ buffer-tree::buffer-tree-get-node-namestring 1
| | | └ buffer-tree::buffer-tree-get-node-data 1
| | | └ gethash 2
| | ├ buffer-tree::buffer-tree-get-node-buffer 1
| | | └ buffer-tree::buffer-tree-get-node-data 1
| | | └ gethash 2
| | ├ buffer-name 1
| | └ get-buffer-file-name 1
| ├ #<lexical-closure: auto-find-file-read-only> 1
| | ├ get-buffer-file-name 1
| | ├ reverse 1
| | ├ car 4
| | ├ cons 1
| | ├ list* 1
| | ├ list 5
| | ├ cdr 4
| | ├ null 4
| | ├ file-exist-p 1
| | ├ file-directory-p 1
| | ├ not 1
| | └ member-if 1
| | └ #<lexical-closure: (anonymous)> 10
| | └ string-matchp 10
| ├ editor::set-encoding-eol-code-find-file-hooks 1
| | ├ get-buffer-file-name 1
| | ├ stringp 1
| | ├ valid-path-p 1
| | └ file-exist-p 1
| ├ template-insert::template-insert 1
| | ├ selected-buffer 1
| | ├ buffer-local-value 1
| | ├ get-buffer-file-name 1
| | └ file-exist-p 1
| ├ set-sjis-crlf-hook 1
| | ├ get-buffer-file-name 1
| | ├ cons 2
| | ├ list 4
| | ├ reverse 1
| | ├ car 2
| | ├ list* 1
| | ├ cdr 2
| | ├ null 2
| | ├ point-max 1
| | └ zerop 1
| └ clickable-url-set-attribute-threshold 1
| ├ get-buffer-file-name 1
| ├ file-exist-p 1
| ├ file-directory-p 1
| ├ integerp 1
| ├ file-length 1
| └ clickable-url-set-attribute 1
| └ member 1
├ set-buffer 1
| ├ #<function: set-buffer> 1
| └ run-hook-with-args 1
└ end-wait-cursor 1
(in-package "editor")
(export '(filer-forward-line-or-goto-bof
filer-backward-line-or-goto-eof))
(defun filer-forward-line-or-goto-bof (&optional (arg 1))
(let ((old-file (filer-get-current-file)))
(filer-forward-line arg)
(when (string= old-file (filer-get-current-file))
(filer-goto-bof))))
(defun filer-backward-line-or-goto-eof (&optional (arg 1))
(let ((old-file (filer-get-current-file)))
(filer-forward-line (- arg))
(when (string= old-file (filer-get-current-file))
(filer-goto-eof))))
(define-key filer-keymap #\C-n 'filer-forward-line-or-goto-bof)
(define-key filer-keymap #\C-p 'filer-backward-line-or-goto-eof)
(define-key filer-keymap #\Up 'filer-backward-line-or-goto-eof)
(define-key filer-keymap #\Down 'filer-forward-line-or-goto-bof)
(in-package "user")
(setq *dialog-width* 400)
(setq *dialog-height* 256)
(defun ed::msgbox (fmt &rest args)
(multiple-value-bind (result data)
(dialog-box
`(dialog 0 0 ,*dialog-width* ,*dialog-height*
(:caption
"msgbox2")
(:font 10 "MS Pゴシック")
(:control
(:button IDOK "OK" #x50010001
,(- *dialog-width* 40 2 40 1) ,(- *dialog-height* 14 3) 40 14)
(:edit view nil #x50b110c4
1 1 ,(- *dialog-width* 2) ,(- *dialog-height* 1 1 19 1))
))
(list (cons 'view
(substitute-string (apply 'format nil fmt args) "\n" "\r\n")))
nil)
:ok))
(setq *thread-fgcolor-anchor* 11)
(defun thread-convert-anchor ()
(save-excursion
(goto-char (point-min))
(while (scan-buffer "<a href=\"[^\"]+\" target=\"_blank\">>>\\([-0-9]+\\)</a>"
:regexp t
:tail nil)
(let ((num (match-string 1)))
(delete-region (match-beginning 0) (match-end 0))
(set-text-attribute (point)
(progn
(insert (format nil ">>~A" num))
(point))
'anchor
:foreground *thread-fgcolor-anchor*
:bold t)))))
find-text-attribute は :from-end t でも末尾からでなく先頭側(:start) から検索をする。
内部的にテストを繰り返し、末尾 (:end) に一番近い attribute を返す。
定義開始 定義秒数 実行回数 keys
----------------- -------- -------- ----
03/11/13 17:13:39 2 12 7
03/11/13 17:13:17 5 19 6
03/11/13 17:13:01 3 11 9
03/11/13 15:37:48 3 4 4
03/11/13 15:28:28 4 8 4
03/11/13 15:28:07 3 11 4
03/11/12 19:07:01 4 71 5
03/11/12 12:59:22 5 270 7
03/11/11 19:40:18 6 19 7
03/11/11 19:36:28 5 375 23
03/11/11 17:48:12 2 6 6
03/11/11 17:41:11 2 7 4
03/11/11 13:50:14 5 13 4
03/11/11 11:53:21 11 14 42
03/11/10 17:43:52 3 40 6
03/11/10 17:42:13 2 6 6
03/11/06 20:35:44 4 93 6
03/11/06 20:10:10 3 3 6
03/11/06 20:09:03 2 13 6
03/11/06 19:46:36 2 6 5
03/11/06 19:36:33 2 9 6
03/11/06 19:35:28 2 13 6
03/11/06 16:58:36 31 301 66
03/11/06 16:57:30 63 0 71
03/11/06 16:45:22 3 39 4
03/11/06 16:42:47 4 135 4
03/11/06 16:40:53 11 53 42
03/11/06 16:40:02 16 69 14
03/11/06 15:06:04 1 11 4
03/11/05 13:33:53 2 23 3
03/11/05 13:21:32 1 23 3
03/11/05 13:19:39 2 24 3
03/11/05 12:41:31 2 24 3
03/11/05 11:04:58 4 24 4
03/11/05 11:03:15 6 100 4
03/11/05 10:59:31 10 18 42
03/11/05 10:54:55 9 31 42
03/11/05 10:51:38 16 231 42
03/11/05 10:17:36 2 5 4
03/11/05 10:09:52 3 10 4
03/10/31 12:05:25 3 3 9
03/10/29 17:29:28 4 6 3
03/10/29 13:24:16 2 19 6
03/10/29 10:28:10 3 3 4
03/10/28 19:36:10 18 51 6
03/10/28 16:21:42 5 134 4
03/10/28 16:18:19 9 27 41
03/10/28 16:15:51 14 275 42
03/10/24 21:14:30 3 6 4
03/10/24 20:02:19 2 8 3
03/10/24 18:15:45 2 2 6
03/10/23 14:14:44 2 14 4
03/10/23 14:14:28 5 6 4
03/10/23 14:11:21 2 9 4
03/10/23 14:08:15 3 21 4
03/10/23 12:44:36 3 49 4
03/10/23 11:42:32 4 157 4
03/10/23 11:39:47 10 20 9
03/10/21 17:16:27 4 70 4
03/10/21 17:01:50 4 110 6
03/10/21 17:01:30 7 27 11
03/10/21 17:00:10 5 141 6
03/10/21 16:59:48 6 27 11
03/10/21 16:58:44 9 0 11
03/10/21 16:53:55 14 7 42
03/10/21 16:32:15 8 1 11
03/10/21 16:11:33 13 96 42
03/10/21 16:01:25 18 229 42
03/10/21 15:14:09 9 53 6
03/10/21 15:13:28 11 26 11
03/10/21 15:11:40 8 821 6
03/10/21 15:10:50 12 14 11
03/10/21 15:09:23 12 3 7
03/10/21 15:02:32 7 188 6
03/10/21 14:51:19 44 1616 44
03/10/16 22:20:11 2 22 6
03/10/16 22:10:36 5 20 11
03/10/16 21:15:55 2 4 6
03/10/16 20:34:10 1 9 5
03/10/16 20:23:57 7 19 11
03/10/16 19:02:43 3 34 5
03/10/16 18:32:35 2 20 5
03/10/16 16:07:19 9 28 9
03/10/16 15:48:53 4 27 3
03/10/16 14:45:36 19 26 35
03/10/16 14:45:10 10 8 30
03/10/16 11:30:12 5 88 4
03/10/15 12:45:53 2 15 4
03/10/14 20:34:49 3 5 9
03/10/14 17:51:23 2 3 6
03/10/14 16:47:34 3 8 5
03/10/14 16:47:28 2 6 4
03/10/14 13:47:56 4 2 4
03/10/14 13:16:25 3 8 5
03/10/14 13:16:17 4 6 4
03/10/13 18:37:59 7 20 5
03/10/13 18:34:34 4 2 7
03/10/13 18:34:28 3 2 3
03/10/13 12:10:36 8 57 6
03/10/13 12:10:04 1 21 2
03/10/13 12:09:55 2 0 2
03/10/13 12:09:45 3 15 2
03/10/13 12:07:50 25 29 18
03/10/08 15:56:33 2 6 4
03/10/08 14:14:28 4 15 3
03/10/08 14:14:09 3 8 4
03/10/08 14:13:54 2 7 7
03/10/08 14:11:09 3 7 10
03/10/07 11:45:01 3 5 4
03/10/07 11:44:50 2 10 3
03/10/04 05:01:58 10 6 31
03/10/04 04:53:05 12 4 31
03/10/01 00:38:59 8 23 12
03/10/01 00:12:44 7 2 20
03/09/30 15:39:04 2 15 4
03/09/29 14:08:10 2 14 4
03/09/29 12:14:11 19 498 24
03/09/29 12:13:13 9 29 13
03/09/26 12:51:25 5 5 5
03/09/22 10:17:21 2 13 4
03/09/19 14:36:45 3 11 8
03/09/19 12:31:26 3 74 2
03/09/19 11:40:39 5 4 4
03/09/18 16:23:55 2 0 2
03/09/18 11:03:19 10 0 18
03/09/17 20:13:35 8 0 7
03/09/17 20:11:22 9 0 11
03/09/16 11:35:16 11 0 8
03/09/12 18:55:10 28 0 22
03/09/12 18:31:10 7 0 7
03/09/12 18:30:41 11 0 9
03/09/12 18:23:30 5 0 7
03/09/12 18:08:59 5 0 7
03/09/11 14:46:03 5 0 10
03/09/11 14:45:30 9 0 10
03/09/11 14:19:09 9 0 8
03/09/11 14:19:02 2 0 3
(let (buffer
(loading (if (ed:string-matchp "\\.lc$" filename)
"loading" "LOADING")))
(defvar *auto-find-file-read-only-regexp-list* nil)
(defun auto-find-file-read-only ()
(let ((filename (get-buffer-file-name)))
(if (and filename
(file-exist-p filename)
(not (file-directory-p filename))
(member-if #'(lambda (regexp) (string-matchp regexp filename))
*auto-find-file-read-only-regexp-list*))
(toggle-read-only t))))
(add-hook '*find-file-hooks* #'auto-find-file-read-only)
(push "^D:/utils/EdMax/Attachment/" *auto-find-file-read-only-regexp-list*)
(push "\\.\\(gz\\|tar\\|tgz\\|zip\\|lzh\\|cab\\|exe\\|log\\)$"
*auto-find-file-read-only-regexp-list*)
(push "[\\/]ipmsg\\.log$" *auto-find-file-read-only-regexp-list*)
(push "^D:/Program Files/Aisoft/DiskX_Zip/Temp/"
*auto-find-file-read-only-regexp-list*)
(push (concat "^" (regexp-quote (concat (si::system-root) "lisp/")))
*auto-find-file-read-only-regexp-list*)
(setf (get 'ed:defvar-local 'ed:lisp-indent-hook) 'lisp:defun)
(add-hook '2ch::*2ch-start-hook* 'stop-xyzzy-server)
(add-hook '2ch::*2ch-exit-hook* 'start-xyzzy-server)
(let ((column 0))
(defun func ()
(let ((current-column (current-column)))
(setq pat (cdr pat))
(cond ((< column current-column) (incf column))
((> column current-column) (decf column)))
(message "~A~A"
(make-sequence 'string column :initial-element #\SPC)
(car pat)))))
(setq pat '(#\― #\/ #\| #\\))
(setf (cdr (last pat)) pat)
(start-timer 0.02 'func)
(defun delete-selection-or-tab-columns-or-backward-char (&optional (n 1))
(interactive "*p")
(if (pre-selection-p)
(delete-selection)
(if (and (not (zerop *tab-columns*))
(not (bolp))
(save-excursion
(skip-chars-backward " ")
(bolp)))
(let ((rest (mod (current-column) *tab-columns*)))
(delete-backward-char (if (zerop rest) *tab-columns* rest)))
(delete-backward-char n))))
(global-set-key #\C-h 'delete-selection-or-tab-columns-or-backward-char)
(define-key ed::*lisp-mode-map*
#\C-h 'delete-selection-or-tab-columns-or-backward-char)
(define-key ed::*lisp-interaction-mode-map*
#\C-h 'delete-selection-or-tab-columns-or-backward-char)
(define-key ed::*c-mode-map*
#\C-h 'delete-selection-or-tab-columns-or-backward-char)
(add-hook 'ed::*process-command-line-hook*
#'(lambda (arg) (interactive)
(when (file-directory-p arg)
(require "ggrep")
(let ((dirs (list (map-backslash-to-slash arg))))
(ed::ggrep-load-setting ed::*last-ggrep-setting*)
(while (and (setq arg (pop si:*command-line-args*))
(file-directory-p arg))
(push (map-backslash-to-slash arg) dirs))
(if arg
(push arg si:*command-line-args*))
(setq ed::*ggrep-directories*
(ed::ggrep-dirs-normalization
(nreverse dirs)))
(setq ed::*ggrep-dialog-number-of-dir*
(length ed::*ggrep-directories*))
(ggrep-dialog :setting (ed::ggrep-make-setting))))))
(defun kamail-study-header-rule (header &optional from)
(setq from (or from *kamail-folder-current*))
(when header
(dolist (rule *kamail-refile-rules*)
(let (dest field content targ)
(setq dest (car rule))
(cond
((= (length rule) 3)
(setq field (cadr rule))
(setq content (caddr rule))
(when (kamail-refile-ok-p from dest)
(setq targ (get-header-value field header))
(when (and targ
(string-match content targ))
(return-from kamail-study-header-rule dest))))
((= (length rule) 2)
(when (kamail-refile-ok-p from dest)
(dolist (x (cadr rule)
(return-from kamail-study-header-rule dest))
(setq field (car x))
(setq content (cadr x))
(setq targ (get-header-value field header))
(unless (and targ
(string-match content targ))
(return))))))))))
(add-hook 'ed::*process-command-line-hook*
#'(lambda (arg) (interactive)
(when (file-directory-p arg)
(require "grepd")
(let ((ed::*grep-directory-name-hook*
#'(lambda () arg)))
(declare (special ed::*grep-directory-name-hook*))
(setq arg (map-backslash-to-slash arg))
(add-history arg 'ed::*grep-directory-history*)
(ed::grep-dialog)))))
(global-set-key #\C-Apps
#'(lambda () (interactive)
(track-popup-menu *buffer-bar-context-menu*)))
(in-package "outline-tree")
(defun olt-make-regexp-344-perl-mode (root-hitem)
(olt-make-regexp-internal
:root-hitem root-hitem
:layer-regexp-list-order :top-miss
:layer-regexp-list
'("^#" "^\\(sub .+?\\){" "^&.+;$")))
(defun olt-make-regexp-344-perl-mode (root-hitem)
(olt-make-regexp-internal
:root-hitem root-hitem
:layer-regexp-list-order :non-miss
:layer-regexp-list
'("^\\(#.*\\|sub .+{\\|&.+;$\\)")))
(unless (member 'olt-make-regexp-344-perl-mode *olt-make-function-alist* :key 'cdr)
(setq *olt-make-function-alist*
(nconc *olt-make-function-alist*
'(("* 344 perl (簡易)" . olt-make-regexp-344-perl-mode)))))
(defun olt-setting-344-perl-mode ()
(setq *olt-make-function* 'olt-make-regexp-344-perl-mode))
(add-hook '*perl-mode-hook* 'olt-setting-344-perl-mode)
(defun reverse-selection ()
(interactive "*")
(when (member (get-selection-type) '(1 2))
(selection-start-end (from to)
(insert (prog1
(reverse (buffer-substring from to))
(delete-region from to))))))
(defun buf2html-copy-region-as-kill (from to)
(interactive "r")
(save-window-excursion
(buf2html-region from to)
(copy-region-as-kill (point-min) (point-max))
(close-selected-buffer)))
(defun buf2html-copy-region-to-clipboard (from to)
(interactive "r")
(save-window-excursion
(buf2html-region from to)
(copy-region-to-clipboard (point-min) (point-max))
(close-selected-buffer)))
(defun my-recenter ()
(interactive)
(if (fboundp 'clickable-url-recenter)
(clickable-url-recenter)
(recenter))
(when (olt::treeview-open-p)
(olt::olt-set-node-by-cursor-or-make)))
(global-set-key #\C-l 'my-recenter)
(defun lisp-indent-line-and-complete-symbol ()
(interactive)
(lisp-indent-line)
(if (looking-at "\\_>")
(lisp-complete-symbol)))
(define-key ed::*lisp-mode-map*
#\TAB 'lisp-indent-line-and-complete-symbol)
(define-key ed::*lisp-interaction-mode-map*
#\TAB 'lisp-indent-line-and-complete-symbol)