Jak dziedziczyć po trybie progresywnym, nadal obsługując starsze emacsen?

Piszę główny tryb dla języka programowania, ale chcę obsługiwać starsze wersje Emacsa. prog-modejest stosunkowo nowy. Chcę dziedziczyć, prog-modejeśli jest zdefiniowane, ale nadal robię coś sensownego w przeciwnym razie.

Jakie jest najlepsze podejście? Czy powinienem defalias prog-modeużywać starszego Emacsena, czy może to będzie kolidować z innymi trybami, jeśli robią to samo?

Kosztem dodatkowego wiązania symboli najwyższego poziomu jest bardzo fajne rozwiązanie, które pozwala uniknąć powtarzania define-derived-modeformy:

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

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

Działa dobrze w każdym Emacsie> = 23. Wymyśliłem to haml-modekilka lat temu IIRC i wydaje się, że rozprzestrzenił się stamtąd na kilka innych głównych trybów. Najważniejsze, co define-derived-moderobi makro z symbolem trybu nadrzędnego, to generowanie kodu, który wywołuje jego funkcję: w tym sensie defaliasnowa zmienna jest dokładnie równoważna funkcji aliasu.

Jednym zastrzeżeniem jest to, że może to mylić derived-mode-p, więc kod, który sprawdza, czy tryb, z którego wywodzisz się z trybu, prog-modemoże nie działać poprawnie. W praktyce nie spotkałem się z żadnymi problemami: zwykle taki kod się zaczepia prog-mode-hook, co wciąż się uruchamia.

(Jak zauważa Jorgen w komentarzach, define-derived-modeużywa również mode-classwłaściwości z symbolu trybu rodzica i defaliasnie skopiuje jej. W chwili pisania ta właściwość wydaje się być używana tylkospecial-mode .)

Aktualizacja: w dzisiejszych czasach po prostu sugeruję wymaganie co najmniej Emacsa 24, ponieważ starsze wersje są od dawna przestarzałe.

tl; dr: Użyj ifi własnej funkcji init:

(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)))

Następnie wykonaj całą inicjalizację trybu w your-cool-init.

Dłuższe wyjaśnienie:

Problem polega na tym, że oficjalnym sposobem pisania pochodnego trybu głównego jest użycie define-derived-modemakra:

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

W starszych Emacsen (wcześniejszych niż 24) to się psuje, kiedy prog-mode. I nie możesz go użyć (if (fboundp 'prog-mode) ...), ponieważ makro oczekuje dosłownego symbolu i zacytuje go dla ciebie w rozszerzeniu.

define-derived-modeużywa rodzica na wiele sposobów. Aby z nich skorzystać, musisz skopiować wszystkie z nich we własnej definicji trybu, a to zarówno żmudne, jak i podatne na błędy.

Zatem jedynym sposobem jest użycie dwóch różnych define-derived-modeinstrukcji, w zależności od tego prog-mode, czy istnieje, czy nie. To pozostawia problem z dwukrotnym pisaniem kodu inicjalizacji. Co jest oczywiście złe, więc wyodrębnij to do jego własnej funkcji, jak opisano powyżej.

(Najlepszym rozwiązaniem jest oczywiście porzucenie wsparcia dla 23.x i użycie zakresu leksykalnego. Ale myślę, że już rozważałeś i zrezygnowałeś z tej opcji :-))

Myślę, że testowanie przy użyciu fboundpma większy sens.

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

Możesz zdefiniować makro opakowania dla define-derived-modeoceny jego argumentów.

(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))

(Ostrzeżenie: tylko minimalnie przetestowane.)