- 281 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/02/09(金) 00:27:57 ID:+VEOp5OK0]
- (define-key ed::*lisp-interaction-mode-map* '(#\C-x #\C-s)
#'(lambda ()
(interactive)
(save-buffer)
(if (string-match ".*siteinit\\.l$" (get-buffer-file-name))
(delete-file "~/xyzzy.wxp"))))
こんな感じでsiteinit.lを上書き保存したときにxyzzy.wxpを削除なんてどうですかね
