사용자가 입력 한 디렉토리에없는 열린 파일을 어떻게 죽일 수 있습니까?

Question

가끔씩 다른 소스 트리의 파일을 열어 현재 트리와 비교합니다. 나는 함수가 실행될 때 사용자가 유지하거나 변경하라는 "기본 트리"에 있지 않은 열린 파일을 모두 죽이는 함수를 갖고 싶습니다.

Answer 1

default-tree를 원하는 디렉토리의 이름으로 설정하십시오 (절대 경로 여야 함).

(defun bruce-connor-buffer-killer() 
(interactive) 
(unless (file-directory-p default-tree) (error "You forgot to set `default-tree'.")) 
(let ((case-fold-search nil) 
     (dir-length (length default-tree))) 
    (dolist (buffer (buffer-list)) 
    (when (buffer-file-name buffer) 
    (unless (equal t (compare-strings 
         (expand-file-name (buffer-file-name buffer)) 0 dir-length 
         default-tree 0 nil))) 
     (kill-buffer buffer)))))