Làm cách nào để tôi kế thừa từ chế độ prog, trong khi vẫn hỗ trợ emacsen cũ hơn?

Tôi đang viết một chế độ chính cho ngôn ngữ lập trình, nhưng tôi muốn hỗ trợ các phiên bản Emacs cũ hơn. prog-modelà tương đối mới. Tôi muốn thừa kế từ prog-modenếu nó được xác định, nhưng vẫn làm điều gì đó hợp lý.

Cách tiếp cận tốt nhất là gì? Tôi có nên sử dụng defalias prog-modeEmacsen cũ hơn hay sẽ can thiệp vào các chế độ khác nếu chúng làm điều tương tự?

Với chi phí của một ràng buộc biểu tượng cấp cao nhất, có một giải pháp rất gọn gàng tránh lặp lại define-derived-modebiểu mẫu:

(defalias 'my-fancy-parent-mode
  (if (fboundp 'prog-mode) 'prog-mode 'fundamental-mode))

(define-derived-mode my-fancy-mode my-fancy-parent-mode
   ...)

Hoạt động tốt trong mọi Emacs> = 23. Tôi đã nghĩ ra điều này trong haml-modemột vài năm trước IIRC và dường như nó đã lan rộng từ đó sang một vài chế độ chính khác. Điều chính mà define-derived-modemacro thực hiện với biểu tượng chế độ cha là tạo mã gọi hàm của nó: theo nghĩa này, defaliaslàm cho biến mới chính xác tương đương với hàm bí danh.

Một lưu ý là điều này có thể gây nhầm lẫn derived-mode-p, vì vậy mã kiểm tra xem chế độ của bạn có nguồn gốc từ prog-modecó thể không hoạt động chính xác không. Trong thực tế, tôi không gặp phải bất kỳ vấn đề nào: thông thường hơn là mã đó được nối vào prog-mode-hook, mã này vẫn được chạy.

(Như Jorgen chỉ ra trong các bình luận, define-derived-modecũng sử dụng thuộc mode-classtính từ biểu tượng chế độ cha mẹ và defaliassẽ không sao chép nó. Tại thời điểm viết, thuộc tính này dường như chỉ được sử dụng chospecial-mode .)

Cập nhật: những ngày này tôi chỉ đơn giản đề nghị yêu cầu ít nhất là Emacs 24, vì các phiên bản cũ đã lỗi thời.

tl; dr: Sử dụng ifvà chức năng init của riêng bạn:

(if (fboundp 'prog-mode)
    (define-derived-mode your-cool-mode prog-mode "Cool"
      "Docstring"
      (your-cool--init))
  (define-derived-mode your-cool-mode nil "Cool"
    "Docstring"
    (your-cool--init)))

Sau đó thực hiện tất cả các khởi tạo chế độ trong your-cool-init.

Giải thích dài hơn:

Vấn đề là cách chính thức để viết một chế độ chính xuất phát là sử dụng define-derived-modemacro:

(define-derived-mode your-cool-mode prog-mode ...)

Trên Emacsen cũ (trước 24), điều này sẽ phá vỡ khi prog-mode. Và bạn không thể sử dụng (if (fboundp 'prog-mode) ...)ở đó vì macro mong đợi một biểu tượng bằng chữ và sẽ trích dẫn nó cho bạn trong bản mở rộng.

define-derived-modesử dụng cha mẹ trong vô số cách. Bạn cần sao chép tất cả những thứ trong định nghĩa chế độ của riêng bạn để sử dụng chúng, và điều đó vừa tẻ nhạt vừa dễ bị lỗi.

Vì vậy, cách duy nhất là sử dụng hai define-derived-modecâu lệnh khác nhau , tùy thuộc vào việc có prog-modetồn tại hay không. Điều đó khiến bạn gặp phải vấn đề viết mã khởi tạo hai lần. Điều này tất nhiên là xấu, vì vậy bạn trích xuất nó vào chức năng của chính nó, như được mô tả ở trên.

(Tất nhiên, giải pháp tốt nhất là bỏ hỗ trợ cho 23.x và sử dụng phạm vi từ vựng. Nhưng tôi đoán bạn đã xem xét và bỏ tùy chọn đó. :-))

Tôi nghĩ rằng thử nghiệm sử dụng fboundpcó ý nghĩa hơn.

(if (fboundp 'prog-mode)
    ...
   ...)

Bạn có thể xác định một macro trình bao bọc để define-derived-modeđánh giá các đối số của nó.

(defmacro define-derived-mode* (child parent name &optional docstring &rest body)
  (macroexpand `(define-derived-mode ,(eval child) ,(eval parent) ,(eval name)
                                     ,(eval docstring) . ,body)))
(define-derived-mode* 'toy-mode
  (if (fboundp 'prog-mode) 'prog-mode 'fundamental-mode)
  "Toy"
  "Major mode for my favorite toy language"
  (toy-mode-setup))

(Cảnh báo: chỉ được thử nghiệm tối thiểu.)