Làm thế nào để có được vùng (lựa chọn) lập trình trong Emacs Lisp?

Question

Tôi cần truy cập vùng chọn trong bộ đệm Emacs. Tôi đã tìm thấy bài viết này How do I access the contents of the current region in Emacs Lisp? và nó giúp tôi rất nhiều.

Nhưng có sự cố. Lần đầu tiên tôi chọn (đánh dấu) một vùng, nó hoạt động tốt, nhưng khi tôi nhấn Cg và di chuyển con trỏ đến một nơi khác mà không làm nổi bật bất kỳ ký tự nào, tôi nhận chuỗi từ dấu cuối đến điểm hiện tại trong khi tôi mong đợi một dấu trống .

Thực ra tôi cần triển khai hàm sẽ trả về lựa chọn hiện tại (được đánh dấu) dưới dạng chuỗi hoặc chuỗi rỗng nếu không có gì được đánh dấu. Đoạn mã sau có thể diễn tả rõ ràng hơn.

(defun get-search-term() 
    (interactive) 
    (let (
     (selection (buffer-substring-no-properties (region-beginning) (region-end)))) 
    (if (= (length selection) 0) 
     (message "empty string") 
     (message selection)))) 

Mọi đề xuất? Cảm ơn rất nhiều!

Answer 1

Đặc điểm kỹ thuật "r" tương tác là câm. Bạn đang thấy lý do tại sao.

(defun get-search-term (beg end) 
    "message region or \"empty string\" if none highlighted" 
    (interactive (if (use-region-p) 
        (list (region-beginning) (region-end)) 
       (list (point-min) (point-min)))) 
    (let ((selection (buffer-substring-no-properties beg end))) 
    (if (= (length selection) 0) 
     (message "empty string") 
     (message selection)))) 

Tôi không có nghĩa là "câm" như trong ngu ngốc và không hữu ích; chỉ là nó không quan tâm về việc liệu nhãn hiệu có hoạt động hay không. Tôi nghĩ rằng nó có trước chế độ đánh dấu tạm thời.

EDIT: Sử dụng (point-min) hai lần trên làm cho mã khó hiểu hơn khi đọc lại. Dưới đây là triển khai tốt hơn:

(defun get-search-term (beg end) 
    "message region or \"empty string\" if none highlighted" 
    (interactive (if (use-region-p) 
        (list (region-beginning) (region-end)) 
       (list nil nil))) 
    (message "%s" (if (and beg end) 
        (buffer-substring-no-properties beg end) 
        "empty string"))) 

Answer 2

Kiểm tra biến đánh dấu hoạt động, ví dụ: C-h v mark-active

==> đánh dấu hoạt động là một biến được xác định trong `mã nguồn C '. Giá trị của nó là nil Địa phương trong bộ đệm Apropos; giá trị toàn cầu là nil

Tự động trở thành bộ đệm cục bộ khi được đặt theo bất kỳ kiểu nào.

Tài liệu: Không có nghĩa là dấu và vùng hiện đang hoạt động trong bộ đệm này.

(defun get-search-term() 
    (interactive) 
    (if mark-active 
     (let (
     (selection (buffer-substring-no-properties (region-beginning) (region-end)))) 
    (if (= (length selection) 0) 
     (message "empty string") 
     (message selection)) 
    ) 
    (error "mark not active")) 
)