在emacs中：排除搜索ID中的文件夾「gid」

Question

我在我的dotemacs文件中有這段代碼，可以幫助我查看ID。 如何從ID搜索中排除某些文件夾？

; gid.el -- run gid using compilation mode. 
;(require 'compile) 
;(require 'elisp-utils) 
;(provide 'gid) 

(defvar gid-command "gid" "The command run by the gid function.") 
(defun gid (args) 
    "Run gid, with user-specified ARGS, and collect output in a buffer. 
While gid runs asynchronously, you can use the \\[next-error] command to 
find the text that gid hits refer to. The command actually run is 
defined by the gid-command variable." 
    (interactive (list 
     ;(read-input (concat "Run " gid-command " (with args): ") ;confirmation 
     (word-around-point))) 
     ;) 
    ;; Preserve the present compile-command 
    (let (compile-command 
    (gid-buffer ;; if gid for each symbol use: compilation-buffer-name-function 
    (lambda (mode) (concat "*gid " args "*")))) 
    ;; For portability between v18 & v19, use compile rather than compile-internal 
    (compile (concat gid-command " " args)))) 

(defun word-around-point() 
    "Return the word around the point as a string." 
    (save-excursion 
    (if (not (eobp)) 
(forward-char 1)) 
    (forward-word -1) 
    (forward-word 1) 
    (forward-sexp -1) 
    (let ((beg (point))) 
     (forward-sexp 1) 
     (buffer-substring beg (point))))) 

Answer 1

找到解決方案。 簡單地說，當使ID修剪像這樣的無趣文件夾： mkid --prune X