Re: Yet another oddmuse mode for Emacs.

[rubikitch]

From: Andy Stewart <address@hidden>
Subject: Yet another oddmuse mode for Emacs.
Date: Fri, 09 Jan 2009 17:18:18 +0800

> I have develop complete with yaoddmuse.el

kill-buffer has a must-have argument in Emacs22.

--- yaoddmuse.el        2009-01-11 06:45:44.539321758 +0900
+++ yaoddmuse.el        2009-01-11 06:50:10.553725522 +0900
@@ -772,7 +772,7 @@
     (with-current-buffer (get-buffer retrieve-buffer-name)
       (setq table (mapcar 'list (split-string (buffer-string))))
       (puthash wikiname table yaoddmuse-pages-hash)
-      (kill-buffer))
+      (kill-buffer (current-buffer)))
     ;; Add special action.
     (when (and (fboundp handle-function)
                handle-function)
@@ -819,7 +819,7 @@
      (with-current-buffer (get-buffer retrieve-buffer-name)
        (prog1
            (buffer-string)
-         (kill-buffer))))
+         (kill-buffer (current-buffer)))))
     (goto-char (point-min))
     ;; Switch or popup page.
     (message "Get page '%s' form '%s' successful." pagename wikiname)

--
rubikitch
Blog: http://d.hatena.ne.jp/rubikitch/
Site: http://www.rubyist.net/~rubikitch/