alarsyo/spot
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

* elisp/hoa-mode.el: Update from upstream.

Browse source
This commit is contained in:
Alexandre Duret-Lutz 2019-10-08 17:48:15 +02:00
parent 566a43dd17
commit 98dc1a5629
1 changed files with 10 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

15
elisp/hoa-mode.el
View file

@ -1,6 +1,6 @@
;;; hoa-mode.el --- Major mode for the Hanoi Omega Automata format ;;; hoa-mode.el --- Major mode for the HOA format -*- lexical-binding: t -*-
;; Copyright (C) 2015 Alexandre Duret-Lutz ;; Copyright (C) 2015, 2017, 2019 Alexandre Duret-Lutz
;; Author: Alexandre Duret-Lutz <adl@lrde.epita.fr> ;; Author: Alexandre Duret-Lutz <adl@lrde.epita.fr>
;; Maintainer: Alexandre Duret-Lutz <adl@lrde.epita.fr> ;; Maintainer: Alexandre Duret-Lutz <adl@lrde.epita.fr>
@ -175,14 +175,19 @@ the GraphViz package, see URL `http://www.graphviz.org/')."
:group 'hoa-mode :group 'hoa-mode
:type 'string) :type 'string)
(defun hoa-display-automaton-at-point () (defun hoa-display-automaton-at-point (arg)
"Display the automaton-at-point. "Display the automaton-at-point.
This uses the command in `hoa-display-command' to convert HOA This uses the command in `hoa-display-command' to convert HOA
into PNG, and then display the result in `hoa-display-buffer'. into PNG, and then display the result in `hoa-display-buffer'.
If the command terminates with an error, its standard error is If the command terminates with an error, its standard error is
put in `hoa-display-error-buffer' and shown." put in `hoa-display-error-buffer' and shown.
(interactive)
With a numeric prefix, the value of `hoa-display-command' can
be edited before it is executed."
(interactive "P")
(when arg
(setq hoa-display-command (read-string "command: " hoa-display-command)))
(let ((b (save-excursion (if (not (looking-at "HOA:")) (let ((b (save-excursion (if (not (looking-at "HOA:"))
(hoa-start-of-automaton) (hoa-start-of-automaton)
(point)))) (point))))