From: Andy Stewart <[email protected]>
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/
_______________________________________________
gnu-emacs-sources mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/gnu-emacs-sources
