«前の日記(2009-03-21) 最新 次の日記(2009-04-18)» 編集

ソフトウェアと本の覚え書き

2005|10|11|12|
2006|01|02|03|04|05|06|07|08|09|10|11|12|
2007|01|02|03|04|05|06|07|08|09|10|11|12|
2008|01|02|03|04|05|06|07|08|09|10|11|12|
2009|01|02|03|04|05|06|07|08|09|10|11|12|
2010|01|02|03|04|05|06|07|08|09|10|11|12|
2011|01|02|03|04|05|06|07|08|09|10|11|12|
2012|01|02|03|04|05|06|07|08|09|10|11|12|
2013|01|02|03|04|05|06|07|08|09|10|11|12|
2014|01|02|03|04|05|06|07|08|09|10|11|12|
2015|01|02|03|04|05|06|07|08|09|10|11|12|
2016|01|02|03|04|05|06|07|08|09|10|11|12|
2017|01|02|03|04|05|06|07|08|09|10|11|12|
2018|01|02|03|04|05|06|

2009-03-25 [長年日記]

_ [Emacs] anything-c-source-buffersのanything-c-buffer-list

anything関連のファイルをバージョンアップしたときに、なぜかanything-c-source-buffersの選択肢の先頭が現在のバッファになるようになった。それを直そうとソースを見ると、現在のバッファが一番最後になるように順番を変更する操作を行っているが、うまく動いていない。その操作は、バッファのリストの先頭を最後に入れ替える操作だが、リストの先頭のバッファが現在のバッファと違うようで、望む動作になっていない。そこで、anything-c-buffer-listを次のように変更すると望む動作になる。

(defun anything-c-buffer-list ()
  "Return the list of names of buffers with boring buffers filtered out.
Boring buffers is specified by `anything-c-boring-buffer-regexp'.
The first buffer in the list will be the last recently used
buffer that is not the current buffer."
  (let ((buffers (mapcar 'buffer-name (buffer-list)))
	(current-buf-name (buffer-name anything-current-buffer)))
    (append (remove current-buf-name buffers) (list current-buf-name))))