diff --git a/gnu-apl-interactive.el b/gnu-apl-interactive.el index 8d4f71a..78dad96 100644 --- a/gnu-apl-interactive.el +++ b/gnu-apl-interactive.el @@ -251,7 +251,9 @@ to `gnu-apl-executable')." (if (and gnu-apl-native-communication gnu-apl-use-new-native-library) (list "--emacs_arg" (int-to-string gnu-apl-native-listener-port))) (if (not gnu-apl-show-apl-welcome) - (list "--silent")))) + (list "--silent")) + (if (not (zerop (length gnu-apl-lx))) + (list "--LX" gnu-apl-lx)) )) (setq gnu-apl-current-session buffer) (gnu-apl-interactive-mode) diff --git a/gnu-apl-mode.el b/gnu-apl-mode.el index ca79141..076f0db 100644 --- a/gnu-apl-mode.el +++ b/gnu-apl-mode.el @@ -60,6 +60,12 @@ is nil, the apl binary is called with the --silent flag." :group 'gnu-apl) ;;;###autoload +(defcustom gnu-apl-lx "" + "APL expression or command to execute upon starting GNU APL." + :type 'string + :group 'gnu-apl) + +;;;###autoload (defcustom gnu-apl-native-listener-port 0 "The port number that the native listener should listen to. If zero, randomly choose an available port. diff --git a/native/Makefile b/native/Makefile index a827848..015d83e 100644