¿Cómo heredo de prog-mode, sin dejar de admitir emacsen anterior?

Estoy escribiendo un modo principal para un lenguaje de programación, pero quiero admitir versiones anteriores de Emacs. prog-modeEs relativamente nuevo. Quiero heredar de prog-modesi está definido, pero de lo contrario seguiré haciendo algo sensato.

¿Cuál es el mejor enfoque? ¿Debo defalias prog-modeusar Emacsen más antiguo, o eso interferirá con otros modos si hacen lo mismo?

A costa de un enlace de símbolo de nivel superior adicional, hay una solución muy clara que evita repetir el define-derived-modeformulario:

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

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

Funciona bien en cualquier Emacs> = 23. Se me ocurrió esto hace haml-modeun par de años IIRC, y parece haberse extendido desde allí a varios otros modos principales. Lo principal que hace la define-derived-modemacro con el símbolo del modo padre es generar código que llama a su función: en este sentido, defaliashace que la nueva variable sea exactamente equivalente a la función con alias.

Una advertencia es que esto puede confundir derived-mode-p, por lo que el código que verifica si su modo se deriva prog-modepuede no funcionar correctamente. En la práctica, no he encontrado ningún problema: es más habitual que se conecte dicho código prog-mode-hook, que aún se ejecuta.

(Como Jorgen señala en los comentarios, define-derived-modetambién usa la mode-classpropiedad del símbolo del modo principal y defaliasno la copia. Al momento de escribir, esta propiedad solo parece ser utilizada paraspecial-mode ).

Actualización: en estos días, simplemente sugiero que se requiera al menos Emacs 24, ya que las versiones anteriores son obsoletas durante mucho tiempo.

tl; dr: Use ify su propia función 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)))

Luego haga toda la inicialización del modo en your-cool-init.

Explicación más larga:

El problema es que la forma oficial de escribir un modo principal derivado es usar la define-derived-modemacro:

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

En Emacsen anterior (anterior a 24), esto se rompe cuando prog-mode. Y no puede usarlo (if (fboundp 'prog-mode) ...)allí porque la macro espera un símbolo literal y lo citará en la expansión.

define-derived-modeusa el padre de muchas maneras. Debería copiarlos en su propia definición de modo para utilizarlos, y eso es tedioso y propenso a errores.

Entonces, la única forma es usar dos define-derived-modedeclaraciones diferentes , dependiendo de si prog-modeexiste o no. Eso te deja con el problema de escribir tu código de inicialización dos veces. Lo cual, por supuesto, es malo, por lo que extrae eso en su propia función, como se describe anteriormente.

(La mejor solución es, por supuesto, abandonar el soporte para 23.xy usar el alcance léxico. Pero supongo que ya consideró y eliminó esa opción. :-))

Creo que probar usando fboundptiene más sentido.

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

Puede definir una macro de contenedor para define-derived-modeque evalúe sus argumentos.

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

(Advertencia: solo mínimamente probado).