14/06/23 22:57:45.04 .net
>>22
ありがとうございます！できました！
;; URLﾘﾝｸ(www.bookshelf.jp)
;; URLﾘﾝｸ(howm.sourceforge.jp)
;; C-cC-c で保存してバッファをキルする
(defun my-save-and-kill-buffer ()
(interactive)
(when (and
(buffer-file-name)
(string-match "\\.howm\\|\\.txt"
(buffer-file-name)))
(save-buffer)
; (kill-buffer nil)))
(kill-buffer nil)
(howm-menu) ; NEW!
))
(eval-after-load "howm-mode"
'(progn
(define-key howm-mode-map
"\C-c\C-c" 'my-save-and-kill-buffer)))