一人お手軽 Wiki もどき howm part4

一人お手軽 Wiki もどき howm part4at UNIX

一人お手軽 Wiki もどき howm part4 - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

23:名無しさん＠お腹いっぱい。
 14/06/23 22:57:45.04 .net
>>22 
ありがとうございます！できました！ 
 
;; ttp://www.bookshelf.jp/soft/meadow_38.html#SEC542 
;; ttp://howm.sourceforge.jp/cgi-bin/hiki/hiki.cgi?SaveAndKillBuffer 
;; 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)))

24:名無しさん＠お腹いっぱい。
 14/10/04 22:07:01.53 .net
Emacs 24.3.1 & howm 1.4.2 で空のファイルを削除するのに、 
どこかで見かけた次の設定をしてます。 
 
(if (not (memq 'delete-file-if-no-contents after-save-hook)) 
    (setq after-save-hook 
          (cons 'delete-file-if-no-contents after-save-hook))) 
(defun delete-file-if-no-contents () 
  (when (and 
         (buffer-file-name (current-buffer)) 
         (string-match "\\.howm" (buffer-file-name (current-buffer))) 
         (= (point-min) (point-max))) 
    (delete-file 
     (buffer-file-name (current-buffer))))) 
 
~/.howm-keys がないと自動的に再生成されますが、 
そのときに繰り返し delete-file-if-no-contents が呼ばれ、 
次のようなメッセージが出て生成に失敗します。 
 
Generating ~/.howm-keys ... 
let*: Lisp nesting exceeds `max-lisp-eval-depth' 
 
上の設定がなければ問題ないようですが、 
どのように対処するべきでしょうか？

次ページ