Tôi làm cách nào để chặn Ctrl-G trong Emacs

Question

Tôi có một tập lệnh tuyệt vời cho Emacs mà tôi muốn làm một số trong sạch nếu người dùng truy cập Ctrl + G. Tôi sử dụng 'sự kiện đọc' để nắm bắt tất cả các sự kiện, nhưng điều này không bắt được Ctrl + G. Khi Ctrl + G bị nhấn, nó chỉ dừng thực hiện.

Trong XEmacs, khi bạn gọi tiếp theo lệnh-event nó sẽ cung cấp cho bạn tất cả các sự kiện kể cả khi người dùng chạm Ctrl +G. Phải có một số tương đương trong Emacs.

Answer 1

Bạn có thể sử dụng with-local-quit để xác định xem C-g được nhấn:

giải pháp Edited để nuốt bỏ theo đề nghị của efunneko.

(defun my-c-g-test() 
    "test catching control-g" 
    (interactive) 
    (let ((inhibit-quit t)) 
    (unless (with-local-quit 
       (y-or-n-p "arg you gonna type C-g?") 
       t) 
     (progn 
     (message "you hit C-g") 
     (setq quit-flag nil))))) 

Lưu ý: với địa phương-bỏ trả về giá trị của biểu thức cuối cùng, hoặc nil nếu C-g được nhấn, vì vậy hãy chắc chắn để trở lại một cái gì đó không phải là con số không khi không có C-g được nhấn. Tôi tìm thấy tài liệu elisp trên quitting hữu ích. Một khu vực liên quan là nonlocal exits và cụ thể là unwind-protect, áp dụng cho nhiều hơn là chỉ thoát.

Answer 2

condition-case và unwind-protect hữu ích ở đây. condition-case cho phép bạn "bắt" "ngoại lệ", trong đó thoát là một:

(condition-case 
    (while t) ; never terminates 
    (quit (message "C-g was pressed"))) 

Bạn cũng có thể gặp các lỗi khác, như "lỗi".

unwind-protect cũng giống như cuối cùng; nó sẽ thực hiện "các hình thức cơ thể" và sau đó "thư giãn các hình thức". Tuy nhiên, "các hình thức thư giãn" được thực thi bất kể "hình thức cơ thể" có chạy thành công hay không:

(unwind-protect 
    (while t) 
    (message "Done with infinite loop")) 

Bạn muốn unwind-protect trong trường hợp của bạn.