(defun kill-other-buffers () "Kill all other buffers." (interactive) (mapc 'kill-buffer (delq (current-buffer) (remove-if-not 'buffer-file-name (buffer-list)))))

emacs
tips

topaz2 のブックマーク 2013/08/17 17:29

<blockquote class="hatena-bookmark-comment"><a class="comment-info" href="https://b.hatena.ne.jp/entry/294404553/comment/topaz2" data-user-id="topaz2" data-entry-url="https://b.hatena.ne.jp/entry/s/stackoverflow.com/questions/3417438/close-all-buffers-besides-the-current-one-in-emacs" data-original-href="https://stackoverflow.com/questions/3417438/close-all-buffers-besides-the-current-one-in-emacs" data-entry-favicon="https://cdn-ak2.favicon.st-hatena.com/64?url=https%3A%2F%2Fstackoverflow.com%2Fquestions%2F3417438%2Fclose-all-buffers-besides-the-current-one-in-emacs" data-user-icon="/users/topaz2/profile.png">Close all buffers besides the current one in Emacs</a><ul class="comment-tag" style="list-style: none; margin: 0px;"><li style="float: left">[<a href="https://b.hatena.ne.jp/q/emacs">emacs</a>]</li><li style="float: left">[<a href="https://b.hatena.ne.jp/q/tips">tips</a>]</li></ul><br><p style="clear: left">(defun kill-other-buffers () &quot;Kill all other buffers.&quot; (interactive) (mapc 'kill-buffer (delq (current-buffer) (remove-if-not 'buffer-file-name (buffer-list)))))</p><a class="datetime" href="https://b.hatena.ne.jp/topaz2/20130817#bookmark-294404553"><span class="datetime-body">2013/08/17 17:29</span></a></blockquote><script src="https://b.st-hatena.com/js/comment-widget.js" charset="utf-8" async></script>

このブックマークにはスターがありません。
最初のスターをつけてみよう！