2005/01/25
# [xyzzy] box-fixation-mode
試行錯誤中ですが，メジャーモードはこんな感じでしてみてます。
;;; 罫線内編集用モードの切替
(defvar-local box-fixation-original-mode nil)
(defun toggle-box-fixation-mode ()
(interactive "*")
(if box-fixation-original-mode
(progn
(funcall box-fixation-original-mode)
(setq box-fixation-original-mode nil))
(let ((m buffer-mode))
(box-fixation-mode)
(setq box-fixation-original-mode m))))
(global-set-key #\M-F8 'toggle-box-fixation-mode)
コメント
トラックバック -
http://hie.s64.xrea.com/murmur/tb.cgi/20050125
