xyzzy 備忘録

「xyzzy 備忘録」の編集履歴(バックアップ)一覧はこちら

xyzzy 備忘録」(2007/10/17 (水) 10:05:07) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

*インストール *Tips -&bold(){ソート(並べ替え)する。} filter-region, filter-buffer で外部コマンド sort を実行している。 リージョンをソート --- C-x | sort バッファ全体をソート --- C-x # sort *設定 -&bold(){ファイラで削除する際に、ゴミ箱を使用する} ;; ファイラで削除する際に、ゴミ箱を使用する (setq *filer-use-recycle-bin* t) -&bold(){リージョンに色をつける} [[http://hie.s64.xrea.com/xyzzy/mylib/rv-region.html]]よりrv-region.lをダウンロードして、site-lispに配置し、siteinit.lに以下を追加 ;; リージョンに色をつける (require "rv-region") (global-set-key #\C-@ 'rv-set-mark-command) -&bold(){Emacs風のキーバインド} 以下の設定を「emacskey.l」等のファイル名に設定し、siteinit.lか.xyzzyに&br()(load-library "emacskey")を追記 ; key bind (global-set-key #\C-/ 'undo) (global-set-key #\M-v 'previous-page) (global-set-key #\M-% 'replace-string) (global-set-key #\C-M-% 'replace-regexp) ;(global-set-key #\M-% 'query-replace) ;(global-set-key #\C-M-% 'query-replace-regexp) (global-set-key #\C-M-\\ 'indent-region) (global-set-key '(#\C-x #\h) 'mark-page) (global-set-key '(#\C-x #\u) 'undo) (global-set-key '(#\C-x #\r #\d) 'delete-rectangle) (global-set-key '(#\C-x #\r #\k) 'kill-rectangle) (global-set-key '(#\C-x #\r #\o) 'open-rectangle) (global-set-key '(#\C-x #\r #\t) 'string-rectangle) (global-set-key '(#\C-x #\r #\y) 'yank-rectangle) (global-set-key '(#\C-x #\r #\w) 'copy-rectangle) (global-set-key #\Home 'beginning-of-buffer) (global-set-key #\End 'end-of-buffer) (global-set-key #\C-_ 'undo) (global-set-key #\C-- 'negative-argument) (global-set-key #\C-\\ 'toggle-ime) (dolist (c '(#\C-0 #\C-1 #\C-2 #\C-3 #\C-4 #\C-5 #\C-6 #\C-7 #\C-8 #\C-9)) (global-set-key c 'digit-argument)) (global-set-key '(#\C-x #\n #\n) 'narrow-to-region) (global-set-key '(#\C-x #\n #\w) 'widen) (global-set-key #\M-: 'eval-expression) (substitute-key-definition 'next-virtual-line 'next-line) (substitute-key-definition 'previous-virtual-line 'previous-line) ; インクリメンタルサーチ (C-s, C-r) (require "isearch") ; dynamic abbreviation (require "dabbrev") (global-set-key #\M-/ 'dabbrev-expand) ; write-file ; バッファーの名前や割り付けられているファイル名も新しく指定 ; されたファイルに変える (define-key ctl-x-map #\C-w 'emacs-write-file) ; C-x C-v ; 廃棄するバッファのファイル名がミニバッファに表示 (setq *find-other-file-requires-file-name* t) ; sort-lines (defun sort-lines (start end) (interactive "*r") (filter-region "sort" start end)) ; ウィンドウを左右に分割 (define-key ctl-x-map #\3 'split-window-vertically) ; ispell-word (defun ispell-word() (interactive "*") (let ((end (progn (skip-chars-forward "A-Za-z") (point))) (beg (progn (skip-chars-backward "A-Za-z") (point)))) (ispell-region beg end))) (global-set-key #\M-$ 'ispell-word) ; frame (global-set-key '(#\C-x #\5 #\o) 'other-pseudo-frame) (global-set-key '(#\C-x #\5 #\0) 'delete-pseudo-frame) (global-set-key '(#\C-x #\5 #\2) 'new-pseudo-frame) ; 文字コードの変更 (global-set-key '(#\C-x #\RET #\f) 'change-fileio-encoding)
*インストール *Tips -&bold(){ソート(並べ替え)する。} filter-region, filter-buffer で外部コマンド sort を実行している。 リージョンをソート --- C-x | sort バッファ全体をソート --- C-x # sort *設定 -&bold(){ファイラで削除する際に、ゴミ箱を使用する} ;; ファイラで削除する際に、ゴミ箱を使用する (setq *filer-use-recycle-bin* t) -&bold(){リージョンに色をつける} [[http://hie.s64.xrea.com/xyzzy/mylib/rv-region.html]]よりrv-region.lをダウンロードして、site-lispに配置し、siteinit.lに以下を追加 ;; リージョンに色をつける (require "rv-region") (global-set-key #\C-@ 'rv-set-mark-command) -&bold(){Emacs風のキーバインド} 以下の設定を「emacskey.l」等のファイル名に設定し、siteinit.lか.xyzzyに&br()(load-library "emacskey")を追記 ; key bind (global-set-key #\C-/ 'undo) (global-set-key #\M-v 'previous-page) (global-set-key #\M-% 'replace-string) (global-set-key #\C-M-% 'replace-regexp) ;(global-set-key #\M-% 'query-replace) ;(global-set-key #\C-M-% 'query-replace-regexp) (global-set-key #\C-M-\\ 'indent-region) (global-set-key '(#\C-x #\h) 'mark-page) (global-set-key '(#\C-x #\u) 'undo) (global-set-key '(#\C-x #\r #\d) 'delete-rectangle) (global-set-key '(#\C-x #\r #\k) 'kill-rectangle) (global-set-key '(#\C-x #\r #\o) 'open-rectangle) (global-set-key '(#\C-x #\r #\t) 'string-rectangle) (global-set-key '(#\C-x #\r #\y) 'yank-rectangle) (global-set-key '(#\C-x #\r #\w) 'copy-rectangle) (global-set-key #\Home 'beginning-of-buffer) (global-set-key #\End 'end-of-buffer) (global-set-key #\C-_ 'undo) (global-set-key #\C-- 'negative-argument) (global-set-key #\C-\\ 'toggle-ime) (dolist (c '(#\C-0 #\C-1 #\C-2 #\C-3 #\C-4 #\C-5 #\C-6 #\C-7 #\C-8 #\C-9)) (global-set-key c 'digit-argument)) (global-set-key '(#\C-x #\n #\n) 'narrow-to-region) (global-set-key '(#\C-x #\n #\w) 'widen) (global-set-key #\M-: 'eval-expression) (substitute-key-definition 'next-virtual-line 'next-line) (substitute-key-definition 'previous-virtual-line 'previous-line) ; インクリメンタルサーチ (C-s, C-r) (require "isearch") ; dynamic abbreviation (require "dabbrev") (global-set-key #\M-/ 'dabbrev-expand) ; write-file ; バッファーの名前や割り付けられているファイル名も新しく指定 ; されたファイルに変える (define-key ctl-x-map #\C-w 'emacs-write-file) ; C-x C-v ; 廃棄するバッファのファイル名がミニバッファに表示 (setq *find-other-file-requires-file-name* t) ; sort-lines (defun sort-lines (start end) (interactive "*r") (filter-region "sort" start end)) ; ウィンドウを左右に分割 (define-key ctl-x-map #\3 'split-window-vertically) ; ispell-word (defun ispell-word() (interactive "*") (let ((end (progn (skip-chars-forward "A-Za-z") (point))) (beg (progn (skip-chars-backward "A-Za-z") (point)))) (ispell-region beg end))) (global-set-key #\M-$ 'ispell-word) ; frame (global-set-key '(#\C-x #\5 #\o) 'other-pseudo-frame) (global-set-key '(#\C-x #\5 #\0) 'delete-pseudo-frame) (global-set-key '(#\C-x #\5 #\2) 'new-pseudo-frame) ; 文字コードの変更 (global-set-key '(#\C-x #\RET #\f) 'change-fileio-encoding) -&bold(){カーソルが行頭にある場合は、行自体を削除する} 以下をsiteinit.lか.xyzzyに追記する。 (defun my-kill-line (&optional arg) (interactive "*p") (cond ((bolp) (let ((point (point)) (lines (cond ((or (null arg) (<= arg 1)) 0) (t (- arg 1))))) (kill-region point (progn (forward-line lines) (goto-eol) (forward-char) (point))))) (t (kill-line arg)))) (define-key *global-keymap* #\C-k 'my-kill-line)

表示オプション

横に並べて表示:
変化行の前後のみ表示: