[xyzzy:04661] Re: Emacs 風 switch-to-buffer

[SENDA Shigeya <senda@xxxxxxxxxxxxxxx>]

Yuhki Tsujiさんの<394E5D1C.25519BA7@xxxxxxxxxxxxxxx>から
>  みなさん、ご返事ありがとうございます。
>さっそく、千田さんのコードを~/.xyzzyに書き込んでおきました。
>

ものはついででkill-bufferに同様の細工をするものも作ってみました。

(defun kill-buffer-emacs ()
  (interactive)
  (let* ((default (buffer-name (other-buffer)))
	 (prompt (format nil "Kill buffer: (default ~A) " default))
	 (name (read-buffer-name prompt :default "")))
	(if (equal name "")
		(kill-buffer default)
	  (kill-buffer name))))

(global-set-key '(#\C-x #\k) 'kill-buffer-emacs)

-- 
SENDA Shigeya mailto:senda@xxxxxxxxxxxxxxx