Emacs Part 41

[0001 名無しさん＠お腹いっぱい。 2012/09/07(金) 18:10:22.94]

前スレ

Emacs Part 40
http://toro.2ch.net/test/read.cgi/unix/1328958449/

[0983 名無しさん＠お腹いっぱい。 2012/12/23(日) 23:53:40.90]

俺が今日コードリーディング用に書いた関数

(defun view-files (filename &optional wildcards)
(interactive
(find-file-read-args "View file: "
(confirm-nonexistent-file-or-buffer)))
(let ((value (find-file-noselect filename nil nil wildcards)))
(mapcar 'view-buffer
(if (listp value) value (nreverse (list value))))))

[0984 名無しさん＠お腹いっぱい。 2012/12/23(日) 23:55:18.78]

この前ある拡張子のバッファをまとめて閉じたかったときに書いた関数
(defun kill-buffers (string)
(interactive "sKill-buffers: ")
(if (string= string "")
(kill-buffer (current-buffer))
(dolist (buffer (buffer-list))
(if (string-match (wildcard-to-regexp string) (format "%s" buffer))
(kill-buffer buffer)))))