07/02/09 00:27:57 +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を削除なんてどうですかね