lisp이 사용자에게 입력을 요청하는 것을 중단했습니다.

Question

특정 기능을 수행하기 위해 igrep.el 패키지를 수정하려고합니다. M-x igrep-find를 실행하면 패키지에서 기본적으로 "현재 버퍼"유형의 파일 유형을 묻습니다. ("* [SCH]."DEFVAR 기본-파일 문자열 새로운)

내가 :. 내가 * 수에 grep으로하는 파일 형식을 기본하려면 [SCH] 그래서 나는 선을 추가 다음 함수를 수정하여 사용자에게 파일 유형을 묻는 것을 멈추고 위에 지정된 변수에 조용히 기본값을 지정하려고합니다.

(defvar default-files-string-new "*.[sch]") 
(defun igrep-read-files (&optional prompt-prefix) 
    "Read and return a file name pattern from the minibuffer. 
If `current-prefix-arg' is '(16) or '(64), read multiple file name 
patterns and return them in a list. Optional PROMPT-PREFIX is 
prepended to the \"File(s): \" prompt." 
    (let* ((default-files (igrep-default-files)) 
     (default-files-string (mapconcat 'identity default-files " ")) 
     (insert-default-directory igrep-insert-default-directory) 
     (file (igrep-read-file-name 
       (igrep-prefix prompt-prefix 
           (if default-files 
            (format "File(s) [default: %s]: " 
              default-files-string) 
           "File(s): ")) 
       nil (if default-files default-files-string "") nil nil 
       'igrep-files-history)) 
     (files (list file))) 
    (if (or igrep-read-multiple-files 
      (and (consp current-prefix-arg) 
       (memq (prefix-numeric-value current-prefix-arg) 
         '(16 64)))) 
     (let* ((key (igrep-default-key 'exit-minibuffer 
             minibuffer-local-completion-map 
             "\r")) 
       (prompt 
       (igrep-prefix prompt-prefix 
           (if igrep-verbose-prompts 
            (format "File(s): [Type `%s' when done] " 
              (key-description key)) 
           "File(s): ")))) 
      (while (and (setq file 
          (igrep-read-file-name prompt 
                nil "" nil nil 
                'igrep-files-history)) 
         (not (equal file ""))) 
      (setq files (cons file files))))) 
    (mapcar (lambda (file) 
       (if (file-directory-p file) 
        ;; really should map expand-file-name over default-files: 
        (expand-file-name (if default-files default-files-string-new "*") 
            file) 
       file)) 
      (nreverse files)))) 

Answer 1

아마도 오해 할 수 있습니다. 입력을 원하지 않는다면 함수를 완전히 바꾸는 것이 더 쉬울까요?

(defvar default-files-string-new "*.sch") 
(defun igrep-read-files (&optional prompt-prefix) 
    `(,(expand-file-name (concat default-directory 
           default-files-string-new))))