làm thế nào để trả lời có hoặc không tự động trong emacs

Question

tôi binded chức năng ngữ nghĩa-symref để chìa khóa Cc Cr như thế này:

(global-set-key (kbd "C-c C-r") 'semantic-symref)

everytime tôi ép Cc Cr, nó nhắc nhở:

Tìm tài liệu tham khảo cho xxxxx? (y hoặc n)

Tôi có thể trả lời tự động như thế nào? Tôi tryed sử dụng chức năng lambda như thế này, nhưng thất bại

(global-set-key (kbd "C-c C-r") (lambda() (interactive) (semantic-symref "yes")))

Answer 1

Câu trả lời của @huitseeker khá gọn gàng và hiệu quả. Sau bốn năm, với flet và defadvice bị lỗi thời, tôi đã viết các chức năng sau để trả lời có tự động. Có thể nó hữu ích cho ai đó.

(defun my/return-t (orig-fun &rest args) 
    t) 
(defun my/disable-yornp (orig-fun &rest args) 
    (advice-add 'yes-or-no-p :around #'my/return-t) 
    (advice-add 'y-or-n-p :around #'my/return-t) 
    (let ((res (apply orig-fun args))) 
    (advice-remove 'yes-or-no-p #'my/return-t) 
    (advice-remove 'y-or-n-p #'my/return-t) 
    res)) 

(advice-add 'projectile-kill-buffers :around #'my/disable-yornp) 

Answer 2

Bạn có thể tư vấn ngữ nghĩa-symref với một cái gì đó như:

(defadvice semantic-symref (around stfu activate) 
     (flet ((yes-or-no-p (&rest args) t) 
      (y-or-n-p (&rest args) t)) 
     ad-do-it)) 

Ghi chú rằng bạn đang ở địa phương bỏ qua tất cả các xác nhận, vì vậy bạn có thể bắt các câu hỏi khác (khác) được kích hoạt bởi chính semantic-symref.