Emacs Part 43

[0923 名無しさん＠お腹いっぱい。 2013/12/05(木) 12:56:33.94]

popupで表示して選ぶだけならこれでいける
(switch-to-buffer
(popup-menu* (mapcar
(lambda (b) (popup-make-item (buffer-name b) :value b))
(cl-remove-if (lambda (b)
(string-match "^ " (buffer-name b)))
(buffer-list)
))))