xyzzy の変更点   


#author("2020-05-18T03:09:16+00:00","default:pentacle","pentacle")
#author("2020-05-18T03:09:31+00:00","default:pentacle","pentacle")
*** xyzzy [#k3ca23c3]
http://xyzzy-022.github.io/

*** インストール [#t5145fcc]
+ zipを展開
+ Program Files\ に配置

 C:\Users\ユーザ名\AppData\Roaming\Microsoft\Windows\SendTo
にxyzzyのショートカットを入れる

 xyzzy を起動
 起動ユーザで xyzzy のダンプが行われるので
 xyzzy\usr\user\wxp\xyzzy.ini を上書き

*** 環境変数の追加 [#xc41e065]
 マイコンピュータ右クリック→プロパティ→詳細設定→環境変数
 → 新規
 XYZZYHOME
 C:\Program Files\xyzzy

*** .xyzzy の追加 [#e7f0ddc5]
 xyzzy を起動して C-x C-f ~/.xyzzy
 下記を記述

 (require "isearch")
 (global-set-key #\M-% 'query-replace)

 
 (global-set-key #\C-c 'copy-selection-to-clipboard)
 (global-set-key #\C-v 'paste-from-clipboard)

 
 (make-local-variable 'make-backup-files)
 (setq make-backup-files nil)
 (defun query-kill-xyzzy ()
  (handler-case
     (save-excursion
	(dolist (buffer (buffer-list) t)
	  (when (need-buffer-save-p buffer)
	    (set-buffer buffer)
	    (refresh-screen)
	    (when (yes-no-or-cancel-p "~a~%をセーブする?"
				      (if (file-visited-p) (get-buffer-file-name) buffer))
	      (or (call-interactively (if (file-visited-p) 'save-buffer 'emacs-write-file))
		  (return nil))))))
   (quit () nil)
   (error () nil)))
 (add-hook '*query-kill-xyzzy-hook* 'query-kill-xyzzy)
 (setq c-indent-level 4
     c-continued-statement-offset 4
     c-brace-offset -4
     c-argdecl-indent 0
     c-label-offset -4
     c-brace-imaginary-offset 0
     *c-indent-tabs-mode* nil)
 
 (defun delete-word (Direction)
  (save-excursion
    (save-restriction
      (let
          ;#initialize variables
          (
           (BEGIN (point))
           END
           )
        ;#programs
        (progn
          (if
              (or (equal Direction #'backward-word) (equal Direction #'forward-word))
              (progn ;then
                (funcall Direction)
                (setf END (point))
                (delete-region BEGIN END)
                );end then
            );end if
          );end programs
        );end let
      );end save-restriction
    );end save-excursion
  );end defun
 
 ;\C-BackSpaceで後方Word削除
 (defun delete-backward-word ()
  (interactive "*")
  (delete-word #'backward-word)
   );defun
 
 ;\C-DELで前方Word削除
 (defun delete-forward-word ()
  (interactive "*")
  (delete-word #'forward-word)
  );defun
 ;\C-BackSpaceはこうしないと割り当てられないらしい
 (set-extended-key-translate-table exkey-C-backspace #\F13)
 (global-set-key #\F13 'delete-backward-word)
 (global-set-key #\C-Delete 'delete-forward-word)
 (global-set-key #\C-z 'undo)
 
 ;ワード単位移動
 (global-set-key #\C-Left 'backward-word)
 (global-set-key #\C-Right 'forward-word)
 
 ;php-mode
 ;(load-library "php-mode")
 ;(pushnew '("\\.php$" . php-mode) *auto-mode-alist*)
 ;; php-miscを使う場合
 ;(load-library "php-misc")
 ;(setq *php-html-help-path* "C:/Program Files/xyzzy/etc/php_manual_ja.chm")



*** viewsource [#n3c5f838]
IE のソースコード表示をxyzzy にする
 Windows Registry Editor Version 5.00
 
 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\View Source Editor\Editor Name]
 @="C:\\Program Files\\xyzzy\\xyzzy.exe"

*** meta [#r13ee131]
 M-x は Alt-x

*** バイトコンパイル [#n13830e9]
 java.l を lisp の中に入れ
 java.lc を削除
 M-x byte-compile-file 
 lisp/java.l 

*** 置換 *** [#pe050553]
- 「正規表現」にチェック
- 「エスケープシーケンスを理解しろ」にチェック

カッコは \( にする マッチした文字列は \1 のように使う
 ^\(.*\)$
 [[\1]]


*** 参考 [#lf262f67]
 http://plaza.umin.ac.jp/~takeshou/xyzzy/
 
 再インデント
 http://xyzzy.s53.xrea.com/wiki/?xyzzy%A4%C7%A5%D7%A5%ED%A5%B0%A5%E9%A5%DF%A5%F3%A5%B0%2F%C0%B0%B7%C1