[Last updated: <2006/11/03 06:51:16 +0900>]

[Top]   [xyzzy 関連]   [xyzzy 関連の覚え書き]

*scratch*

;; メイン 環境の (find-file ".xyzzy")
;; 2006-03-09
#<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
;; normal な環境の (find-file ".xyzzy")
;; 2004-08-05
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
;; メイン環境の (find-file ".xyzzy")
;; 2004-08-05
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
;; filer で上下キーでループ
;; 2004-06-12
(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")
;; msgbox debug のお供。
;; 2003-10-XX
(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))
;; 2004-02-14 [拡張] 2ch-mode で >>1 などの色を変える
;; xyzzy Part5 への書き込みを再掲
;; .2ch/config.l に
(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)))))
;; 2003-12-03 [memo] find-text-attribute の内部動作
find-text-attribute は :from-end t でも末尾からでなく先頭側(:start) から検索をする。
内部的にテストを繰り返し、末尾 (:end) に一番近い attribute を返す。
;; 2003-11-14 [memo] キーボードマクロサマリー
;; #\C-SPC や #\F5 で始まるものが多い。
定義開始           定義秒数  実行回数  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
;; 2003-11-11 [memo] $XYZZY0.2.2.233/lisp/misc.l:497:
;; .lc ファイルを読み込んだ場合は "loading" それ以外は "LOADING" と表示される
  (let (buffer
	(loading (if (ed:string-matchp "\\.lc$" filename)
		     "loading" "LOADING")))
;; 2003-10-23 修正 (2003-09-25 初出)
;; 特定のファイルは read-only でオープン
(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*)
;; defvar-local のインデントを defvar (defun) と同じに
(setf (get 'ed:defvar-local 'ed:lisp-indent-hook) 'lisp:defun)
;; 2ch-mode 時は別の xyzzy を立ち上げる
(add-hook '2ch::*2ch-start-hook* 'stop-xyzzy-server)
(add-hook '2ch::*2ch-exit-hook* 'start-xyzzy-server)
;; うろちょろ (reference start-timer より)
(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)
;(stop-timer 'func)
;; xyzzy Part4 への落書き
;; タブ幅分、スペースを消す
(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)
;; コマンドラインから(複数)ディレクトリを開こうとすると ggrep になってほしい。
(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))))))
;; KaMail 振り分け条件の記述で and をとりたい。(本人 KaMail 未使用)
;; xyzzy/KaMail/.kamail
(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))))))))))

#|
============================================================
□KaMail/Rules の例
------------------------------------------------------------
;("振り分け先フォルダ" "フィールド" "内容")
("+xyzzy" "to" "xyzzy@jsdlab.co.jp")
;("振り分け先フォルダ" (("フィールド1" "内容1") ("フィールド2" "内容2") ... ))
("+xyzzy-kamei" (("to" "xyzzy@jsdlab.co.jp") ("from" "kamei")))
------------------------------------------------------------
|#
;; http://web.sfc.keio.ac.jp/~t01450ms/xyzzy/cgi/wiki/wiki.cgi?tips
;; コマンドラインからディレクトリを開こうとするとgrepになってほしい。
(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)))))
;; C-Apps でタブメニュー
(global-set-key #\C-Apps
                #'(lambda () (interactive)
                    (track-popup-menu *buffer-bar-context-menu*)))
;;; 恐らく 2003-09-30 現在使用できません。
(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))))))
;; 2003-11-14 現在、buf2html.l で別実装してあるので不必要
(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)
;; TAB で indent と同時に補完
(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)

OHKUBO Hiroshi <ohkubo@s53.xrea.com>