branch: elpa/julia-mode commit c798df5a4e515b759764468f728f655899ab2196 Merge: b35e668d6b 05f52ad587 Author: Tamas K. Papp <tkp...@gmail.com> Commit: GitHub <nore...@github.com>
Merge pull request #187 from tpapp/tp/remove-inferior-julia Remove inferior-julia mode. --- julia-mode.el | 64 ----------------------------------------------------------- 1 file changed, 64 deletions(-) diff --git a/julia-mode.el b/julia-mode.el index 49bd5a8996..7f8f7c171a 100644 --- a/julia-mode.el +++ b/julia-mode.el @@ -910,7 +910,6 @@ buffer where the LaTeX symbol starts." ;; Math insertion in julia. Use it with ;; (add-hook 'julia-mode-hook 'julia-math-mode) -;; (add-hook 'inferior-julia-mode-hook 'julia-math-mode) (when (featurep 'latex) (declare-function LaTeX-math-abbrev-prefix "latex") @@ -933,69 +932,6 @@ following commands are defined: (if julia-math-mode (setq-local LaTeX-math-insert-function #'julia-math-insert))))) -;; Code for `inferior-julia-mode' -(require 'comint) - -(defcustom julia-program "julia" - "Path to the program used by `inferior-julia'." - :type 'string - :group 'julia) - -(defcustom julia-arguments '("-i" "--color=yes") - "Commandline arguments to pass to `julia-program'." - :type '(repeat (string :tag "argument")) - :group 'julia) - -(defvar julia-prompt-regexp "^\\w*> " - "Regexp for matching `inferior-julia' prompt.") - -(defvar inferior-julia-mode-map - (nconc (make-sparse-keymap) comint-mode-map) - "Basic mode map for `inferior-julia-mode'.") - -;;;###autoload -(defun inferior-julia () - "Run an inferior instance of julia inside Emacs." - (interactive) - (let ((julia-program julia-program)) - (when (not (comint-check-proc "*Julia*")) - (apply #'make-comint-in-buffer "Julia" "*Julia*" - julia-program nil julia-arguments)) - (pop-to-buffer-same-window "*Julia*") - (inferior-julia-mode))) - -(make-obsolete 'inferior-julia - "REPL modes are now provided by various third-party packages, this will be removed." - "2021-08-30") - -(defun inferior-julia--initialize () - "Helper function to initialize `inferior-julia'." - (setq comint-use-prompt-regexp t)) - -(define-derived-mode inferior-julia-mode comint-mode "Julia" - "Major mode for `inferior-julia'. - -\\<inferior-julia-mode-map>" - nil "Julia" - :abbrev-table julia-mode-abbrev-table - (setq-local comint-prompt-regexp julia-prompt-regexp) - (setq-local comint-prompt-read-only t) - (setq-local font-lock-defaults '(julia-font-lock-keywords t)) - (setq-local paragraph-start julia-prompt-regexp) - (setq-local indent-line-function #'julia-indent-line) - (when julia-force-tab-complete - (setq-local tab-always-indent 'complete)) - (add-hook 'completion-at-point-functions - #'julia-mode-latexsub-completion-at-point-before nil t) - (add-hook 'completion-at-point-functions - #'julia-mode-latexsub-completion-at-point-around nil t)) - -(add-hook 'inferior-julia-mode-hook #'inferior-julia--initialize) - -;;;###autoload -(defalias 'run-julia #'inferior-julia - "Run an inferior instance of julia inside Emacs.") - (provide 'julia-mode) ;; Local Variables: