Hi rubikitch, [email protected] writes:
> 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/ Thanks for your advice. I have apply it. Enjoy! ;) -- Andy _______________________________________________ gnu-emacs-sources mailing list [email protected] http://lists.gnu.org/mailman/listinfo/gnu-emacs-sources
