きりかえき

popup.elがおもしろそうだから，lispもelispも関数型もわからんけどバッファ切り替え作ってみた．whileを使うあたり軟弱．別に再帰がわからないんじゃなくて，文法がわかってないだけなんだからね！

;=================================
; switch-to-buffer-popup
;=================================
(defun switch-to-buffer-popup ()
  (interactive)
  (let ((inhibit-read-only t)
	(buf-list (buffer-list))
	(rslt-list nil))
    (while buf-list
      (unless (string-match "^ " (buffer-name (car buf-list)))
	(setq rslt-list (cons (car buf-list) rslt-list)))
      (setq buf-list (cdr buf-list)))
    (switch-to-buffer
     (popup-menu (cdr (reverse rslt-list)) :scroll-bar t :margin t))))

(global-set-key "\C-xb" 'switch-to-buffer-popup)

Anthyの変換候補もこれで表示するのが目標．-nwでも使えるのがたまらん

Org-modeで

popup-menuもいっしょにたたまれる＞＜