[Since: <2001/08/26 --:--:-- +0900>]
[Last updated: <2012/04/03 01:17:19 +0900>]

[Top]  [xyzzy �֘A�̊o������]  [*scratch*]

xyzzy �֘A

xyzzy �́A00README.html �ɂ��ƁA

xyzzy��Windows NT 4.0�AWindows 2000�AWindows XP�AWindows 95�AWindows 98�AWindows Me(���Ԃ�B�������Ƃ��Ȃ�����)�A�����Windows NT 3.51(�ꕔ�@�\�ɐ�������B�ŋߎ����ĂȂ��̂œ������ǂ����s��)�œ��삷����{��e�L�X�g�G�f�B�^�̂悤�Ȃ��̂ł��B

�炵���A�T�䂳���́A�����ėL�u�̕��X�ɂ���Čp���J������Ă��Ă���ACommon Lisp �ɂ���Ċg���”\�� MIT ���C�Z���X�̃e�L�X�g�G�f�B�^�ł��B

�ƂĂ��֗��ŁA���Ȃ肨���b�ɂȂ��Ă��܂��B

�����ɂ����Ă�����̂͂��܂�s�V���悭�Ȃ��͋Z�ŏ�����Ă��邱�Ƃ������̂ŁA����Ȃ�ɓ��삳���邽�߂ɂ� byte-compile ���K�{�ł��B�����B(�����āA���Ȃ������ƂɃ}���`�t���[���łɂ͑Ή��ł��Ă��܂��� :-P)


NetInstaller �p�p�b�P�[�W���X�g�͂�����B�� [ packages.l ]

�c�[��

outline-tree2

[�_�E�����[�h]

[outline-tree2] (2012/04/03)

[�C���X�g�[��]

treeview ���C�u������ buf2html �����O�ɓ�������Ă��Ȃ���΂Ȃ�܂���B
�s���ȏꍇ�́A��������Ă��Ȃ����̂ɂ‚��Ĉȉ��̃��X�g���ォ�珇�ԂɃC���X�g�[�����Ă��������B

  1. TreeView.dll (ver. 1.03 �ȍ~) (kazu.y ����)
  2. color (�������璼�ڃ_�E�����[�h)
  3. win-window
  4. treeview (�������璼�ڃ_�E�����[�h)
  5. buf2html
  6. outline-tree2

[����]

kazu.y ����� TreeView.dll ��p���āA�o�b�t�@���X�g�̃c���[�\���A�o�b�t�@���̃A�E�g���C���\�����s���܂��B

�o���邱�ƁF

  • ��{�@�\
    • �o�b�t�@���X�g�̃c���[�\��
      • �o�b�t�@�̑I��
      • �t�H���_��‚���
    • �o�b�t�@���A�E�g���C���\��
      • �o�b�t�@���m�[�h�ʒu�ւ̈ړ�
  • Treeview�ݒ�E����
    • TreeView �̊e��ݒ�
    • TreeView �E�B���h�E�ʒu�̕ύX
    • TreeView �E�B���h�E�̊J��
    • TreeView �E�B���h�E��L�[�o�C���h�̐ݒ� (Alt �L�[�g�p�s��)
    • ��̂̑��삪 TreeView ��E�N���b�N����”\
  • �ҏW
    • �u�͈̓m�[�h�v�̏㉺���ւ�
  • ���̑�
    • �A�E�g���C���쐬�֐��̔���������
    • �t�@�C���擪�����ւ̋L�q�ɂ�� outline ��ގ����I��

[�f��]

outline-tree2

[ChangeLog]

  • (2012/04/03)
    • Markdown �Ή�
    • RD�t�H�[�}�b�g��͍X�V
    • Java�p�A�E�g���C���쐬���K�\���C��
    • HTML���o����͉��P
    • ctags ��͉��P
    • ctags kind �o�̓t���l�[����
    • ChangeLog �t�H�[�}�b�g��͍X�V
    • XSV��͂̋�؂蕶���� compiled-regexp ���w��”\��
  • (2009/04/03)
    • HTML�o�͐ݒ�̃_�C�A���O��
    • �A�E�g���C�����ނ̕ύX
    • LISP �p�A�E�g���C���쐬�֐��C��
    • �^�O��͂ŋ�v�f�^�O���l��
    • CSV, TSV ��͒lj�
    • ctags �Ή�
    • GNU GLOBAL(gtags) �Ή�
    • FreeMind �Ή�
    • ���̑�
  • (2006/10/25)
    • �u�A�E�g���C���c���[�ݒ�v�̃v���p�e�B�V�[�g�̃^�C�g���ɁAoutline-tree �̃o�[�W�����ԍ���\������悤�ɁB
    • outline-tree �N�����ɁA�o�b�t�@�̕ҏW��Ԃ𔽉f����悤�ɁB
    • �o�b�t�@�m�[�h�폜���̃^�C�g���o�[�A�o�b�t�@�̍ĕ`���p�~�B
  • (2006/10/21)
    • �o�b�t�@�ҏW���A�o�b�t�@�m�[�h���� "* " ��lj�����悤�ɁB
    • �o�b�t�@�m�[�h�I�����A�^�C�g���o�[�A�o�b�t�@�o�[���X�V����悤�ɁB
    • �u�J�[�\���Ǐ]�v���A�J�[�\���ړ���o�b�t�@����\���o�b�t�@�ł����Ă��A�t�@�C���Ɋ֘A�Â��Ă���o�b�t�@�̏ꍇ�͒Ǐ]����悤�ɁB
    • �u�A�E�g���C���^�C�v�����v���j���[�Ɂu�ꗗ�v��lj��B
    • �u�A�E�g���C���^�C�v�����v�ł̐����o�͂̏��Ԃ�ύX�B
    • �u�J�e�S����‚���v��lj��B
      • *outline-tree-delete-category-buffers-except-regexp-list* �lj��B
      • outline-tree-delete-category-buffers �lj��B
      • outline-tree-menu-gen �X�V�B
    • ���j���[�o�[�̃��j���[�Łu�A�E�g���C���^�C�v�I���v�u�A�E�g���C���^�C�v�����v�����삵�Ȃ����ۂւ̑Ώ��B
    • �A�E�g���C���^�C�v�𖾎��I�ɑI�����Ă��Ȃ��ꍇ�ł̃��j���[�̕\���̍������B
    • outline-tree-create-outline-lisp �� lisp �̃A�E�g���C�����쐬����ƁA���̌�ŁA�V���{���̏Փ˂��N��������C���B(thanks. XyzzyWiki)
    • outline-tree-create-outline-lisp �� lisp �̃A�E�g���C���쐬���Ɂu'(defmacro ...)�v�Ƃ����悤�ȃ��X�g�����݂��Ă��G���[���������Ȃ��悤�ɍX�V�B(thanks. XyzzyWiki)
    • �\���o�b�t�@�A��\���o�b�t�@�̃J�e�S���m�[�h���ɔC�ӂ̕������ݒ肵�Ă� outline-tree �N�����Ɂu��\���o�b�t�@�̃J�e�S���m�[�h�v���u�\���o�b�t�@�̃J�e�S���m�[�h�v������ɂ���悤�ɑΉ��B
    • *outline-tree-visible-buffer-category-node-name* �̃f�t�H���g�l�� "=== �\���o�b�t�@ ===" �ɕύX�B
    • *outline-tree-invisible-buffer-category-node-name* �̃f�t�H���g�l�� "=== ��\���o�b�t�@ ===" �ɕύX�B
    • outline-tree �N�����ɁA�I���o�b�t�@�ɑ΂���m�[�h���m���ɑI�����邽�߂ɁAoutline-tree-create �̒��� outline-tree-select-node ����悤�ɁB
    • �u���C���E�{�^�������[�g����\���v���f�t�H���g��ݒ�ɁB
      • *outline-tree-style-linesatroot* �̏����l�� nil �ɕύX�B
  • (2006/04/04)
    • �t�H���_�m�[�h���̕\������ݒ�”\�ɁB
    • [�A�E�g���C���c���[�ݒ�]-[��{�ݒ�]�ɁA�u�t�H���_���\�����v�I�v�V������lj��B
  • (2006/04/03)
    • NetInstaller ��ŃC���X�g�[�� (i) ��������ɃA���C���X�g�[�� (d) ���Ă��u�p�b�P�[�W�����݂��܂���: "outline-tree2"�v�Əo�͂���Ȃ��悤�ɁB
    • ���ۑ��o�b�t�@�������Ԃ� kill-xyzzy �����s������ xyzzy �̏I���𒆒f�����ꍇ�Aoutline-tree2 �̃o�b�t�@�m�[�h���S�č폜����Ă��܂����ɑΏ��B
  • (2006/03/30)
    • �A�E�g���C���^�C�v�����uTAG�v����u�^�O (HTML,XML)�v�ɕύX�B
    • outline-tree-detect-category-name �֐��X�V�B
    • ���݂��Ȃ��t�@�C�����V���[�g�p�X���ŊJ�����ꍇ�A�t�H���_�m�[�h���V���[�g�p�X���ŕ\���E�Ǘ�����Ă��܂������C���B
    • [�A�E�g���C���c���[�ݒ�]-[��{�ݒ�]�ɁA�uxyzzy �N�����̓A�E�g���C���c���[���N�����Ȃ��v�I�v�V������lj��B
    • ed::build-summary-function �̊֐������Ɋ֐��ꗗ���쐬���� List Function ��lj��B
    • ���̑��B
  • (2006/02/26)
    • Grep ���ʗp�A�E�g���C���쐬�֐��lj��B
    • LISP �p�A�E�g���C���쐬�֐��ŕϐ��� docstring ���擾�ł��Ă��Ȃ������̂��C���B
    • �o�b�t�@�̃J�e�S�����ނ̃f�t�H���g�� rss-mode �p�̕��ނ�lj��B
    • ���j���[�Ƀo�b�t�@�o�[�̃��j���[���\������悤�ɁB
  • (2006/01/29)
    • RFC �p�A�E�g���C���쐬�֐��lj��B
    • Lisp �p�A�E�g���C���쐬�֐��X�V�B
    • ���̑��B
  • (2006/01/15)
    • Perl �p�A�E�g���C���쐬�֐��X�V�B
    • Visual Basic ���C�N�Ȍ���p�A�E�g���C���쐬�֐��lj��B
    • ASP (VBScript) �p�A�E�g���C���쐬�֐��lj��B
  • (2005/12/28)
    • app-menu �lj��B
    • ��`�I���̕\���������@��ύX�B
    • ���̑��B
  • (2005/12/24)
    • �u�m�[�h�Ǐ]�v�ݒ�̏�ԂŃo�b�t�@�m�[�h�𖾎��I�Ɏ��s�����ꍇ�́A�u�A�E�g���C���̍쐬/�X�V�v���������悤�ɁB
    • outline-tree ��� Delete �L�[�ŃA�E�g���C�����폜����悤�ɁB
    • outline-tree-create-outline-java �X�V�B
  • (2005/12/23)
    • folder-node ����̃t�@�C���N�������ύX�B
    • outline-tree-create-outline-and-select-node �̓����ύX�B
    • NetInstaller �� (ni-autoload) �p�t�@�C���X�V�B
    • ���̑��B
  • (2005/12/18)
    • �Z���N�V����������ꍇ�̓��쒲���B
  • (2005/12/15)
    • �c�[���o�[��lj��B
  • (2005/12/10)
    • ���J�B

browserex

[�_�E�����[�h]

[browserex] (2005/10/08)

[����]

�R�{�׎O����� html+-mode ���� s.oowada ����� browser.dll�A ���܂������������ browser.dll �g���� ��֗��Ɏg�킹�Ă��炤�B

browser.l �Ɠ��l�� browser.dll ���g�p���邽�߂̃T���v�� Lisp �t�@�C���ł��B��� HTML �t�@�C���̃v���r���[�A�Ƃ��� browser.dll �𗘗p���邱�Ƃ�z�肵�Ă��܂��B

�o���邱�ƁF

  • ���͂��ꂽ URL �̓��e�̕\��
  • �\�����e�̍ĕ`��
  • �J���Ă��邩�ǂ����̔���
  • �‚���
  • �\���J�n���i�J���Ƃ��j�̂ݗL���ȕ\���ʒu�i�㉺���E�A���� or ���j�w��
  • xyzzy ��̕\���ʒu�i�㉺���E�j�̕ύX�Ƃ��̈ʒu�̎����ۑ�
  • �J�����g�o�b�t�@�̃t�@�C�����e�\��
  • �t�@�C�����������Ȃ��J�����g�o�b�t�@�̓��e�𕶎��R�[�h�E���s�R�[�h��ۂ����܂܃e���|�����t�@�C���ɏo�͂��AHTML �t�@�C���Ƃ��ĕ\��
  • �J�����g�o�b�t�@�̃t�@�C���̃f�B���N�g���\��
  • �i�f�B���N�g���\�����̃X�^�C���w��j
  • �c�[���o�[����̑���
  • �}�E�X�Ŏw�肵�� URL�A���[�J���t�@�C���p�X�̓��e�̕\��
  • �X�N���[��
  • �i�i�ށA�߂�A�z�[���ֈړ��A�J���Ă��� URI �̕\���j

���ɐݒ��Ƃ��ċL�ڂ��Ă�����e(�̈ꕔ)�B

  • M-F9,M-F12 �� browser.dll �g�p�� on/off�B
  • M-F10 �Ńt�H���_�\���B
  • M-F11 �� browser.dll �̕\���̈��ύX�B
  • �E�N���b�N�̓���̕ύX�B
  • html+-mode �ł� C-x C-s �ŕۑ��Ɠ����ɉ�ʍX�V�B
    (�쑽����� auto-time-stamp.l ���g�p�����Ē����Ă��邽�߁Asave-buffer-with-time-stamp ����`����Ă���ꍇ�͂�������g�p����悤�ɂȂ��Ă��܂�)�B
  • ���Ƃ��� Another HTML-lint ���g���ݒ�B
    (AN HTTP Server �� ActivePerl ��p���ă��[�J���œ������Ă���A�m�F�̍ۂɂ� cygwin ��ł� w3m �ł̕\�����m�F���Ă���B)
[browserex]

[browserex-syslistview]

[browserex-htmllint]

[ChangeLog]

  • (2005/10/08)
    • ���C�Z���X����(�C��BSD���C�Z���X)���L�ځB
  • (2005/04/16)
    • browserex-uninstall �� interactive �łȂ��֐��ɕύX�B
    • xyzzy 0.2.2.234 �Ή�
      • ���p�J�i��S�p�J�i�ɕύX�B
    • ���j���[�w��C���B
      • *browserex-menu-position* ���q�X�g���ϐ��łȂ������B
        �� (bx::browserex-uninstall) ��]����ċN�����邱�ƂŔ��f����܂��B
      • *browserex-menu-position* �̏����l�ύX�B
      • *browserex-menu-name* �̏����l�ύX�B
      • �v���p�e�B�[�V�[�g�ł� menu �lj��ʒu�w��p�~�B
  • (2004/03/03)
    • navigate �ɑ΂��� ~/ �ŊJ�n���镶�����n�����ꍇ�W�J����悤�ɁB
    • navigate �ł� interactive ���͂ŕ⊮�”\�ɁB
    • *browserex-history* �̒lj��B
    • *browserex-scheme-list* �lj��B
    • *browser-start-page* �̃f�t�H���g�l�� nil �ɁB
  • (2004/01/20)
    • insert-browserex-focus-menu-items �g���B
    • ���j���[�֘A�C���B
    • �����Ɏw�E�����������R�����g�� typo �C���B
    • win-window.l ���Ȃ��ꍇ�ł��ꕔ�@�\���g�p�ł��Ȃ������œ��삷��悤�ɏC���B
    • uninstall-browserex ���C���ƂƂ��� browserex-uninstall �ɖ��̕ύX�B
  • (2003/05/06)
    • ���[�J���t�@�C���Q�Ǝ��̕ϊ�
    • browserex-mouse-menu-popup �C���B(�����s�I�����ɉE�N���b�N�Ń��j���[���\������Ȃ�����)
    • ���j���[�́u�c�[�������ʐݒ�v�Ƀv���p�e�B�V�[�g�lj��B(win-window.l �K�{)
    • �R�{�׎O����� Gecko �� browser dll �ɉ��Ή��B���� change-browser �lj��B
    • ���j���[�lj��B�ݒ�̓v���p�e�B�[�V�[�g����B
    • uninstall-browserex �C���B
    • NetInstaller �Ή��B
    • �u����������Ă��Ȃ����j���[�ł��v�ƃG���[���ł�ꍇ���������̂��C���B
    • ���j���[�֘A�R�[�h�C���B
    • �R�[�h�����B
    • ���̑��B
  • (2002/07/26)
    • ���� lisp �t�@�C���� winapi �p�b�P�[�W�� SetFocus ����`����Ă���A���� export ����Ă��Ȃ��ꍇ�� byte-compile �ł��Ȃ��Ȃ��Ă����_���C���B
    • Win32API �ɂ‚��Ē��r���[�� winapi �p�b�P�[�W�Œ�`���Ă����̂��Abrowserex �p�b�P�[�W�Œ�`����悤�ɕύX�B
  • (2002/07/02)
  • (2002/01/17)
    • ~/etc �� browser.dll ��u���Ă��� siteinit.l �� browserex.l �̋L�q�����Ă���� browser.dll �����[�h�ł��Ȃ��̂��C���B
    • �g�p���� browser.dll �� xyzzy �N�����ɕύX�ł���悤�ɂ����B
    • ���ݎg�p���Ă��� dll �̃p�X�� (bx:browser-dll-pathname) �ŁB
  • (2002/01/13)
    • �}�E�X�Ŏw�肵�� URL�A���[�J���t�@�C���p�X�̓��e�̕\���B�����ꍇ�͉��̐ݒ�̗l�Ɋe���� #\RBtnUp �ɐݒ肵�ĉ������B�摜�̕\���Ɏg������B
  • (2002/01/08)
    • navigate-current-buffer-directory �̓���������ύX�B
    • �t�H���_���J���ꍇ�A�ǂ����ڍו\���ւ̃X�^�C���ύX�͑��ɂ������Ċ댯�Ȃ悤�Ȃ̂ŁALVS_REPORT �� export ���Ȃ��悤�ɂ��܂����B �ڍו\���̃J���������S�� 0 �ɂȂ��Ă��܂��悤�Ȃ�ł����A��x�񕝂𒼂��΂���Ȃ�ɓ����Ă���Ă�悤�ȋC�����܂��B�i�ڍו\���́j�X�^�C���ύX�͂ƂĂ��댯�Ȃ悤�Ȃ̂Ŏ��ȐӔC�ł��肢���܂��B���ɖ��f�������Ă��܂������A�{���ɂ��݂܂���B
  • (2002/01/07)
    • �ׂ����Ƃ��B
  • (2002/01/06)
    • browser.dll �̌����p�X�𑝂₵�Ă݂��B �����ݒ�̂܂܂Ȃ� xyzzy/, xyzzy/etc/, xyzzy/site-lisp/ �ȉ��ɒu���Ă����Α��v���Ǝv���܂��B
  • (2002/01/04)
    • ������� SysListView32 �̃X�^�C���ύX���s����悤�ɂ��Ă݂��B �����ꍇ�� bx:*browser-syslistview-style* �� bx:LVS_SMALLICON, bx:LVS_LIST, bx:LVS_REPORT �̂ǂꂩ�������Ƃ��Ă݂Ă��������B �^�C�~���O�ł��܂������Ȃ��ꍇ������܂��B
  • (2002/01/01)
    • browser-wrap.l ��P�̂� browser.dll �̎g�p���@�T���v���ƂȂ�悤�ɂ� browserex.l �ɖ��̕ύX�B
      browser-wrap ����ڍs����ꍇ�͐ݒ�t�@�C������ browser-wrap �Ɋւ���L�q���폜������ŁA�_���v�t�@�C����q�X�g���[�t�@�C������]���ȏ����폜���邽�߂ɁA
      (delete '*browser-position* ed::*history-variable-list* :test #'eq)
      (delete-command-bar 'browser-tool-bar)
      
      ��]�����Ă��� xyzzy ���ă_���v�A�ċN�����Ă����Ă��������B

[�ݒ��]

(require "browserex")
(setq bx:*browser-width* 300)
(setq bx:*browser-height* 200)
(setq bx:*browser-start-page* "http://www.google.com/search?hl=ja&lr=lang_ja&num=100&q=")
(setq bx:*browser-temp-file* (merge-pathnames "tmp/browser-temp.html" (si:system-root)))
;(setq bx:*browser-syslistview-style* bx:LVS_LIST)
;(setq bx:*browser-use-refresh* t)

(global-set-key #\M-F9 'bx:navigate-current-buffer)
(set-function-bar-label #\M-F9 "OpenBrowser")
(global-set-key #\M-F10 'bx:navigate-current-buffer-directory)
(set-function-bar-label #\M-F10 "OpenDir")
(global-set-key #\M-F11 'bx:rotate-browser)
(set-function-bar-label #\M-F11 "RotateBrowser")
(global-set-key #\M-F12 'bx:close-browser)
(set-function-bar-label #\M-F12 "CloseBrowser")
;(global-set-key #\RBtnUp 'bx:browserex-mouse-menu-popup)
;(global-set-key #\Apps 'bx:browserex-apps-popup)

;; ndiary-mode ����q�؁B
(require "wip/winapi")
(defun toggle-navigate-current-buffer ()
  (interactive)
  (cond
   ((bx:browser-open-p)
    (bx:close-browser)
    (winapi:ShowWindow (get-window-handle) 9))
   (t
    (winapi:ShowWindow (get-window-handle) 3)
    (bx:navigate-current-buffer :position bx:XPIS_LEFT
                                :size 480))))
(global-set-key #\M-F8 'toggle-navigate-current-buffer)
(set-function-bar-label #\M-F8 "ToggleBrowser")

(global-set-key #\M-Up 'bx:browserex-scroll-up)
(global-set-key #\M-Down 'bx:browserex-scroll-down)
(global-set-key #\M-Left 'bx:browserex-scroll-left)
(global-set-key #\M-Right 'bx:browserex-scroll-right)
(global-set-key #\M-PageUp #'(lambda () (interactive) (bx:browserex-scroll-up :unit :page)))
(global-set-key #\M-PageDown #'(lambda () (interactive) (bx:browserex-scroll-down :unit :page)))
(global-set-key #\M-Home #'(lambda () (interactive) (bx:browserex-scroll-up :unit :all)))
(global-set-key #\M-End #'(lambda () (interactive) (bx:browserex-scroll-down :unit :all)))

;; ���܂������� ����g����
(global-set-key #\M-F7 'bx:show-location-browser)
(set-function-bar-label #\M-F7 "ShowLocation")
(global-set-key #\S-M-Left 'bx:go-back-browser)
(global-set-key #\S-M-Right 'bx:go-forward-browser)
(global-set-key #\S-M-Home 'bx:go-home-browser)

;; browser.l ���ǂ��ݒ�B
(defun navigate (url)
  (interactive "sURL: ")
  (bx:navigate url))
(defun refresh-browser ()
  (interactive)
  (bx:refresh-browser))
(defun close-browser ()
  (interactive)
  (bx:close-browser))

(defun my-html+-mode-hook ()
  ; ------------------------------------------------------------
  ;; browser ���J���Ă����猻�݂̃t�@�C����\��
  (bx:navigate-current-buffer-if-open)

  ;; �ۑ��Ɠ����� navigate
  ;; auto-time-stamp.l �� save-buffer-with-time-stamp ���g���Ă���ꍇ�ɑΉ�
  (define-key ed::*html+-mode-map* '(#\C-x #\C-s)
              #'(lambda ()
                  (interactive)
                  (if (fboundp 'save-buffer-with-time-stamp)
                      (save-buffer-with-time-stamp)
                    (save-buffer))
                  (bx:navigate-current-buffer-if-open)))

  ; ------------------------------------------------------------
  ; html+-mode �� htmllint ���g���č\���`�F�b�N (CGI)
  (defvar *htmllint-url* "http://localhost/htmllint/htmllint.cgi?V;X=w3m;URL=")
  (defun htmllint-cgi ()
    (interactive)
    (let ((file (get-buffer-file-name)))
      (when file
        (bx:close-browser)
        (bx:navigate (concat *htmllint-url* file)))))
  (define-key ed::*html+-mode-map* '(#\C-c #\C-l) 'htmllint-cgi)
  (define-key ed::*html+-mode-map* #\M-F7 'htmllint-cgi)
  (set-function-bar-label #\M-F7 "htmllint")

  ; ------------------------------------------------------------
  ; html+-mode �� htmllint ���g���č\���`�F�b�N
  (defvar *htmllint-file* "C:/httpd/htdocs/htmllint/htmllint")
  (defun htmllint-exec ()
    (interactive)
    (let ((file (get-buffer-file-name)))
      (when file
        (pipe-command
         (format nil "perl \"~A\" \"~A\""
                 (map-slash-to-backslash *htmllint-file*)
                 (map-slash-to-backslash file))))))
  (define-key ed::*html+-mode-map* '(#\C-c #\l) 'htmllint-exec))
(add-hook 'ed::*html+-mode-hook* 'my-html+-mode-hook)

topmost

[�_�E�����[�h]

[topmost] (2005/10/08)

[����]

xyzzy �̍őO�ʕ\���̐ݒ�E�������s���܂��B
[topmost-top]

[ChangeLog]

  • (2005/10/08)
    • ���C�Z���X����(�C��BSD���C�Z���X)���L�ځB
  • (2004/06/12)
    • �摜�t�@�C���ύX�B
    • �摜�t�@�C�����ύX�B
    • NetInstaller �Ή��B
  • (2001/12/25)
    • �c�[���o�[���‚����肵�� Tips ����i�グ�����Ă݂��B

explorer

[�_�E�����[�h]

[explorer] (2005/10/08)

[����]

explorer ���N�����܂��B
[explorer]

[ChangeLog]

  • (2005/10/08)
    • ���C�Z���X����(�C��BSD���C�Z���X)���L�ځB
  • (2005/07/24)
    • �A�C�R���C���B
  • (2004/09/24)
    • �t�@�C�������݂��Ȃ��ꍇ�A�t�H���_��ΏۂɃR�}���h�����s����悤�ɏC���B
  • (2004/02/05)
    • ���ō쐬�B

toggle-gates

[�_�E�����[�h]

[toggle-gates] (2005/10/08)

[����]

�W���L�[�o�C���h�� Windows �L�[�o�C���h��؂�ւ��܂��B
[toggle-gates]

[ChangeLog]

  • (2005/10/08)
    • ���C�Z���X����(�C��BSD���C�Z���X)���L�ځB
  • (2004/06/13)
    • uninstall-toggle-gates �� toggle-gates-uninstall �ɖ��̕ύX�� interactive �łȂ��֐��ɕύX�B
    • toggle-gates.bmp �� toolbar-toggle-gates.bmp �Ɩ��̕ύX����ƂƂ��ɁA�z�u�ꏊ�� $XYZZY/etc �ȉ��ɕύX�B
    • �摜�t�@�C���z�u�ꏊ�̕ύX�ƂƂ��ɕW���C���X�g�[���p�X��ύX�B
    • NetInstaller �Ή��B
  • (2002/09/19)
    • *extended-key-translate-table* ���ۑ�����悤�ɁB
    • selection-keymap ��߂����˂Ă����̂��C���B
  • (2002/09/18)
    • �K�v�ɂȂ����̂ňȑO���������̂������C���B

chini

[�_�E�����[�h]

[chini] (2005/10/08)

[����]

xyzzy.ini �𒼐ڑ��삵�ݒ��ύX���܂��B
�E����ݒ�̕ۑ�/�Ǎ�(�ؑ�)
�E�t�@�C���ݒ�̕ۑ�/�Ǎ�(�ؑ�)
�E�o�b�t�@�Z���N�^�ݒ�̕ۑ�/�Ǎ�(�ؑ�)
�EMisc�ݒ�̕ۑ�/�Ǎ�(�ؑ�)

�E�t�H���g�ݒ�̕ۑ�/�Ǎ�(�ؑ�)
�E�F�ݒ�̕ۑ�/�Ǎ�(�ؑ�)
[chini]

[chini-2]

[Usage]

�ȉ��u����v�̐ݒ�ύX���@�B�������l�B
  • [�~�j�o�b�t�@]
    1. M-x chini-save-print-setting �ň���ݒ��ۑ�����B
    2. M-x chini-load-print-setting �ň���ݒ��ǂݍ��ށB
  • [�_�C�A���O]
    1. ���j���[�� [�t�@�C��]-[����ݒ�̕ۑ�] �ň���ݒ��ۑ�����B
    2. ���j���[�� [�t�@�C��]-[����ݒ�̓ǂݍ���] �������́A[�t�@�C��]-[�ŋߎg��������ݒ�] �ň���ݒ��ǂݍ��ށB

[ChangeLog]

  • (2005/10/08)
    • ���C�Z���X����(�C��BSD���C�Z���X)���L�ځB
  • (2005/04/13)
    • xyzzy 0.2.2.234 �Ή�
      • ���p�J�i��S�p�J�i�ɕύX�B
      • chini-insert-menu-items �X�V�B
        �uxyzzy.ini �ݒ�ύX�v���j���[��lj�����ʒu�̃f�t�H���g���u(>_<)�v�̉��ɁB
      • chini-*-insert-menu-items �X�V�B
        ���j���[�lj��ʒu�̎w��� :pre-tag �ł��w��ł���悤�ɁB
  • (2004/07/07)
    • �t�H���g/���/�t�@�C��/�o�b�t�@�Z���N�^/Misc �ɂ‚��Ă̐ݒ�؂�ւ���lj��B
    • �e�֐����ꊇ��������悤�ɕύX(ed::chini-generate-function)�B
      �֐��������� compile ���邩�� ed::*chini-compile-function-p* �ϐ��Ő��䂷��B
    • *chini-directory* �̏����l�� (user-homedir-pathname) ���� (user-config-path) �ɕύX�B
    • *chini-popup-menu* �lj��B(chini-insert-menu-items) �ł̓f�t�H���g�ł� "�c�[��" ���j���[�ɒlj�����B
    • chini-*-insert-menu-items �� access-key ���w��ł���悤�ɁB
  • (2004/07/05)
    • �_���v�t�@�C������ chini.l �̏������܂܂ꂽ�ꍇ�ɃG���[����������̂��C���B
      (create-popup-menu ���s���^�C�~���O�̏C��)
  • (2004/06/28)
    • ���ō쐬�B

[�g�p��]

(require "chini")
(setq *chini-directory*
      (append-trail-slash (merge-pathnames ".chini" (user-config-path))))
(setq *chini-font-directory*
      (append-trail-slash (merge-pathnames "font" *chini-directory*)))
(setq *chini-color-directory*
      (append-trail-slash (merge-pathnames "color" *chini-directory*)))
(setq *chini-print-directory*
      (append-trail-slash (merge-pathnames "print" *chini-directory*)))
(setq *chini-filer-directory*
      (append-trail-slash (merge-pathnames "filer" *chini-directory*)))
(setq *chini-bufselector-directory*
      (append-trail-slash (merge-pathnames "buffer-selector" *chini-directory*)))
(setq *chini-misc-directory*
      (append-trail-slash (merge-pathnames "misc" *chini-directory*)))
(setq *chini-backup-config-file-directory*
      (append-trail-slash (merge-pathnames "backup" *chini-directory*)))
(add-hook '*init-app-menus-hook*
          #'(lambda ()
              ;; �t�H���g
              ;(chini-font-insert-menu-items :head-sep t)
              ;; �F
              ;(chini-color-insert-menu-items :head-sep t)
              ;; ���
              (chini-print-insert-menu-items :pre-tag 'ed::print-selected-buffer-dialog)
              ;; �t�@�C��
              ;(chini-filer-insert-menu-items :head-sep t)
              ;; �o�b�t�@�Z���N�^
              ;(chini-bufselector-insert-menu-items :head-sep t)
              ;; Misc
              ;(chini-misc-insert-menu-items :head-sep t)
              ;; *chini-popup-menu*
              (chini-insert-menu-items :head-sep t)) t)

buf2html

[�_�E�����[�h]

[buf2html-0.0.0.15] (2006/01/29)

[����]

�Ȃ�ׂ��o�b�t�@�̕\�����Č�����悤�� HTML �𐶐����܂��B
�\�[�X�R�[�h�̈���ɂł��B

��s���]�\���ȊO�́A�L�[���[�h�E���K�\���L�[���[�h�Etext-attribute �ɑΉ����Ă��܂��B

�������قǂقǂ̏o���Ȃ̂ŁAxyzzy �Ƃ͈قȂ�L�[���[�h�𐳋K�\���L�[���[�h�����K���D�悵�Ă��܂��܂��B�����ӂ��B

�i�Â���������Ȃ��jbuf2html.l ���g�� buf2html �������ʁB

�i�Â���������Ȃ��jbuf2html.l ���g�� buf2html-with-number �������ʁB�ɏ����t���B

www-mode �ł̕\���� HTML ���B

�^ part7 �� 2ch-mode �ŕ\��������Ԃ� HTML ���B

[buf2html]

[ChangeLog]

  • [Version 0.0.0.15] (2006/01/29)
    • �ϊ���A�o�̓o�b�t�@���J�����g�o�b�t�@�Ƃ��ē��삷�� *buf2html-post-convert-buffer-hook* �lj��B
    • �����I�ɏo�̓o�b�t�@�̃G���R�[�f�B���O��ݒ肷�邽�߂� *buf2html-encoding* �y�сA���s�R�[�h��ݒ肷�邽�߂� *buf2html-eol-code* ��lj��B���w�莞�͕ϊ����o�b�t�@�̐ݒ��p����B
    • �o�̓o�b�t�@�̃G���R�[�f�B���O�� HTML �w�b�_�̐������Ƃ��悤�ɁA�G���R�[�f�B���O�Ɖ��s�R�[�h�̎w��ʒu��ύX�B
  • [Version 0.0.0.14] (2005/10/08)
    • ���C�Z���X����(�C��BSD���C�Z���X)���L�ځB
  • [Version 0.0.0.13] (2005/04/09)
    • �e��֐��� nomsg ������lj��B
    • buf2html-set-buffer ���C���B
    • �R�����g�̏C���B
    • xyzzy 0.2.2.234 �Ή�
      • ���p�J�i��S�p�J�i�ɕύX�B
      • buf2html-insert-menu-items �X�V�B
        �uHTML�`���Ŗ��O��t���ĕۑ��v���j���[��lj�����ʒu�̃f�t�H���g���u���O��t���ĕۑ��v�̉��ɁB
  • [Version 0.0.0.12] (2004/06/13)
    • ����(region, selection)��Ώۂ� buf2html ���s�����ꍇ�A�i���X�e�[�^�X���o�b�t�@�S�̂ɑ΂��Ă̒l�ƂȂ��Ă����̂��C���B
    • ini2css-buffer �ł̏o�͂Ƀ^�u�������܂߂Ȃ��悤�ɕύX�B
    • *buf2html-buffer-tmp* �o�b�t�@���\���o�b�t�@�ɕύX�B
    • buf2html-get-ini2css-string �lj��B
    • *buf2html-internal-xyzzy-css* �lj��B
      HTML �t�@�C������ xyzzy.ini ���琶������ CSS ���܂߂邩�ۂ��B
    • buf2html, buf2html-print-header �ɁAinternal-css-p �����lj��B
    • buf2html-get-region-string ���̃o�b�t�@���\���ɁB
    • buf2html-save-as-dialog (HTML�`���Ŗ��O��t���ĕۑ�) �lj��B
    • buf2html-set-app-menu �lj��B
      HTML�`���Ŗ��O��t���ĕۑ� �����j���[�ɒlj�����B
  • [Version 0.0.0.11] (2003/02/19)
    • URL �炵���Ƃ���� <A> �^�O���‚���ݒ� *buf2html-anchor-url* �ݒ�lj��B
      �A���J�[�^�O�̃N���X�� buf2html�B<A class="buf2html" href="...">�B
    • ���� CSS �w��A�z�z�� *buf2html-internal-css-alist* �lj��B
    • ���̑��B
  • [Version 0.0.0.10] (2003/02/16)
    • buf2html-copy-region-as-kill, buf2html-copy-region-to-clipboard, buf2html-copy-selection, buf2html-copy-selection-to-clipboard �lj��B
    • buf2html-set-app-popup-menu �lj��B �E�N���b�N���j���[�ւ̒lj��B
  • [Version 0.0.0.9] (2002/11/24)
    • editor �p�b�P�[�W�ɓ��ꂽ�B
    • buf2html-region, buf2html-region-complete ��lj��B
    • *buf2html-ignore-paren-highlight* �Ŋ쑽����� paren.l �� ���ʂ��ꎞ�I�ɖ��������ĕϊ��ł���悤�ɁB
    • *buf2html-lower-case* �̎w��Ń^�O���������ɂł���悤�ɁB �����A���m�O�T�����̂ŏo�͐�𖳗���� string �ɕύX�����ꍇ�� �������삵�܂���B
    • �o�� CSS �t�@�C�����X�g *buf2html-css-list*
    • ���[�W�����w��ϊ����� pre �^�O�̃N���X���X�g *buf2html-region-css-class-list*
    • �o�̓o�b�t�@�̃��[�h�w�� *buf2html-mode-function*
    • ���̑��B
  • [Version 0.0.0.8] (2002/05/06)
    • buf2html �� (interactive "p") �ɂ��Ă݂��B
    • ini2css-file �ł� xyzzy �� INI �t�@�C���̃f�t�H���g�p�X���C���B
    • ini2css-buffer �� ctlColor ���ϊ�����悤�ɁB
  • [Version 0.0.0.7] (2002/01/09)
    • �L�[���[�h���g�p���Ă��Ȃ����[�h�̃o�b�t�@�ŃG���[���ł�̂��C���B
  • [Version 0.0.0.6] (2001/12/18)
    • ��������~�X�ŃG���[���łĕϊ��ł��Ȃ��ꍇ���������̂��C���B
    • ����ς�܂��܂��܂Ƃ��ł͂���܂���ł����B
      buf2html �ł̓L�[���[�h�𐳋K�\���L�[���[�h�����K���D�悵�Ă��܂����A�J�n�ʒu�������ق����D�悳���悤�ł��B�����J�n�ʒu�Ȃ�L�[���[�h�̕����D�悳���݂����B��c����A��񂠂肪�Ƃ��������܂��B�i�܂��Ή����Ă��܂���j
  • [Version 0.0.0.5] (2001/12/15)
    • ML �ŋT�䂳��ɋ����Ă������������Ƃ𔽉f�B ���낢��܂Ƃ��ɂȂ����Ǝv���܂��B ���肪�Ƃ��������܂����B
      ��s���]�\���ȊO�͂܂Ƃ��ɕϊ��ł���悤�ɂȂ��Ă��邱�Ƃ����ҁB
  • [Version 0.0.0.4] (2001/12/14)
    • tag �̂��郂�[�h���ǂ����̔���𐳊m�ɁB
  • [Version 0.0.0.3] (2001/12/10)
    • �s�ԍ��t���o�� buf2html-with-number �lj��B
  • [Version 0.0.0.2] (2001/12/08)
    • �L�[���[�h���啶������������ʂ��邩�̔���B
    • tag ���� (syntax-open-tag-p, syntax-close-tag-p) ���L�[���[�h���D�悳����悤�ɏC���B
    • ���̑��B
  • [Version 0.0.0.1] (2001/12/07)

[�ݒ��]

;; http://ohkubo.s53.xrea.com/xyzzy/index.html#buf2html
(require "buf2html")
(buf2html-set-app-menu)
(buf2html-set-app-popup-menu)
(setq *buf2html-auto-mode-parameter-string* "Mode: html+")
(setq *buf2html-date-format* "%a, %d %b %Y %H:%M:%S %Z")
(setq *buf2html-time-stamp-start* "Time-stamp: &lt;")
(setq *buf2html-time-stamp-end* "&gt;")
(setq *buf2html-css-list* '("xyzzy.css" "konata.css"))
(setq *buf2html-region-css-class-list* '("bgcolor" "border"))
(setq *buf2html-ignore-paren-highlight* t)
(setq *buf2html-anchor-url* t)
(setq *buf2html-lower-case* t)
(setq *buf2html-internal-css-alist*
      '(("A.buf2html" . ("text-decoration: none"
                         "background: #ffe0e0"))
        ("A.buf2html:active" . ("background: #ffaaaa"))
        ("A.buf2html:hover" . ("background: #ffaaaa"))))
; symbol �̏Փ˂�����ł��Ȃ��ꍇ�� (require "html+-mode") ���s�������
(setq *buf2html-mode-function* 'ed::html+-mode)

re-builder

[�_�E�����[�h]

[re-builder-20050608] (2005/06/08)

[����]

���K�\���̍쐬�E�m�F���s���܂��B
emacs �p�� re-builder.el �� xyzzy �ɈڐA���܂����B

�g�p����V���^�b�N�X�ɉ����� [lisp-re] [sregex] [rx] �� require ���܂��B

[�g�p���@]

M-x re-builder

[�L�[�o�C���h]

�L�[����
C-c C-q�I��
C-c C-s���̈�v���ڂ�
C-c C-r�O�̈�v���ڂ�
C-c C-c�啶���������̋�ʂ�؂�ւ�
C-c C-w���K�\���� kill-ring �փR�s�[
C-c C-isyntax �̐؂�ւ�
C-c C-e�e�O���[�v�ʂɌ������ʂ�\��
C-c C-u�������ʂ̍ĕ\��
C-c C-b�^�[�Q�b�g�o�b�t�@�̕ύX
[re-builder]

[ChangeLog]

  • (2005/05/27)
    • �啶���������̋�ʐ؂�ւ����� :smart ���l������悤�ɁB
      • reb-rotate-case �֐��lj��B
      • reb-update-modestring �X�V�B
      • C-c C-c �̃L�[�o�C���h�� reb-rotate-case �ɕύX�B
  • (2005/05/24)
    • rx.el �� rx.l �ւ̈ڐA�ɔ����A`rx' syntax �֑Ή��B
  • (2005/05/20)
    • sregex.el �� sregex.l �ւ̈ڐA�ɔ����A`sregex' syntax�֑Ή��B
  • (2005/05/19)
    • Meadow 2.20 �t���� re-builder.el �����ɈڐA�������B
    • *reb-re-syntax* �̏����l�� re-builder.el �ɍ��킹 'read �ɖ߂����B
    • lisp-re.el �� lisp-re.l �ւ̈ڐA�ɔ����A`lisp-re' syntax �֑Ή��B
  • (2005/05/17)
    • �������x�ɈڐA�I��
    • window-configuration �𒼋߂����łȂ������Ŏ��‚悤��
    • ���̑������C��
  • (2005/05/16)
    • �ڐA�J�n

[�ݒ��]

(require "re-builder")
(setq *reb-re-syntax* 'ed::string)
(setq *reb-match-attributes*
  '((:bold t :foreground 1 :background 2)
    (:bold t :foreground 1 :background 3)
    (:bold t :foreground 1 :background 4)
    (:bold t :foreground 1 :background 5)
    (:bold t :foreground 1 :background 6)
    (:bold t :foreground 1 :background 7)
    (:bold t :foreground 1 :background 8)
    (:bold t :foreground 1 :background 9)
    (:bold t :foreground 1 :background 10)
    (:bold t :foreground 1 :background 11))
(define-key ed::*reb-mode-map* #\F5 'ed::reb-next-match)
(define-key ed::*reb-mode-map* #\S-F5 'ed::reb-prev-match)
(define-key ed::*reb-subexp-mode-map* #\F5 'ed::reb-next-match)
(define-key ed::*reb-subexp-mode-map* #\S-F5 'ed::reb-prev-match)

popup-mode-memo

[�_�E�����[�h]

[popup-mode-memo-0.0.0.3] (2005/10/08)

[����]

���[�h���̃L�[�o�C���f�B���O�⎩���Őݒ肵�������� popup �\�����܂��B
���[�h���̃L�[�o�C���f�B���O��������ƒ��ׂ����M���ɁB
(�����̌��������������ꍇ�� TAB �������֗��ł�)
[popup-mode-memo]

[ChangeLog]

  • [Version 0.0.0.3] (2005/10/08)
    • �����֐����ύX�B(join-string-list �� popup-mode-memo-join-string-list ��)
    • �����ϐ����ύX�B(popup-mode-memo-list �� *popup-mode-memo-list* ��)
    • ���C�Z���X����(�C��BSD���C�Z���X)���L�ځB
    • NetInstaller �Ή��B
  • [Version 0.0.0.2] (2001/08/17)
    • *popup-mode-memo-one-side-local* �ϐ��̒lj��B t ���ƃ���������ꍇ *popup-mode-memo-view-local-bindings* �� t �ł� binding ��\�����Ȃ��B minor mode �̂��Ƃ��l���Ă��Ȃ�������ƓK���B
  • [Version 0.0.0.1] (2001/08/17)
    • ���Y��̌����������̂��߂ɍ쐬�������̂������܂Ƃ��ɂ��Č��J�B

[�ݒ��]

(require "popup-mode-memo")
; C-F12 �ŕ\��
(global-set-key #\C-F12 'popup-mode-memo)
(set-function-bar-label #\C-F12 "memo")

; minor mode �� binding ��\��
(setq *popup-mode-memo-view-minormode-bindings* t)
; local mode �� binding ��\��
(setq *popup-mode-memo-view-local-bindings* t)
; global �� binding ��\��
(setq *popup-mode-memo-view-global-bindings* nil)
; t ���ƃ���������ꍇ *popup-mode-memo-view-local-bindings* �� t �ł�
; local mode �� binding ��\�����Ȃ�
(setq *popup-mode-memo-one-side-local* nil)

(popup-mode-memo-add-new
 'lisp-interaction-mode         ; buffer-mode �Ŏw�� (ESC ESC buffer-mode)
 "F1:           info-modoki"
 "F5:           �J������t�@�C���� byte-compile"
 "F10:          load-library ���̏�ʼn����ƑΏۃt�@�C�����J��"
 "C-c b:        siteinit.l ���R���p�C�����A�_���v�t�@�C��������"
 "C-x C-e:      �Ō�̃Z���e���X��]�� (eval-last-sexp)"
)

(popup-mode-memo-add-new
 'editor::diff-mode             ; buffer-mode �Ŏw�� (ESC ESC buffer-mode)
 "n:            diff-forward"
 "ESC Down:     diff-forward"
 "p:            diff-backward"
 "ESC Up:       diff-backward"
 "m:            diff-merge              (�V�����Ƀ}�[�W)"
 "r:            diff-merge-reverse      (����V�Ƀ}�[�W)"
 "u:            diff-undo"
 "q:            diff-quit"
)

(popup-mode-memo-add-new
 "Lisp"                         ; mode-name �Ŏw�� (ESC ESC mode-name)
 "F1:           info-modoki"
 "C-x C-e:      �Ō�̃Z���e���X��]�� (eval-last-sexp)"
)

�����E�ҏW

clickable-uri (�� clickable-url)

[�_�E�����[�h]

[clickable-uri] (2005/10/08)

[����]

���_�u���N���b�N�ɂ�� WEB �u���E�U�A���[���[���̋N�����”\�ɂ��܂��B
URI (Uniform Resource Identifier) �����\�����s���܂��B
[clickable-uri]

[ChangeLog]

  • (2005/10/08)
    • file: �̏ꍇ���̂܂� shell-execute �ɓn���悤�ɕύX�B
    • ���C�Z���X����(�C��BSD���C�Z���X)���L�ځB
  • (2005/02/05)
    • �����R�[�h�̕ύX�ɂ�� *clickable-url-emphasis-deny-mode-list* �w��̈Ӗ����قڂȂ��Ȃ��Ă������߁A�w�莩�̂��폜�B
  • (2005/01/08)
    • clickable-uri-mouse-left-press �C���B(clickable-uri-open) �����ɐ��������ꍇ�� (mouse-left-press) �������s��Ȃ��悤�ɁB
    • �R�����g�C���B
  • (2004/10/26)
    • clickable-uri �Ƃ��ď��������Bfile:... ���� open �”\�ɁB
    • �X�L�[���� typo ���C���B
    • ����̍��N���b�N�� URI �� open ���邩���w�肷�� *clickable-uri-click-count* �lj��B
    • clickable-uri-emphasis-any-mode �� clickable-uri-emphasis-force �ɖ��̕ύX�B
    • clickable-uri-emphasis-threshold �� clickable-uri-emphasis �ɓ������A�폜�B
    • *clickable-uri-open-command* ��p�~���A*clickable-uri-open-command-alist* ��lj��B
    • ���Ғʂ�ɓ����Ă��Ȃ����Ƃ�����A*clickable-uri-keep-focus* �̏����l�� nil �ɕύX�B
    • clickable-uri-set-regexp �lj�
    • *clickable-uri-modify-uri-alist* �lj�
  • (2004/09/26)
    • *clickable-url-attribute* �p�~�B
    • *clickable-url-selection-attribute* �� *clickable-url-open-attribute* �ɖ��̕ύX�B
    • *clickable-url-selection-timeout* �� *clickable-url-open-attribute-timeout* �ɖ��̕ύX�B
    • set-text-attribute ��p���Ȃ��Ȃ������߁A*-set-attribute-* �� *-emphasis-* �ɖ��̕ύX�B
    • URI �������\�����郂�[�h���w�肷��̂ł͂Ȃ��A�����\�����Ȃ����[�h���w�肷��悤�ɕύX�B
      ��̓I�ɂ́A*clickable-url-set-attribute-mode-list* ��p�~���A*clickable-url-emphasis-deny-mode-list* ��lj��B �����\�����Ȃ����[�h�̃��X�g��ݒ肷��B
    • *clickable-url-threshold* �� *clickable-url-emphasis-threshold* �ɖ��̕ύX�B
    • clickable-url-emphasis-threshold ��臒l������t�@�C���T�C�Y�ł͂Ȃ��o�b�t�@�T�C�Y (buffer-size) �����ɍs���悤�ɕύX�B
  • (2004/09/25)
    • ���{�I�ɏ���������̂͂����Ă����A�����\���� set-text-attribute �łȂ� regexp-keyword �ōs���悤�ɕύX�B keyword �ɑ΂��� color �ݒ�� *clickable-url-keyword-color* �ŁB
  • (2004/09/24)
    • �uxyzzy�̎g������������ʂ₵ ��܂����� ����5�v�� 528 �ł̕s��ubackground=http://xyzzy.xyzzy/... �� "background" �����̃_�u���N���b�N�Ńu���E�U�������オ��v�ɑΏ��B
  • (2004/06/18)
    • ����t�@�C�����ʃp�b�P�[�W(winapi)�� *define �����V���{�� foo �� winapi:foo �Ƃ��Ďw�肵�Ă���� byte-compile �ł��Ȃ����ɑ΂��đΉ��B
  • (2004/06/12)
    • clickable-url-open �Ń��b�Z�[�W��\������悤�ɁB
    • xyzzy �̃t�H�[�J�X���ێ�����悤�ɁB���Ă݂��‚��肪���܂������Ȃ��B
    • *clickable-url-open-command* �lj��B
    • �t�@�C���T�C�Y��臒l���肷��R�}���h��lj��B*find-file-hooks* �ł͖{�R�}���h�����s�B
      clickable-url-set-attribute-threshold
      *clickable-url-threshold*
    • long-operation �ɁB
    • ���s�� message �\���lj��B
    • NetInstaller �Ή��B
  • (2002/02/23)
    • �I�𕶎���̋����\����A������ text-attribute �𕜌�����悤�ɁB
  • (2002/02/19)
    • clickable-url-open �����������B
    • �I�𕶎�����V�F���ɓn���O�ɋ����ł���悤�ɁB
  • (2002/01/25)
    • ttp:// �ł������悤�ɁB
  • (2002/01/24)
    • �Ƃ肠���������Ă݂܂����B

[�ݒ��]

(require "clickable-uri")
;; �����\���́u�����F4(��)�v�{�u�A���_�[���C���v
(setq *clickable-uri-keyword-color* '(:color 4 0 :underline))
;; �I�[�v�����̋����\���́u�����F4(��)�v�u�A���_�[���C���v�u�{�[���h�v
(setq *clickable-uri-open-attribute* '(:foreground 4 :underline t :bold t))
;; �I�[�v�����̋����\�����Ԃ� 0.2 �b
(setq *clickable-uri-open-attribute-timeout* 0.2)
;; URI �\�������ƌ��Ȃ��������g��
(setq *clickable-uri-chars*
      "-a-zA-Z0-9_/~.@?&=;+(),'$!*:#%|�O-�X�`-�y��-����-��@-����-�")

;; http: https: scheme ���I�[�v������R�}���h���w��
(push '("^https?:" . "D:/utils/sleipnir/Sleipnir.exe")
      *clickable-uri-open-command-alist*)
;; Nami2000, kie
;; <file@...>
(push "<file@.+>" *clickable-uri-special-regexp-list*)
(push (cons "^<file@.+>$"
            #'(lambda (uri)
                (string-matchp "<file@\\(.+\\)>$" uri)
                (ed::clickable-uri-find-file (match-string 1))))
      *clickable-uri-open-command-alist*)
;; <node@...> �ŊK�w���e�L�X�g�̃^�C�g���ɔ��
(push "<node@.+>" *clickable-uri-special-regexp-list*)
(push (cons "^<node@.+>$"
            #'(lambda (uri)
                (let (goto-point node-str)
                  (string-matchp "<node@\\(.+\\)>$" uri)
                  (setq node-str (regexp-quote (match-string 1)))
                  (save-excursion
                    (goto-char (point-min))
                    (when (scan-buffer (concat "^\\.+" node-str " *$") :regexp t)
                      (setq goto-point (point))))
                  (when goto-point
                    (goto-char goto-point)))))
      *clickable-uri-open-command-alist*)

(defvar *my-isbn-url*
  "http://bookweb.kinokuniya.co.jp/guest/cgi-bin/wshosea.cgi?W-ISBN=")
;; urn:isbn:
(push "urn:isbn" *clickable-uri-scheme-list*)
(push (cons "^urn:isbn:"
            #'(lambda (uri)
                (string-matchp "^urn:isbn:\\(.*\\)" uri)
                (concat *my-isbn-url* (match-string 1))))
      *clickable-uri-modify-uri-alist*)
;; <%=isbn_image "isbn" "comment" %>
(push "<%=isbn_image +\"[0-9A-Za-z]+\".+?%>"
      *clickable-uri-special-regexp-list*)
(push (cons "^<%=isbn[_a-zA-Z]+ +\"\\([0-9A-Za-z]+\\)"
            #'(lambda (uri)
                (string-matchp "<%=isbn[_a-zA-Z]+ +\"\\([0-9A-Za-z]+\\)" uri)
                (concat *my-isbn-url* (match-string 1))))
      *clickable-uri-modify-uri-alist*)
;; wnet#://host/dir
(push "wnet#" *clickable-uri-scheme-list*)
(push (cons "^wnet#:"
            #'(lambda (uri)
                (string-matchp "^wnet#:\\(.+\\)" uri)
                (ed::clickable-uri-find-file (match-string 1))))
      *clickable-uri-open-command-alist*)

;; �ݒ�ύX�𔽉f
(clickable-uri-set-regexp)

(global-set-key #\C-l 'clickable-uri-recenter)
(global-set-key '(#\C-c #\C-l) 'clickable-uri-emphasis-force)
(global-set-key '(#\C-c #\C-o) 'clickable-uri-open)

pickup-pattern

[�_�E�����[�h]

[pickup-pattern-0.0.0.6] (2005/10/08)

[����]

����������/�w�肵���p�^�[���������\�����܂��B
�I���p�^�[��/�S�p�^�[���̋����\���̉����A�ĕ`�悪�”\�ł��B

����������J����Ă��镶����F�Â� lisp �̈�‚ł��B
�֘A lisp �� Yamamoto Shinji ����ɂ�� [xyzzy:05281] �� colorstring.l, strcolor, Toy ����ɂ�� toy-color.l �Ȃǂ�����܂��B
[pickup-pattern]

[ChangeLog]

  • [Version 0.0.0.6] (2005/10/08)
    • ���C�Z���X����(�C��BSD���C�Z���X)���L�ځB
  • [Version 0.0.0.5] (2004/06/14)
    • �R�����g���C���B
    • *pickup-pattern-list* �� history �ϐ��ɕύX�B
    • pickup-pattern-uninstall �lj��B
    • NetInstaller �Ή��B
  • [Version 0.0.0.4] (2002/01/09)
    • pickup-pattern-set-input-detail �Ŗ����́A�܂��͕s���ȓ��͂̏ꍇ pickup-pattern �̃f�t�H���g�ݒ�ɏ]���Ă����̂� nil �ɕύX�B
  • (2001/11/27)
    • ��s (require "struct") ��lj��������̂ƍ����ւ��B byte-compile �Ɋւ�����͂Ȃ��Ȃ����Ǝv���܂��B �T�䂳�񂠂肪�Ƃ��������܂����B
  • [Version 0.0.0.3] (2001/11/20)
    • byte-compile �͂��Ă����v���� pickup-pattern.l �̍�肪�ς̂悤�� �\���̂������Ă���ϐ� *pickup-pattern-list* �� (define-history-variable) ������Ԃ� byte-compile ����� 2 �x�ڂ� xyzzy �̋N�����炨�������Ȃ�B (define-history-variable) �������B
    • hook �Ƃ��Aeditor::*show-match-hook* �Ɉ��������邽�߂̊֐��Ƃ���lj��B
    • pickup-pattern-list-show�B
    • ���̑����낢��B
  • [Version 0.0.0.2] (2001/11/17)
    • defstruct ���g������Ailogic �Ɠ������o�C�g�R���p�C������Ƃ܂Ƃ��ɓ����Ȃ��Ȃ�܂����Bmacro �ւ̗��������|�I�ɑ���܂���B�N���B
    • �f�t�H���g�̔z�F�Ȃǂ̐ݒ��ς����B
    • �O�i�F�E�w�i�F�Ȃǂ��p�^�[�����ɐݒ肷�邱�Ƃ��ł���悤�ɁB
    • ���K�\���� pickup ����p�^�[�����O���[�v������Ă�����A��Ԗڂ̃O���[�v�Ƀ}�b�`����������̂� pickup ����悤�ɕύX�B
  • [Version 0.0.0.1] (2001/11/14)
    • ���ō쐬�BTips ���珸�i�����Ă݂��B

[�ݒ��]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; pickup-pattern
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; --- ��{�ݒ� ---
(require "pickup-pattern")
(global-set-key '(#\C-c #\p #\s) 'pickup-pattern-set-input)
(global-set-key '(#\C-c #\p #\C-s) 'pickup-pattern-set-input-detail)
(global-set-key '(#\C-c #\p #\r) 'pickup-pattern-refresh-select)
(global-set-key '(#\C-c #\p #\C-r) 'pickup-pattern-refresh-all)
(global-set-key '(#\C-c #\p #\u) 'pickup-pattern-unset-select)
(global-set-key '(#\C-c #\p #\C-u) 'pickup-pattern-unset-all)
(global-set-key '(#\C-c #\p #\d) 'pickup-pattern-delete-select)
(global-set-key '(#\C-c #\p #\C-d) 'pickup-pattern-delete-all)
(global-set-key '(#\C-c #\p #\l) 'pickup-pattern-list-show)
;; pickup �����p�^�[���̕\�����@
(setq *pickup-pattern-fg* 1)
(setq *pickup-pattern-bg* 3)
(setq *pickup-pattern-bold* t)
(setq *pickup-pattern-underline* nil)
(setq *pickup-pattern-strike-out* nil)
;; pickup ����p�^�[���̌������@
;; re-search-forward-pickup, re-search-backward-pickup �ł͖�������܂�
(setq *pickup-pattern-regexp* t)
(setq *pickup-pattern-overlap* nil)

;;; --- �����ݒ� ---
;;; ����������� pickup (������ pickup-pattern-unset-all ����)
;; �����O�� pickup �\����S�ĉ���
(setq *pickup-pattern-pre-search-unset* t)
;; ��������������X�g�ɒlj�
(setq *pickup-pattern-search-pattern-add* nil)

;; (���K�\��)������������͎��̂ݐF�Â��������ꍇ�͂������̊֐���
(global-set-key #\M-s 're-search-forward-pickup)
(global-set-key #\M-C-s 're-search-backward-pickup)
;; repeat-forward-search, repeat-backward-search ���A�ǂ̌������ɂ��F�Â�������
;; �ꍇ�͏�̂łȂ��A�����̊֐��� hook �Ɉ���������B(����F�Â�����̂Œx������)
;(add-hook '*show-match-hook* 'pickup-pattern-last-search)

;;; --- �t�b�N�ݒ� ---
;; pickup ���� paren �����ʂ݂̂� (�쑽���� paren.l)
(add-hook '*pickup-pattern-set-hook*
          #'(lambda () (setq *paren-highlight-only-paren* t)))
(add-hook '*pickup-pattern-unset-all-hook*
          #'(lambda () (setq *paren-highlight-only-paren* nil)))

ggrep

[�_�E�����[�h]

[ggrep] (2005/10/08)

[����]

Grep �ގ��̍s�w���������s���܂��B
  • �������@
    • ���������p�^�[���w�� AND/OR ����
    • ��v/�s��v����
    • �o�b�t�@/�t�@�C���P�ʍi���݌���
      • �O��}�b�`�����o�b�t�@/�t�@�C�����Č����̑Ώ�
    • �s�P�ʍi���݌���
      • �O��}�b�`�����s���Č����̑Ώ�
      • �����p�^�[���������s�ɓn���ă}�b�`����ꍇ�ł��i���݌����”\
    • �G���R�[�h�w�茟�� (�t�@�C��)
    • �V���^�b�N�X�w�茟�� (�o�b�t�@)
  • �����Ώ�
    • �J�����g�o�b�t�@�w�茟��
    • �S�\���o�b�t�@�w�茟��
    • �����f�B���N�g���w�茟��
    • �����t�@�C���w�茟��
    • ���K�\���ł̕����o�b�t�@�w�茟��
  • �o�͕��@
    • �o�b�t�@/�t�@�C�����A�s�ԍ��Ȃ��̏o��
    • �o�b�t�@/�t�@�C�����݂̂̏o��
    • �t���p�X���ł̏o��
  • �����ݒ�̕ۑ�
    • ���������ݒ�̕ۑ��A�Ǎ��A�폜(�_�C�A���O�g�p��)
[ggrep]

[�񋟃R�}���h]

������������������������������������������������������������������
���R�}���h��    ���p�^�[�����Ώ�              ���Ώ�(C-u)       ��
��              ��������������������������������������������������
��              ������                                          ��
������������������������������������������������������������������
��ggrep         �����K�\�����o�b�t�@���X�g    ���J�����g�o�b�t�@��
��              ��������������������������������������������������
��              ��AND/OR ����                                   ��
������������������������������������������������������������������
��fggrep        ��������  ���o�b�t�@���X�g    ���J�����g�o�b�t�@��
��              ��������������������������������������������������
��              ��AND/OR ����                                   ��
������������������������������������������������������������������
��ggrep-and     �����K�\�����o�b�t�@���X�g    ���J�����g�o�b�t�@��
��              ��������������������������������������������������
��              ��AND ����                                      ��
������������������������������������������������������������������
��fggrep-and    ��������  ���o�b�t�@���X�g    ���J�����g�o�b�t�@��
��              ��������������������������������������������������
��              ��AND ����                                      ��
������������������������������������������������������������������
��ggrep-or      �����K�\�����o�b�t�@���X�g    ���J�����g�o�b�t�@��
��              ��������������������������������������������������
��              ��OR ����                                       ��
������������������������������������������������������������������
��fggrep-or     ��������  ���o�b�t�@���X�g    ���J�����g�o�b�t�@��
��              ��������������������������������������������������
��              ��OR ����                                       ��
������������������������������������������������������������������
��ggrep-narrow  �����K�\����grep ���ʃo�b�t�@ ��                ��
��              ��������������������������������������������������
��              ���i���݌���(�o�b�t�@����͍s�ԍ����̂ݎ擾)  ��
������������������������������������������������������������������
��fggrep-narrow ��������  ��grep ���ʃo�b�t�@ ��                ��
��              ��������������������������������������������������
��              ���i���݌���(�o�b�t�@����͍s�ԍ����̂ݎ擾)  ��
������������������������������������������������������������������
��xggrep        �����K�\�����f�B���N�g��      ��                ��
��              ��������������������������������������������������
��              �������f�B���N�g���w�茟��                      ��
������������������������������������������������������������������
��zggrep        �����K�\�����t�@�C��          ��                ��
��              ��������������������������������������������������
��              �������t�@�C���w�茟��                          ��
������������������������������������������������������������������
��ggrep-contents�����K�\�����J�����g�o�b�t�@  ���w��o�b�t�@    ��
��              ��������������������������������������������������
��              ���i���݌���(�w��o�b�t�@���R���e���c�݂̂Ō���)��
������������������������������������������������������������������
��ggrep-buffer  �����K�\�����J�����g�o�b�t�@  ���w��o�b�t�@    ��
��              ��������������������������������������������������
��              ��ggrep / ggrep-narrow / ggrep-contents         ��
������������������������������������������������������������������
��ggrep-detail  ��        ��                  ��                ��
��              ��������������������������������������������������
��              ��minibuffer ����S�Ă��w�肵�Č���             ��
������������������������������������������������������������������
��ggrep-dialog  ��        ��                  ��                ��
��              ��������������������������������������������������
��              ��dialog ����S�Ă��w�肵�Č���                 ��
������������������������������������������������������������������
 Usage:

      A: �o�b�t�@�S�̂𐳋K�\���Ō���
        1. M-x ggrep

      B: �o�b�t�@�S�̂𕶎���Ō���
        1. M-x fggrep

      C: ���݂̃o�b�t�@����������
        1. C-u M-x ggrep

      D: �w��f�B���N�g���ȉ��̃t�@�C��������
        1. M-x xggrep

      E: �w��t�@�C��������
        1. M-x zggrep

      F: �i���݌��� 1
        1. A�`E �Ō���
        2. A�`E �̌����Ɍ���������lj����āA�V���Ɍ���

      G: �i���݌��� 2
        1. A�`E �Ō���
        2. 1. �̌��ʂ����� M-x ggrep-narrow �ōi���݌���

      H: �i���݌��� 3
        1. M-x ggrep-contents �Ńo�b�t�@������
        2. 1. �̌��ʃo�b�t�@��ōēx M-x ggrep-contents �Ō���

      I: �o�b�t�@�ɍ��킹�����@�Ō���
        1. M-x ggrep-buffer �Ō���
           - �ʏ�o�b�t�@��Ȃ�� C-u M-x ggrep �Ɠ��l�̕��@�Ō���
           - ggrep-contents ���ʃo�b�t�@��Ȃ�΁A�ēx
             M-x ggrep-contents �Ɠ��l�̕��@�Ō���
           - ���̑� ggrep ���ʃo�b�t�@��Ȃ�΁AM-x ggrep-narrow ��
             ���l�̕��@�Ō���
        2. 1. �̌��ʃo�b�t�@��ōēx M-x ggrep-buffer �Ō���

      J: minibuffer ����ׂ����w�肵�Č���
        1. M-x ggrep-detail

      K: �_�C�A���O���猟��
        a. �_�C�A���O�̕\��
          - [����]-[GGrep] ��I��
          - [�\��]-[�c�[���o�[]-[GGrep] �Ńc�[���o�[��\��������ŁA
             ggrep �c�[���o�[(�{�^��) ��I��
          - M-x ggrep-dialog �����s

        b. �������s
          1. �������@���_�C�A���O�Őݒ肷��
          2. �u�����v�{�^��������

        c. �����ݒ�̕ۑ�
          1. �u�ݒ�v�t�B�[���h�ɐݒ薼����͂���
          2. �u�ۑ��v�{�^��������

        d. �����ݒ�̓Ǎ�
          1. �u�ݒ�v�t�B�[���h�Őݒ薼��I��/���͂���
          2. �u�Ǎ��v�{�^��������

        e. �����ݒ�̍폜
          1. �u�ݒ�v�t�B�[���h�Őݒ薼��I��/���͂���
          2. �u�폜�v�{�^��������

[ChangeLog]

  • (2005/10/08)
    • ���C�Z���X����(�C��BSD���C�Z���X)���L�ځB
  • (2005/04/17)
    • xyzzy 0.2.2.234 �Ή�
      • "�l�r �o�S�V�b�N" �� "MS UI Gothic"
      • ���p�J�i��S�p�J�i�ɕύX�B
        �ˁu�f�B���N�g���v�u�����o�b�t�@�v�u�i���݃o�b�t�@�v�� <...> (... �͔��p�J�i) ���w�肵�Ă����ꍇ�́A�Ή�����S�p�J�i�̍��ڂ�I�ђ����K�v������B
      • ggrep-insert-menu-items �X�V�B
        �uGGrep�v���j���[��lj�����ʒu�̃f�t�H���g���uGrep�v�̉��ɁB
    • �R�����g�C���B
  • (2004/12/14)
    • ggrep-scan-buffer �̌��������� syntax �w�莞�������肵�Č����ł���悤�ɁB
  • (2004/12/13)
    • ggrep-scanner �R�����g�lj��B�R�[�h�ύX�B
    • �o�b�t�@�����̏ꍇ�́A�}�b�`�J�n�ʒu�� syntax ���w��ł���悤�Ɋg���B
      • ggrep-scan-buffer �lj��B
      • ggrep-dialog, ggrep1, ggrep-scanner �g���B
      • ggrep-internal, ggrep-detail �g���B
    • �����g�p�֐� ggrep-buffer-list �� ggrep-narrow-buffer-list �ɖ��̕ύX�B
    • ggrep-dialog ��[�t�@�C��/�o�b�t�@/�i����]���w�肷����̓t�B�[���h�����ꂼ��Ɨ��ɁB
    • ggrep-dialog �́u�i���݁v�Łu�J�����g�o�b�t�@�v��I���ł���悤�ɁB
    • ggrep-dialog �́u�ݒ�v�������͂���Ă��Ȃ���ԂŁu�ۑ��v�������ꍇ�A���̎��_�̓�������ݒ薼�����肷��悤�Ɋg���B
    • ggrep-detail �ł́u�i����(narrow)�v���������삵�Ȃ��o�O���C���B
    • �R�����g typo �C���B
    • ���̑��B
  • (2004/08/04)
    • �s�P�ʍi���݌����lj��B
    • ggrep-narrow, fggrep-narrow �lj��B
    • ggrep-dialog �Ŋe�푀�쎞�Ɂu�ݒ�v���������p���悤�ɁB�����p�������Őݒ�ۑ��́u�ۑ��v���������B
    • method �� ed::and ed::or ���� :and :or �ɕύX�B
    • ggrep, fggrep �Ŏw�肷�� method �𕶎��񂩂� :and, :or �ɕύX�B
    • *last-ggrep-method* �̎��’l�� method �𔻕ʂ��镶���� ("and", "or") ���� method �V���{�� (:and, :or) �ɕύX�B
    • �f�B���N�g���w�� xggrep�A�t�@�C���w�� zggrep �lj��B
    • ggrep1 �̍Ō�� hook �� *ggrep-hook* �Œ�ɕύX�B
    • ggrep-dialog �Ɂu�N���A�v�{�^���lj��B
    • �u�R���e���c�̂ݏo�́v�I�v�V������lj��B
    • " " ����n�܂�o�b�t�@���̃o�b�t�@�ł��A�����I�Ɏw�肳�ꂽ�ꍇ�͌����ΏۂƂ���悤�ɕύX�B(grep �Ƃ͈قȂ�)
    • ��s�ꃌ�R�[�h�� DB ����������p�r�ɗp���邱�Ƃ�z�肵�� ggrep-contents ��lj��B�lj��ɂ�����Aggrep1 �C���B
    • �Ώۃo�b�t�@�ɂ�� ggrep, ggrep-narrow, ggrep-contents ��؂�ւ��� ggrep-buffer ��lj��B
  • (2004/05/23)
    • �t�@�C�����X�g(�t���p�X)�w�茟���lj��B
    • �o�b�t�@���X�g(���K�\��)�w�茟���lj��B
  • (2004/05/17)
    • �i���݌����Ώۃo�b�t�@���Ȃ��ꍇ�͑I���R���{�{�b�N�X�𖳌��ɁB
  • (2004/05/16)
    • AND ������ 2004/2/17 �ȍ~���삵�Ă��Ȃ������̂��C���B
    • �i���݌����lj��B
    • ggrep-scan-files-async �� typo �C���B
  • (2004/03/03)
    • �c�[���o�[�lj��B
    • ggrep-find-error-scanner �̒lj��B
    • OR �����Ȃǂ̐��\�𑽏����P�B(scanner �d�l�̊g��)
    • encoding ���w�肵�Ă̌������”\�ɁB
    • *ggrep-patterns*, *ggrep-directories* �̏����l���C���B
    • ���݂��Ȃ��ݒ薼�Łu�Ǎ��v�����ہA�ݒ���N���A����悤�ɕύX�B
  • (2003/07/28)
    • ���ō쐬�B
    • ggrep-dirs-normalization �C���B

multiple-replace

[�_�E�����[�h]

[multiple-replace] (2005/04/13)

[����]

����������̒u�����s���܂��B
  • multiple-replace-string
  • query-multiple-replace
  • multiple-replace-regexp
  • query-multiple-replace-regexp
  • multiple-replace-dialog
[multiple-replace]

[ChangeLog]

  • (2005/04/13)
    • multiple-replace-dialog �́u�ݒ�v�������͂���Ă��Ȃ���ԂŁu�ۑ��v�������ꍇ�A���̎��_�̓�������ݒ薼�����肷��悤�Ɋg���B
  • (2005/04/11)
    • xyzzy 0.2.2.234 �Ή�
      • "�l�r �o�S�V�b�N" �� "MS UI Gothic"
      • ���p�J�i��S�p�J�i�ɕύX�B
      • multiple-replace-insert-menu-items �X�V�B
        �u����������u���v���j���[��lj�����ʒu�̃f�t�H���g���u�u���v�̉��ɁB
    • �R�����g�C���B
  • (2003/12/21)
    • ��s�ڂɌ������������͂��Ȃ������ꍇ�A����ύX���ł��Ȃ��_���C���B
    • menu �֘A���C���B
    • uninstall �֘A�lj��B
  • (2003/10/04)
    • �����Ǘ��lj��B
      �Ƃ��Ȃ��ݒ�̕ϐ��� multiple-replace �Ǝ��̂��̂�p����悤�ɁB
  • (2003/04/14)
    • ���ō쐬�B

diff-detail

[�_�E�����[�h]

[diff-detail] (2006/03/30)

[����]

diff �̍X�V�s���A���K�\���܂��͊֐��Ŏw�肵���g�[�N���P�ʂōēx��r���܂��B
;;
;;      1. ���s
;;          1.1 diff �܂��� diff-detail �����s
;;              M-x diff
;;                or
;;              M-x diff-detail
;;
;;          1.2. �ڍו\�� (token �Ƃ��鐳�K�\���̕ύX)
;;              "." �L�[ (M-x diff-detail-change-grain)
;;
;;      2. �ړ�
;;              n: diff-mode �� n �Ɠ���
;;              p: diff-mdoe �� p �Ɠ���
;;
;;              N: ���̕ύX�ʒu�ֈړ�
;;              P: �O�̕ύX�ʒu�ֈړ�
;;
;;            TAB: ��r�o�b�t�@�̑Ή�����ύX�ʒu�ֈړ�
;;
;;      3. �����ҏW
;;              m: diff-mode �� m �Ɠ���
;;              r: diff-mode �� r �Ɠ���
;;              u: diff-mode �� u �Ɠ���
;;
;;              M: diff-detail ������ merge
;;              R: diff-detail ������ merge-reverse
;;              U: diff-detail ������ undo
;;
;;      4. ���̑�
;;              c: diff ��ʂ̏c�������̐؂�ւ�
;;            SPC: ��r�o�b�t�@�̑Ή�����ύX�͈͂������\��
;;              v: HTML �ɕϊ��������ʂ�\��
;;        C-c C-h: HTML �ɕϊ�
;;        C-c RET: �^�K��(Manued)�ɕϊ�
;;
[diff-detail]

[ChangeLog]

  • (2006/03/30)
    • diff-detail-change-grain-default �lj��B
    • ��r�t�@�C���ɈႢ���Ȃ��ꍇ�Adiff-detail ���G���[�ƂȂ�̂��C���B
  • (2005/12/05)
    • diff-detail �֐��̈��� token-regexp �̏����l�� *diff-detail-token-regexp* �ɁB
  • (2005/10/08)
    • ���C�Z���X����(�C��BSD���C�Z���X)���L�ځB
  • (2005/01/22)
    • Manued �ϊ��̏C��/�g���B
      • �e�퐧�䕶����ݒ�”\�ɁB( [/|;]~ ����̕ύX)
      • older-first/last newer-first/last ��ݒ�”\�ɁB
      • defcommand �o�͒lj��B
  • (2005/01/19)
    • DocDiff <http://www.kt.rim.or.jp/~hisashim/docdiff/> ���Q�l�ɂ� HTML �o�͒lj��B
      • diff-detail-convert-to-html �lj��B
      • diff-detail-view-html �lj��B
      • *diff-detail-temp-html-file* �lj��B
    • �^�K�� (Manued) �o�͒lj��B
      • diff-detail-convert-to-manued �lj��B
    • ������� token �����ɐ��K�\���ȊO�Ɋ֐���p�����悤�Ɋg���B
      • diff-detail-char, diff-detail-word �͐��K�\���łȂ��Aforward-char, forward-word ��p����悤�ɕύX�B
      • ���̑��e��֐��g���B
      • diff-detail-change-grain-char, diff-detail-change-grain-word ��lj��B
    • diff-detail ��Ԃ��� diff ��Ԃւ̕��A���@��ύX�B
      • diff-text-attributes �lj��B
      • diff-text-attributes-buffer-modified-count �lj��B
      • diff-detail-save-attributes �lj��B
      • diff-detail-restore-attributes �ύX�B
    • diff-detail-find-text-attribute �̃o�O�C���B
      • from �� to �̒l�������� tag �����݂����ꍇ�Ƀ��[�v�Ɏ��邱�Ƃ��������B
  • (2004/03/08)
    • diff-detail, diff-detail-change-grain �ł� token ���K�\�����͗p�� hisotry (*diff-detail-token-regexp-history*) ��lj��B
    • hisotry �lj��ɔ��� diff-detail-uninstall �lj��B
    • diff-detail-blink �lj��B
    • *diff-detail-forward-interactive-hook* �lj��B
    • diff-merge-ex, diff-merge-reverse-ex, diff-undo-ex �lj��B
    • ���̑��B
  • (2004/03/07)
    • $XYZZY/lisp/diff.l �� diff-set-modified �̕s��Ɠ��l�� diff-detail-set-modified �̕s����C���B
    • *diff-detail-merge-attributes* �lj��B
    • diff-detail-forward, diff-detail-backward �� merge ��Ԃ� +, - �s�Ɉړ��ł��Ȃ������_���C���B
  • (2003/12/01)
    • �ȉ���lj��B
      • diff-forward-ex
      • diff-backward-ex
      • diff-detail-merge
      • diff-detail-merge-reverse
      • diff-detail-undo
    • �L�[�o�C���h�ύX
  • (2003/11/28)
    • diff-detail-change-grain �lj�
  • (2003/11/23)
    • diff-detail-forward, diff-detail-backward �lj�
  • (2003/10/27)
    • token �P�ʂł̔�r�Ɋg��
  • (2003/10/22)
    • �쐬
  • (2003/10/21)
    • �쐬�J�n

sort-line

[�_�E�����[�h]

[sort-line] (2005/10/08)

[����]

�C�ӂ̃J�����ȍ~���L�[�Ƃ��āA�o�b�t�@�S�́^�I��͈͂̍s�̃\�[�g���s���܂��B

�I��͈͂̐擪�s�ɂ‚��ẮA�J�[�\������`�I���̉E��̏ꍇ�������A�s�S�̂��܂܂�Ă��Ȃ��Ƃ��\�[�g�͈͂Ƃ݂Ȃ��܂��B�I��͈̖͂����s�ɂ‚��ẮA�J�[�\�����s���̏ꍇ�A��`�I���̍����̏ꍇ�������\�[�g�͈͂Ƃ݂Ȃ��܂��B

������g��Ȃ��ŕ��ʂɃ\�[�g����ꍇ�́A�Ώ۔͈͂� region �w�肵��

C-x | sort
�ƃ^�C�v���ĊO���R�}���h�Ń\�[�g���܂��B
[sort-line]

[ChangeLog]

  • (2005/10/08)
    • ���C�Z���X����(�C��BSD���C�Z���X)���L�ځB
  • (2005/04/15)
    • �R�����g�C���B
    • xyzzy 0.2.2.234 �Ή�
      • ���p�J�i��S�p�J�i�ɕύX�B
    • sort-line-uninstall �� interactive �łȂ��֐��ɕύX�B
  • (2004/03/03)
    • �L�[�̃J�����w����”\�ɁB
    • NetInstaller �Ή��B
    • ���̑��B
  • (2001/12/29)
    • �Ȃ�ƂȂ����J�B

���[�h

csv-mode

[�_�E�����[�h]

[csv-0.0.3.0] (2006/10/21)

[����]

CSV, TSV �t�@�C�� (*.csv, *.tsv) �p���[�h�ł��B
���܂�傫�ȃt�@�C���̕ҏW�ɂ͓K���Ă��܂���B

[�L�[�o�C���h]

ESC TAB���s���񂩂�̕⊮����
C-c C-e�ҏW�_�C�A���O
C-c M-C-e�I��ҏW�_�C�A���O
C-u C-c C-e����
C-c C-v���ݍs���e�̕\��
C-c C-w���ݍs���e�� window �\��
C-c C-s��ƕ��@��I�����ă\�[�g
�@
C-c C-i��̑}���^�lj�
C-c C-d��̍폜
C-c C-c��̓���
�@
C-c C-o�񕝂��ŏ���
C-c C-a�񕝂𑵂���
�@
C-c C-x�s�Ɨ�̓���
�@
C-c C-b�r���݂͂ɕϊ�
C-c C-hHTML �����ɕϊ�
�@
C-c C-t��s�ڂ��w�b�_�Ƃ��邩�ǂ����̃g�O��
C-c C-,�Z�p���[�^�̕ύX
C-c C-;���s�\�������̕ύX
�@
C-n���s�Ɉړ��B�s�\���p�E�B���h�E�ɓ��e��\���B
C-p�O�s�Ɉړ��B�s�\���p�E�B���h�E�ɓ��e��\���B
M-n���s�̓�����Ɉړ�
C-Down����
M-p�O�s�̓�����Ɉړ�
C-Up����
TAB���̗�Ɉړ�
M-f����
C-Right����
M-b�O�̗�Ɉړ�
C-Left����
[csv-mode-select] [csv-mode-dialog] [csv-mode-menu] [csv-mode-record]

[ChangeLog]

  • [Version 0.0.3.0] (2006/10/21)
    • xyzzy 0.2.2.234 �Ή��B
    • ���C�Z���X����(�C��BSD���C�Z���X)���L�ځB
    • C-c C-x �ł́u�s�Ɨ�̓����v(csv-change-row-column) �lj��B
    • C-c C-w �ł́u���ݍs���e�̃E�B���h�E�\���v�ŕ\�������E�B���h�E�ŕҏW�ł���悤�ɁB
    • �r���͂ݕ\�����̃��[�h csv-box-mode �쐬�B
    • �����\�[�g�̍ہA"," ���܂܂�Ă��悢�悤�ɕύX�B
    • �ʉ݋L�� \ $ ���܂܂�Ă��Ă��}�b�`����悤�� *csv-number-regexp* ���X�V�B
    • csv-edit-dialog �X�V�B
      • next-line-add-newlines �̍l������߁A�K�v�Ȃ�Ώ�ɐV�K�s��lj�����悤�ɁB
      • ��s�ҏW���邱�ƂɁAundo ���E��ݒ肷��悤�ɁB
    • csv-max-column-number �֐��ŁA�S�s�𒲂ׂ��ۂ̒l�̃L���b�V�������‚悤�ɍX�V�B
    • �l�����̏ꍇ�A�e��ϊ��֐��ʼnE�񂹂���悤�ɁA�֐����X�V�B
      csv-adjust-column, csv-convert-to-box, csv-convert-to-html
    • ���j���[����̃R�[�h���C���B
    • �S�s�������񐔂łȂ��� csv-convert-to-box ���G���[��Ԃ��Ă����̂��C���B
    • csv-join-string-list �� str-list �� nil ���n���ꂽ�ꍇ�A�G���[����������̂��C���B
    • �i���[�C���O���ɐ��퓮�삷��悤�ɁA�e��֐��X�V�B
    • defvar-local �Œ�`����ϐ��̃V���{������ *xxx* ���� xxx �ɕύX�B
    • *csv-mode-local-map* �� csv-mode-local-map �ɕύX�B
    • ���̑��A�e��֐����A�֐���`�A�ϐ����A�ϐ���`�ύX
    • �R�����g�ADOCSTRING �lj��A�C���B
    • ���̑��B
  • [Version 0.0.2.1] (2003/05/19)
    • menu ����̃R�[�h���C���B (M-x csv-mode ���s�����тɃ��j���[����������̂��C���B)
  • [Version 0.0.2.0] (2003/04/27)
    • *csv-buffer-convert* �� "*CSV: Convert*" �ɁB
    • nconc �̕���p��s���悭���҂����R�[�h�������̂��C���B
    • csv-next-line, csv-previous-line �̖��̂� csv-next-line-keep-column, csv-previous-line-keep-column �ɕύX�B
    • xyzzy Part8 704 ����̃A�C�f�A���������� csv-view-line-on-window, csv-change-newline, csv-next-line, csv-previous-line ��V���ɒlj��B
    • NetInstaller �Ή�
    • ���̑��B
  • [Version 0.0.0.13] (2003/03/07)
    • menu �� tag �̊ԈႢ���C���B
    • csv-toggle-local-line-number, csv-toggle-local-cursor-line �lj��B
    • *csv-line-number*, *csv-cursor-line*, *csv-buffer-fold-width* �w��lj��B
  • [Version 0.0.0.12] (2003/03/03)
    • csv-menu-update �X�V�B menu ��\����Ԃ��l������悤�ɁB
  • [Version 0.0.0.11] (2002/09/18)
    • tdict �t�@�C���ҏW�̂��߂� tsv-mode �lj��B �����A*csv-tsv-separator-char* �p�~�B
  • [Version 0.0.0.10] (2002/05/27)
    • csv-edit-dialog �̈ړ��������C���B
    • ���ʐݒ�́u�I�����̏�Ԃ�ۑ�����v�Ƀ`�F�b�N������Ă���� buffer-local ���j���[����������Ȃ��_���C���B(thanks YMTZ ����)
    • *csv-mode-hook* �� *csv-mode-map* ��ύX���Ă����f����Ȃ��_���Ƃ肠�����C���B csv-set-separator �� csv-update-keymap �ɖ��̕ύX�B����ɔ������̕ύX�B *csv-mode-map* ��ύX������� csv-update-keymap ���ĂԕK�v������܂��B
  • [Version 0.0.0.9] (2002/02/17)
    • �_�C�A���O�ŕҏW�B
    • *csv-header-flag-default* *csv-max-column-number-strict-default* *csv-separator-char-default* �p�~�B
    • *csv-header-flag* *csv-max-column-number-strict* *csv-separator-char* �� buffer local �ȕϐ��ɁB
    • next-line-add-newlines ���l������悤�ɁB
    • ���̑��B
  • [Version 0.0.0.8] (2002/01/19)
    • ���j���[���‚����B
    • �L�[�o�C���h��ς����B
    • �r���t�������ւ̕ϊ��AHTML �����ϊ��B
    • ���̑��B
  • [Version 0.0.0.7] (2001/10/31)
    • �t�@�C�����̂Ȃ��o�b�t�@�� csv-mode �ɏo���Ȃ������o�O���C���B
  • [Version 0.0.0.6] (2001/10/23)
    • �ϐ����̕ύX *csv-max-column-strict-default* �� *csv-max-column-number-strict-default* ��
    • csv-convert-to-box
  • [Version 0.0.0.5] (2001/10/19)
    • �\�[�g�̏C��
  • [Version 0.0.0.4] (2001/10/19)
    • �\�[�g���@��lj����₷���悤�ɏC���B
    • *csv-header-flag* �� *csv-header-flag-default* �ɕύX�B
    • *csv-separator-char* �� *csv-separator-char-default* �ɕύX�B
    • *csv-tsv-separator-char*�B �g���q�� tsv �̏ꍇ�� separator character�B character ���w�肵�Ă���ꍇ separator ������ character �ɁB
    • *csv-max-column-number-strict-default* (ver 0.0.0.6)�Bt, nil, ���̑��̒l�B
  • [Version 0.0.0.3] (2001/10/18)
    • �\�[�g���C���B
    • �f�t�H���g�ň�s�ڂ��w�b�_�ƔF������悤�ɕύX�B
    • �w�b�_����̏ꍇ�͕⊮���͂Ƀw�b�_���܂܂Ȃ��悤�ɁB
  • [Version 0.0.0.2] (2001/10/18)
    • ��̑}���^�lj��E�폜�E�����B
    • ��ƕ��@��I�����ă\�[�g�B
    • ��s�ڂ��w�b�_�Ƃ��Ă��邩�ǂ�����mode-line�ɕ\���iC-c h �Ńg�O���j�B
  • [Version 0.0.0.1] (2001/10/17)
    • ���ō쐬�B

[�ݒ��]

(export 'ed::csv-mode "ed")
(autoload 'csv-mode "csv-mode" t)
(autoload 'tsv-mode "csv-mode" t)
(pushnew '("\\.csv$" . csv-mode) *auto-mode-alist* :test 'equal)
(pushnew '("\\.tsv$" . csv-mode) *auto-mode-alist* :test 'equal)
;; �\�[�g���@�̒lj�
(defun my-csv-mode-hook ()
  (pushnew (list "�������̏��Ȃ���"
                 #'(lambda (str-a str-b)
                     (let ((len-a (length str-a))
                           (len-b (length str-b)))
                       (cond
                        ((< len-a len-b) -1)
                        ((= len-a len-b)  0)
                        (t 1)))))
           ed::*csv-sort-method-list*
           :test #'(lambda (a b) (string= (car a) (car b)))))
(add-hook 'ed::*csv-mode-hook* 'my-csv-mode-hook)

mayu-mode

[�_�E�����[�h]

[mayu-0.0.0.6] (2005/10/08)

[����]

�u���g���̗J�T�v�̐ݒ�t�@�C�� (*.mayu) �p���[�h�ł��B

[�L�[�o�C���h]

RET
���s�{�C���f���g�t��
TAB
�C���f���g�t��
C-c C-c
���[�W�������R�����g��
C-;
���݂̍s�̃R�����g���g�O��
M-;
indent-for-comment
[mayu-mode]

[ChangeLog]

  • [Version 0.0.0.6] (2005/10/08)
    • �u���g���̗J�T�vver. 3.30 �t���� mayu-mode.el �̃L�[���[�h�ɏ����B
    • ���C�Z���X����(�C��BSD���C�Z���X)���L�ځB
  • [Version 0.0.0.5] (2004/06/13)
    • NetInstaller �Ή��B
  • [Version 0.0.0.4] (2002/01/09)
    • mayu- �� prefix �łȂ� function ���� mayu- ��t�������̂ɕύX�B
    • �L�[���[�h�̑啶������������ʂ��Ȃ��悤�ɕύX�B
  • [Version 0.0.0.3] (2001/08/29)
    • �u���g���̗J�T�vver. 3.26 �� mayu-mode.el �ɑΉ����Ă݂��‚���B �L�[���[�h�� "R-" �ւ̑Ή��ƁAM-; (indent-for-comment) �̏C���B
  • [Version 0.0.0.2] (2001/08/23)
    • RET �Ƃ� TAB �ŃC���f���g�ł���悤�ɂ��Ă݂��B
    • �L�[���[�h�����������Ă��Ȃ���� MAYU �t�@�C����t���Ƃ��B
  • [Version 0.0.0.1] (2001/08/06)
    • �u���g���̗J�T�vver. 3.23 �� mayu-mode.el ������ mayu-mode.l �������Ă݂��B C-cC-c �Ń��[�W�������R�����g�AC-; �ōs�̃R�����g���g�O���B

bat-mode

[�_�E�����[�h]

[bat-0.0.0.4] (2005/10/08)

[����]

�o�b�`�t�@�C�� (*.bat) �p���[�h�ł��B

[�L�[�o�C���h]

RET
���s�{�C���f���g�t��
TAB
�C���f���g�t��
C-;
���݂̍s�̃R�����g���g�O��
M-;
indent-for-comment
[bat-mode]

[ChangeLog]

  • [Version 0.0.0.4] (2005/10/08)
    • HIE ����� 2002/10/17 �ɋ����Ă��������Ă��� typo �̏C���R����C���B
    • ���C�Z���X����(�C��BSD���C�Z���X)���L�ځB
  • [Version 0.0.0.3] (2004/06/13)
    • HIE ����� 2002/10/17 �ɋ����Ă��������Ă��� typo �C���B
    • NetInstaller �Ή��B
  • [Version 0.0.0.2] (2001/12/12)
    • �΂����肢�낢��J�b�g���܂����B
  • [Version 0.0.0.1] (2001/08/06)
    • �K�v�ɂ��܂��č���Ă݂��B�͂܂����\���`�F�b�N�łƂĂ��d���B �R�����g�╶��������\�ނ��蔻�f���Ă���̂ł��������_�������Ƒ��X�B (set-text-attribute) ���g���Ă���̂ŐF�w��� :comment, :string ���w��ł��� �F�ݒ肪�ƂĂ��ւ�B�F�ݒ�����Ȃ��Ƃ܂Ƃ��ɂ‚����Ȃ����ƁB

      �����Ŏg��Ȃ��̂ŕ��u���ł��B

ini-mode

[�_�E�����[�h]

[ini-0.0.0.4] (2005/10/08)

[����]

INI �t�@�C�� (*.ini) �p���[�h�ł��B

[�L�[�o�C���h]

C-c C-c
���[�W�������R�����g��
C-;
���݂̍s�̃R�����g���g�O��
C-#
�R�����g�J�n�����̕ύX
M-;
indent-for-comment
[ini-mode]

[ChangeLog]

  • [Version 0.0.0.4] (2005/10/08)
    • ���C�Z���X����(�C��BSD���C�Z���X)���L�ځB
  • [Version 0.0.0.3] (2004/06/12)
    • NetInstaller �Ή��B
  • [Version 0.0.0.2] (2002/01/12)
    • �R�����g�J�n������ύX�ł���悤�ɂ����B
  • [Version 0.0.0.1] (2001/09/05)
    • INI �t�@�C���p�̌��܂��������͂Ȃ��悤�ȋC�����邯�ǓK���ɍ���Ă݂��B �@����Ȃ��̂�����ǁA�K�v�ȋ@�\���v���‚��Ȃ��̂ł��̂܂܂����B

manued-mode

[�_�E�����[�h]

[manued-0.0.2.0] (2005/10/08)

[����]

Manued �t�@�C����ҏW���邽�߂̃}�C�i�[/���W���[���[�h�ł��B
�u�^�K��(Manued)�v�Ƃ́A�u�Z�����@�̈��ł���A���ɓd�q�I�ȕ����̍Z����e�Ղɂ��邽�߂̎�@�v�ł��B

���^�K�� (Manued : Manuscript Editing language)

���񋟂���@�\

  • �Z�������̃n�C���C�g��
  • �Z���p�����̐���
  • �Z���L���̓�������������Z���O�̕����𒊏o
  • �Z���L���̓�������������Z����̕����𒊏o
  • �Z���ʒu�̃T�[�`�@�\
  • �Z���L�����͕⏕
  • �Z�������ҏW�⏕
  • �^�K���V���{���̍Ē�`

[�L�[�o�C���h]

;;      ��manued-minor-mode
;;
;;      M-n          ���̃R�}���h�ֈړ�
;;      M-p          �O�̃R�}���h�ֈړ�
;;      M-N          �����x���̎��̃R�}���h�ֈړ�
;;      M-P          �����x���̑O�̃R�}���h�ֈړ�
;;      M-]          �Ή�����R�}���h�J�•�����ֈړ�
;;      C-l          ��ʕ\���̍X�V
;;      C-c C-m e    �����G���[�ʒu�ֈړ�
;;      C-c C-m C-e  ���O�̃R�}���h��]��
;;
;;      C-c C-m C-d  ���[�W������ delete �R�}���h�ɕϊ�
;;      C-c C-m C-s  ���[�W������ swap �R�}���h�ɕϊ�
;;      C-c C-m C-c  ���[�W������ comment �ɕϊ�
;;
;;      C-c C-m d    delete �R�}���h�̕ҏW
;;      C-c C-m s    swap �R�}���h�̕ҏW
;;      C-c C-m c    �R�����g�̕ҏW
;;      C-c C-m C-m  �󋵂ɉ������R�}���h/�R�����g�̕ҏW
;;
;;      S-Apps       Manued ���j���[ (Selection �p)
;;      S-�E�N���b�N Manued ���j���[ (Selection �p)
;;
;;
;;      ��manued-mode
;;
;;      M-n          ���̃R�}���h�ֈړ�
;;      M-p          �O�̃R�}���h�ֈړ�
;;      M-N          �����x���̎��̃R�}���h�ֈړ�
;;      M-P          �����x���̑O�̃R�}���h�ֈړ�
;;      M-]          �Ή�����R�}���h�J�•�����ֈړ�
;;      C-l          ��ʕ\���̍X�V
;;      C-c C-m e    �����G���[�ʒu�ֈړ�
;;      C-c C-m C-e  ���O�̃R�}���h��]��
;;
;;      C-c C-m C-d  ���[�W������ delete �R�}���h�ɕϊ�
;;      C-c C-m C-s  ���[�W������ swap �R�}���h�ɕϊ�
;;      C-c C-m C-c  ���[�W������ comment �ɕϊ�
;;
;;      C-\          undo (manued-mode �Ȃ�� read-only �ł� undo)
;;      C-w          ���[�W������ delete �R�}���h�ɕϊ� (C-c C-m C-d �Ɠ���)
;;      C-d          �Z���N�V�����܂��͌��݈ʒu�� delete �R�}���h�ɕϊ�
;;      Delete       ����
;;      C-h          �Z���N�V�����܂��͒��O�ʒu�� delete �R�}���h�ɕϊ�
;;      C-k          ���݈ʒu����s�����܂ł� delete �R�}���h�ɕϊ�
;;
;;      C-c C-m d    delete �R�}���h�̕ҏW
;;      d            ����
;;      C-c C-m s    swap �R�}���h�̕ҏW
;;      s            ����
;;      C-c C-m c    �R�����g�̕ҏW
;;      c            ����
;;      C-c C-m C-m  �󋵂ɉ������R�}���h/�R�����g�̕ҏW
;;      C-m          ����
;;
;;      S-Apps       Manued ���j���[ (Selection �p)
;;      S-�E�N���b�N Manued ���j���[ (Selection �p)

[�d�l]

;;    ��manued-mode.l ver. 0.0.1.0 �ł̏C���L����`�R�}���h (defcommand)
;;
;;      defparentheses  [ ]
;;      defdelete       /
;;      defswap         |
;;      defcomment      ;
;;      defescape       ~
;;      deforder        older-first
;;      defversion      0.0.1.0-manued-mode_for_xyzzy
;;
;;    ��manued-mode.l ver. 0.0.1.0 �ł� Manued �R�}���h (manued-command)
;;
;;      Manued �R�}���h�� default �̋L����p���Đ�������B
;;
;;      �E[A/B]
;;             A���������AB��}������B
;;
;;             [A/] : A �������B(A ���󕶎��Œu��������)
;;             [/A] : A ��}������B(�󕶎��� A �Œu��������)
;;
;;      �E[A|B|C]
;;             A��C�̈ʒu����ꊷ���ACBA�̕��тŏo�͂���B
;;
;;             [A||C] A��C����ꊷ����B
;;
;;      �E[; comment ]
;;             ; ���� ] �܂ł̓R�����g�ƂȂ�B
;;
;;    ��manued-mode.l �ł̏C���L����`�R�}���h�̋L�q�”\�ꏊ
;;
;;      buffer �̐擪����̂݁B
;;      narrowing ���Ă���ꍇ�ł��Abuffer �擪�̏C���L����`�R�}���h�݂̂�
;;      �]������B
[manued-mode]

[ChangeLog]

  • [Version 0.0.2.0] (2005/10/08)
    • ���C�Z���X����(�C��BSD���C�Z���X)���L�ځB
  • [Version 0.0.1.1] (2005/02/13)
    • find-text-attribute �� find-text-attribute-if �ɕύX�B
  • [Version 0.0.1.0] (2005/02/10)
    • �쐬�J�n
    • �쐬
    • set-text-attribute �Ɉˑ�����R�[�h�ɑS�ʕύX�B

box-fixation-mode

[�_�E�����[�h]

[box-fixation-mode] (2005/10/08)

[����]

�r�����ҏW���s�����߂̃}�C�i�[/���W���[���[�h�ł��B
�r�����[�h (box-drawings-mode) �ŋL�q�����r����ACSV���[�h�ŕϊ������r���̈ʒu���Œ肵�‚•ҏW���s���ꍇ�Ɏg�p���܂��B
�r���Ԃ͈̔͂𒴉߂�����͂��s�����ꍇ�A���ߕ������s�ɓ��͂��܂��B�r�����‚��Ă��莟�s�ɓ��͂ł��Ȃ��ꍇ�́A�r���̌p���s��lj�������Œ��ߕ�����͂��܂��B

[�L�[�o�C���h]

��box-fixation-mode
C-f
����l�����āA���̕����ֈړ�
C-b
����l�����āA�O�̕����ֈړ�
C-n
����l�����āA���s�ֈړ�
C-p
����l�����āA�O�s�ֈړ�
C-a
��s���������͍s���Ɉړ�
C-e
��s���Ɉړ�
M-f
���̗�̗�s���Ɉړ�
M-b
�O�̗�̗�s���Ɉړ�
Right
����l�����āA���̕����ֈړ�
Left
����l�����āA�O�̕����ֈړ�
Down
����l�����āA���s�ֈړ�
Up
����l�����āA�O�s�ֈړ�
RET
���s��̕���������s�擪�ɑ}���D�K�v�ɉ����V�K�s��lj�
LFD
���s��̕����񂩂�Ȃ鎟�s���쐬�D�K�v�ɉ����V�K�s��lj�
Delete
�������폜
C-d
�������폜
C-h
����̕������폜
C-k
����l�����āA��s�L��
C-w
����l�����āA���[�W�������L�������O�ɒlj��A�폜
M-w
����l�����āA���[�W�������L�������O�ɒlj�
M-C-w
���̃L���ŃL���A�y���h����悤�ɐݒ�
M-Up
����Z���^�����O(�E���)
M-Down
����Z���^�����O(�����)
M-Left
�������
M-Right
����E��
��box-fixation-minor-mode
�L�[�o�C���h�Ȃ�
������������������������������������������������������������
��                          ��Description: �r�����ҏW���s ��
��                          �������߂̃}�C�i�[/���W���[�� ��
��                          ���[�h�ł��B�r�����[�h (box-dr��
������������������������������awings-mode) �ŋL�q�����r�� ��
����ACSV���[�h�ŕϊ������r���̈ʒu���� ��������������������
���肵�‚•ҏW���s���ꍇ�Ɏg�p���܂��B�r��                ��
�������������������������������Ԃ͈̔͂���                ��
��                        �����߂�����̈́�                ��
��          ���������������������������s��������������������
��          ��                    �������ꍇ�A���ߕ������s��
��          ��                    ���ɓ��͂�����������������
��          ��                    ���܂��B�r�����‚��Ă��脫
��          ��                    �����s�ɓ��͂ł��Ȃ��ꍇ��
��          ��                    ���́A�r���̌p���s��lj���
��          ��                    ��������Œ��ߕ�����͂���
��          ��                    ���܂��B                ��
������������������������������������������������������������

[ChangeLog]

  • (2005/10/08)
    • ���C�Z���X����(�C��BSD���C�Z���X)���L�ځB
  • (2005/04/15)
    • xyzzy 0.2.2.234 �Ή�
      • ���p�J�i��S�p�J�i�ɕύX�B
      • box-fixation-insert-menu-items �X�V�B
        �u�r�����ҏW���[�h�v���j���[��lj�����ʒu�̃f�t�H���g���u�����r���v�̉��ɁB
    • �u�r�����ҏW���[�h�v���j���[���f�t�H���g�Œlj�����悤�ɁB
    • �R�����g�C���B
  • (2005/02/02)
    • �c�[���o�[�lj��B
    • box-fixation-mode-uninstall �lj��B
  • (2005/01/08)
    • ���ō쐬�B

keep-window-line-mode

[�_�E�����[�h]

[keep-window-line-mode] (2005/10/08)

[����]

�E�B���h�E�s���Œ肷��}�C�i�[���[�h�ł��B
�E�B���h�E���X�N���[�����Ă��A�J�[�\���s�̕\���ʒu��ύX�������Ȃ��ꍇ�Ɏg�p���܂��B

[ChangeLog]

  • (2005/10/08)
    • ���C�Z���X����(�C��BSD���C�Z���X)���L�ځB
  • (2005/02/14)
    • defvar-local �ϐ��̃V���{�����O�ォ�� * �����O�B
    • minor-mode ���B
  • (2003/02/23)
    • ���ō쐬�B

���C�u����

function-bar-label

[�_�E�����[�h]

[function-bar-label] (2005/10/08)

[����]

builtin �� set-function-bar-label ���g�����Aget-function-bar-label �ł� label �擾���”\�ɂ��܂��B
[function-bar-label-1]

[function-bar-label-2]

[ChangeLog]

  • (2005/10/08)
    • ���C�Z���X����(�C��BSD���C�Z���X)���L�ځB
  • (2003/12/22)
    • ���ō쐬�B

[�g�p��]

(require "function-bar-label")

;; �~�j�o�b�t�@�ł̓t�@���N�V�����L�[�ŌŒ蕶�����}��
;; F1: �f�X�N�g�b�v
;; F2: xyzzy/site-lisp/
;; F3: xyzzy/.xyzzy
;; F4: xyzzy/site-lisp/siteinit.l
;; F5: My Documents
(dolist (keymap (list minibuffer-local-map
                      minibuffer-local-completion-map
                      minibuffer-local-command-line-map
                      minibuffer-local-must-match-map))
  (define-key keymap #\F1
              #'(lambda () (interactive)
                  (delete-region (point-min) (point-max))
                  (insert (append-trail-slash
                           (map-backslash-to-slash
                            (get-special-folder-location :desktop))))))
  (define-key keymap #\F2
              #'(lambda () (interactive)
                  (delete-region (point-min) (point-max))
                  (insert (append-trail-slash
                           (merge-pathnames "site-lisp" (si:system-root))))))
  (define-key keymap #\F3
              #'(lambda () (interactive)
                  (delete-region (point-min) (point-max))
                  (insert (merge-pathnames ".xyzzy" (user-homedir-pathname)))))
  (define-key keymap #\F4
              #'(lambda () (interactive)
                  (delete-region (point-min) (point-max))
                  (insert (merge-pathnames
                           "site-lisp/siteinit.l" (si:system-root)))))
  (define-key keymap #\F5
              #'(lambda () (interactive)
                  (delete-region (point-min) (point-max))
                  (insert (append-trail-slash
                           (map-backslash-to-slash
                            (get-special-folder-location :personal)))))))
(let (function-bar-label-map)
  (defun enter-minibuffer-function-bar-label-map (buffer history)
    (setq function-bar-label-map (get-function-bar-label-map))
    (set-function-bar-label #\F1 "�f�X�N�g�b�v")
    (set-function-bar-label #\F2 "site-lisp")
    (set-function-bar-label #\F3 ".xyzzy")
    (set-function-bar-label #\F4 "siteinit.l")
    (set-function-bar-label #\F5 "MyDocuments")
    (set-function-bar-label #\F6 "")
    (set-function-bar-label #\F7 "")
    (set-function-bar-label #\F8 "")
    (set-function-bar-label #\F9 "")
    (set-function-bar-label #\F10 "")
    (set-function-bar-label #\F11 "")
    (set-function-bar-label #\F12 ""))
  (defun exit-minibuffer-function-bar-label-map (buffer contents)
    (when (keymapp function-bar-label-map)
      (set-function-bar-label-map function-bar-label-map)
      (setq function-bar-label-map nil))))
(add-hook '*enter-minibuffer-hook* 'enter-minibuffer-function-bar-label-map)
(add-hook '*exit-minibuffer-hook* 'exit-minibuffer-function-bar-label-map)

win-window

[�_�E�����[�h]

[win-window] (2005/10/08)

[����]

Windows �� window �̃T�C�Y�̎擾�A�ݒ���s���܂��B
browserex ���� require ����܂��B

[ChangeLog]

  • (2005/10/08)
    • ���C�Z���X����(�C��BSD���C�Z���X)���L�ځB
  • (2004/05/28)
    • GetWindowRect, IsZoomed �̖߂�l�̌^�� int -> BOOL �ɕύX�B
  • (2003/05/03)
    • ���ō쐬�B

lisp-re

[�_�E�����[�h]

[lisp-re-20050519] (2005/05/19)

[����]

Lisp���\�L�ŋL�q�������K�\���𕶎���ɕϊ����܂��B
emacs �p�� lisp-re.el �� xyzzy �ɈڐA���܂����B
re-builder ���� require ����܂��B

[ChangeLog]

  • (2005/05/19)
    • �ڐA�I���B
  • (2005/05/18)
    • �ڐA�J�n�B

sregex

[�_�E�����[�h]

[sregex-20050520] (2005/05/20)

[����]

symbolic regular expressions
emacs �p�� sregex.el �� xyzzy �ɈڐA���܂����B
re-builder ���� require ����܂��B

[ChangeLog]

  • (2005/05/20)
    • �ڐA�J�n�B
    • �ڐA�I���B

rx

[�_�E�����[�h]

[rx-20050608] (2005/06/08)

[����]

sexp notation for regular expressions
emacs �p�� rx.el �� xyzzy �ɈڐA���܂����B
re-builder ���� require ����܂��B

[ChangeLog]

  • (2005/05/24)
    • �ڐA�I���B
  • (2005/05/21)
    • �ڐA�J�n�B

�R�}���h

insert-directory-tree

[�_�E�����[�h]

[insert-directory-tree] (2005/10/19)

[����]

�����ƕK�v�ɂȂ�A�f�B���N�g���[�c���[���o�͂��܂��B

[�o�͗�]

D:/utils/xyzzy/
 �� .abbrev_defs
 �� .cftp
 �� .www
 �� .xyzzy
 �� xyzzy.exe
 �� XYZZY.w98
 �� xyzzycli.exe
 �� xyzzyenv.exe
 �� _katexrc
 ��
 �� .ilogic/
 �� �� config.l
 �� ��
 �� �� data/
 ��    ��
 ��    �� 2ch/
 ��    �� �� 00000001.dat
 ��    ��
 ��    �� convert/
 ��    �� ��
 ��    �� �� �p�Y���p���X/
 ��    ��    �� 0001.dat
 ��    ��    �� 0002.dat
 ��    ��    �� 0003.dat
 ��    ��    �� 0004.dat

...

[ChangeLog]

  • (2005/10/19)
    • NANRI ����̊g������荞�݁B
      *insert-directory-tree-leaf-function* �ɁAfile �������ɂƂ蕶�����Ԃ��֐����w�肷�邱�Ƃŏ���t���o�͂���B
  • (2005/10/08)
    • ���C�Z���X����(�C��BSD���C�Z���X)���L�ځB
  • (2005/01/15)
    • box-fixation-mode.l �쐬�ɔ����A�c�����b(0x8162)���焠(0x84A0)�ɕύX�B
  • (2004/06/13)
    • �o�̓t�H�[�}�b�g�ꕔ�C���B
    • NetInstaller �Ή��B
  • (2003/03/04)
    • honami �������璸�������O�t�@�C�����X�g�g���𓝍��B
    • �C���B
  • (2001/10/19)
    • �쐬�B

�Q�[��

ilogic

[�_�E�����[�h]

[ilogic-0.0.0.4] (2001/10/10)

[����]

�u�C���X�g���W�b�N�v��u�̂̂���ށv�ƌĂ΂��p�Y���̖��̓��́E�쐬�E�����𓚂��s���܂��B
��肩���Ȃ̂ŁA���낢��Ƒ���܂���B

�t���� makefile �� ilogic-make (byte-compile) �����Ȃ��Ɠ��삪�x�����܂��B
data.l �� byte-compile ����Ɠ��삵�܂���B(�N�������Ă��������B)


[�L�[�o�C���h]

���ł��肢���܂��B
�Ƃ肠���� [SPACE]�A[TAB]�A���ꂩ�� [Enter] �ŁB
[ilogic-menu] [ilogic-autosolve]

[ChangeLog]

  • [Version 0.0.0.4] (2001/10/10)
    • �t�@�C���\�����܂߂��낢��ύX�B
    • �쐬�������̕ۑ������܂��ł��Ă��Ȃ������̂��C���B
    • �]�v�� undo �������Ȃ��悤�ɏC���B
  • [Version 0.0.0.3] (2001/10/08)
    • �t�@�C���\����ύX�B
    • ���̍쐬���ł���悤�ɂȂ�B ~/.ilogic/config.l �Őݒ�ł���悤�ɂ��Ă݂�B
    • �p�Y���p���X copyright (C) by TIME INTERMEDIA �́u�̂̂���ށv�� 1 �` 200�œ���`�F�b�N�B �S�Ă̖��������𓚂ł��邱�Ƃ��m�F�B �S�Ă̖�ɏd�������P�‚��Ȃ��A�܂���⑵���Ȃ��Ƃɋ����B
  • [Version 0.0.0.2] (2001/10/05)
    • �t�@�C���\�����܂߂��낢��ύX�B
  • [Version 0.0.0.1] (2001/10/04)
    • �C���X�g���W�b�N�������ߒ���\�����邾���̃}�N���ɁA���j���[���‚��Ă݂�B ���̓��͂͂��낤���Ăł���悤�ɂ������A�쐬�̕��͂܂��B �Ȃ�ɂ��擮���΂������炢�̈ӋC���݂ŏ����Ă�����̂Ȃ̂ō����R�[�h�Ńo�O���炯�B �R�[�h���܂Ƃ��ɂ��Ă�����J�Ȃ�Ă��Ƃɂ���ƁA�i���Ɍ��J�ł������ɂȂ����ߌ��J�B 2ch-mode �� kamail �̓X�S�C�Ǝ����B

���̑�

2ch-dialog

[�_�E�����[�h]

[2ch-dialog] (2005/10/08)

[����]

�������񂪌��J����Ă��� 2ch-mode �Ɏ�� AA �p�̃_�C�A���O�̋@�\��lj����܂��B
���炩�̌`�� 2ch-mode �Ɏ�肱��ł������������_�ł��̃t�@�C���͓V����S�����ď��ł��܂��B

[2ch-0.0.0.9] (2002/02/02 08:05:03) �œ���m�F�B

$XYZZY/site-lisp/ ������ɒu���A~/.2ch/config.l ��

(require "2ch-dialog")

�Ə����Ƒ��������܂��B

[�L�[�o�C���h]

2ch-mode �ւ̒lj��L�[�o�C���h
[�X��]
z
���̔����� AA �_�C�A���O�ŕ\��
Z
������ AA �_�C�A���O�ŕ\���i�͈͂���́j
[�����t�H�[��]
C-c z
������ 2ch AA �␳������� AA �_�C�A���O�ŕҏW
[2ch-dialog]

[ChangeLog]

  • (2005/10/08)
    • ���C�Z���X����(�C��BSD���C�Z���X)���L�ځB
  • (2004/06/13)
    • NetInstaller �Ή��B
  • (2002/03/01)
    • �W�����v����f�t�H���g�̔ԍ������������B
  • (2002/02/23)
    • �O�̃��X�Ɉړ����鏈�����C���B
  • (2002/02/18)
    • 2ch �X���ɏ������̂����ɏ����Ȃ����Ă݂��B

Tips

2ch-browser-wrap

[�_�E�����[�h]

[2ch-browser-wrap] (2002/03/08)

[����]

2ch-mode �� browser.dll ��֗��Ɏg�킹�Ă��炢�AAscii Art �������菑�����肵�Ă݂�B (���ɗ����܂���B)

�Ƃ肠�����A�X�L�[�A�[�g��������΂悢�A�Ƃ������炢�̂ւȂ��傱�R�[�h�ł��B
[2ch-0.0.0.8] (2002/01/01) �œ���m�F�B

xyzzy/site-lisp/ ������ɒu���āA xyzzy/.2ch/config.l ��

(require "2ch-browser-wrap")

�Ə����Ƒ��������܂��B

[�L�[�o�C���h]

2ch-mode �ւ̒lj��^�ύX�L�[�o�C���h
[�X��]
M-n
���̔����� browser.dll �ŕ\��
M-N
������ browser.dll �\���i�͈͂���́j
TAB
���̔����������͎��y�[�W�������̓X����‚���
browser.dll �g�p���Ȃ甭����\��
M-Down
���̔����������̓X����‚���
browser.dll �g�p���Ȃ甭����\��
M-Up
�O�̔����������̓X����‚���
browser.dll �g�p���Ȃ甭����\��
[�����t�H�[��]
M-n
������ browser.dll �ŕ\��
C-x C-c
������ۑ��� browser.dll �g�p���Ȃ�\��
[2ch-browser-thread]

[2ch-browser-form]

[ChangeLog]

  • (2002/03/08)
    • �o�C�g�R���p�C�����Ă������悤�ɏC���B
  • (2002/03/05)
    • tripod �ɂ���� javascript ���t������Ă܂Ƃ��Ƀ_�E�����[�h�ł��Ȃ������̂� zip �t�@�C���ɕύX�B
  • (2002/01/09)
    • browserex ���g���悤�ɂ����B
    • 2ch-0.0.0.8 [2001/12/14] �̃L�[���蓖�ĕύX�ɒǏ]�B
  • (2001/12/18)
    • �L�[�o�C���h�� n, N ���� M-n, M-N �ɕύX�B
  • (2001/12/16)
    • �o�� HTML charset �� Shift-JIS �Ɏw��B
  • (2001/09/15)
    • ���ʂȃR�[�h�����\�������̂ŏC���B

2ch-modification

[�_�E�����[�h]

[2ch-modification.l] (2001/12/20)
[konata-mouse.l] (2001/12/21)

[����]

popup-string �ŕ\�������ꏊ�Ƀ}�E�X�J�[�\��������Ƃ����ɏ����Ă��܂����肷��̂ŁApopup-string ���Ƀ}�E�X�J�[�\���� xyzzy ��ɂ�������K���ɂǂ����Ă݂�B���̋�̗�� 2ch-mode ��ł���Ă݂��B

2ch-modification.l �� konata-mouse.l �� xyzzy/site-lisp/ ������ɒu���āA xyzzy/.2ch/config.l ��

(require "2ch-modification")

�Ə����Ƒ��������܂��B
2ch-mode �g�p���� xyzzy ��Ƀ}�E�X�J�[�\����u���āA�X���b�h��� p �Ƃ� e �Ƃ� E �Ƃ������Ƒ����}�E�X�J�[�\���� xyzzy �̊O���Ɉړ����܂��B

�Ӗ����Ȃ��ǂ��납�]�v�����Ƃ�������������܂���B
�}�E�X����𕹗p����Ă�����͎g�p���Ȃ��ق��������Ǝv���܂��B
���̂����ȕ������ǂ����B

[ChangeLog]

  • (2001/12/20)
    • �Ȃ�ƂȂ����J�B

colortest

[�_�E�����[�h]

[colortest.l] (2001/12/10)

[����]

�F�ݒ�͂��Ƃ悭����̂ŃJ���[�e�X�g��\�����Ă݂�B

2ch �� xyzzy �X���b�h 383 �Ԃ����ɏ����Ă݂��B

�F�ݒ肪�K���ł����o�͂� HTML �����Ă݂܂����B ����Ȃ̂��o�b�t�@�ɕ\������܂��B �������߂̐F�ݒ��N���B
[colortest]

open-load-library-file

[����]

load-library �̍s�̏�� F10 �������ƑΏۃt�@�C�����J�� (2001/10/18)

�팩����̃T�C�g��lisp���[�h�̃J�X�^�}�C�Y��ɂ���uload-library �̍s�̏�� F10 �������ƑΏۃt�@�C�����J���v�̂܂˂ŁArequire �� autoload �ł��J���Ă݂�B

���ۂ� xyzzy ���T�����ԂƂ� .lc ����񂵂ɂ���_�ňقȂ�܂��B

[�R�[�h]

;; F10 �� load-library ���̑Ώۃt�@�C�����J��
(defun open-load-library-file ()
  (interactive)
  (let (file fullpath)
    (save-excursion
      (scan-buffer "(" :reverse t)
      (if (or (looking-at "(si:\\*load-library[ \t\n]+\"\\([^\"]+\\)\"")
              (looking-at "(load-library[ \t\n]+\"\\([^\"]+\\)\"")
              (looking-at "(require[ \t\n]+\"\\([^\"]+\\)\"")
              (looking-at "(autoload[ \t\n]+[^\"]+\"\\([^\"]+\\)\""))
          (setq file (match-string 1))))
    (when file
      (dolist (path *load-path*)
        (setq fullpath (merge-pathnames file path))
        (when (and (file-exist-p fullpath) (not (file-directory-p fullpath)))
          (find-file fullpath)
          (return-from open-load-library-file))
        (setq fullpath (concat fullpath ".l"))
        (when (and (file-exist-p fullpath) (not (file-directory-p fullpath)))
          (find-file fullpath)
          (return-from open-load-library-file))
        (setq fullpath (concat fullpath "c"))
        (when (and (file-exist-p fullpath) (not (file-directory-p fullpath)))
          (find-file fullpath)
          (return-from open-load-library-file)))
      (message "�t�@�C�������‚���܂���: ~A" file))))
(define-key ed::*lisp-mode-map* #\F10 'open-load-library-file)
(define-key ed::*lisp-interaction-mode-map* #\F10 'open-load-library-file)

set-sjis-crlf-hook

[����]

�w��f�B���N�g���ȉ��̂ݕ����R�[�h�E���s�R�[�h�� SJIS CRLF �Ɏw�� (2001/10/18)

����̃f�B���N�g���ȉ��ŐV�K�t�@�C�����쐬����ہA�����R�[�h�E���s�R�[�h�� SJIS CRLF �Ɏw�肷��B

[�R�[�h]

;; �w��f�B���N�g���ȉ��̂ݕ����R�[�h�E���s�R�[�h�� SJIS CRLF �Ɏw��
(defvar *sjis-crlf-directory* '("C:/My Documents/" "C:/utils/eMemoPad/"))
(defun set-sjis-crlf-hook ()
  (let ((file (get-buffer-file-name))
        dir dir-length)
    (when (and (zerop (point-max))
               (string file))
      (setq dir (directory-namestring file))
      (dolist (sjis-crlf-dir *sjis-crlf-directory*)
        (setq dir-length (length sjis-crlf-dir))
        (when (and (>= (length dir) dir-length)
                   (string-equal sjis-crlf-dir (subseq dir 0 dir-length)))
          (set-buffer-fileio-encoding *encoding-sjis*)
          (set-buffer-eol-code 1)
          (return))))))
(add-hook '*find-file-hooks* 'set-sjis-crlf-hook)

OHKUBO Hiroshi <[email protected]>