Wie erbe ich vom Prog-Modus, während ich ältere Emacsen unterstütze?

Ich schreibe einen Hauptmodus für eine Programmiersprache, möchte aber ältere Emacs-Versionen unterstützen. prog-modeist relativ neu. Ich möchte von erben, prog-modewenn es definiert ist, aber trotzdem etwas Vernünftiges tun.

Was ist der beste Ansatz? Sollte ich defalias prog-modeauf älteren Emacsen, oder wird das andere Modi stören, wenn sie das gleiche tun?

Auf Kosten einer zusätzlichen Symbolbindung der obersten Ebene gibt es eine sehr übersichtliche Lösung, bei der das define-derived-modeFormular nicht wiederholt wird:

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

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

Funktioniert gut in jedem Emacs> = 23. Ich habe mir das vor haml-modeein paar Jahren IIRC ausgedacht und es scheint sich von dort auf mehrere andere Hauptmodi ausgeweitet zu haben. Das define-derived-modeMakro generiert hauptsächlich mit dem übergeordneten Modus-Symbol Code, der seine Funktion aufruft: In diesem Sinne entspricht defaliasdie neue Variable genau der Alias-Funktion.

Eine Einschränkung ist, dass dies verwirrend sein kann. Daher funktioniert derived-mode-pCode, der überprüft, ob Ihr Modus abgeleitet ist, prog-modemöglicherweise nicht richtig. In der Praxis sind keine Probleme aufgetreten: Es ist üblicher, dass sich ein solcher Code einhakt prog-mode-hook, der immer noch ausgeführt wird.

(Wie Jorgen in den Kommentaren ausführt, wird define-derived-modeauch die mode-classEigenschaft aus dem übergeordneten Modus-Symbol verwendet und defaliasnicht kopiert. Zum Zeitpunkt des Schreibens scheintspecial-mode diese Eigenschaft nur für verwendet zu werden .)

Update: Heutzutage würde ich einfach vorschlagen, mindestens Emacs 24 zu benötigen, da ältere Versionen längst veraltet sind.

tl; dr: Verwenden Sie ifund Ihre eigene Init-Funktion:

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

Führen Sie dann die gesamte Initialisierung des Modus in aus your-cool-init.

Längere Erklärung:

Das Problem ist, dass die offizielle Art, einen abgeleiteten Hauptmodus zu schreiben, darin besteht, das define-derived-modeMakro zu verwenden:

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

Bei älteren Emacsen (vor 24) bricht dies ab, wenn prog-mode. Und Sie können es dort nicht verwenden, (if (fboundp 'prog-mode) ...)da das Makro ein Literalsymbol erwartet und es in der Erweiterung für Sie zitiert.

define-derived-modeverwendet das übergeordnete Element auf vielfältige Weise. Sie müssten alle in Ihrer eigenen Modusdefinition kopieren, um sie verwenden zu können, und das ist sowohl mühsam als auch fehleranfällig.

Die einzige Möglichkeit besteht darin, zwei verschiedene define-derived-modeAnweisungen zu verwenden, je nachdem, ob sie prog-modevorhanden sind oder nicht. Dadurch haben Sie das Problem, Ihren Initialisierungscode zweimal zu schreiben. Was natürlich schlecht ist, also extrahieren Sie das in seine eigene Funktion, wie oben beschrieben.

(Die beste Lösung ist natürlich, die Unterstützung für 23.x einzustellen und das lexikalische Scoping zu verwenden. Aber ich denke, Sie haben diese Option bereits in Betracht gezogen und fallen gelassen. :-))

Ich denke, das Testen mit fboundpmacht mehr Sinn.

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

Sie können ein Wrapper-Makro definieren define-derived-mode, das seine Argumente auswertet.

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

(Warnung: nur minimal getestet.)