emacs
/
plantuml-mode
mirror of https://github.com/skuro/plantuml-mode.git
1
0
Fork 0
Code Issues Releases Wiki Activity

No need to have cl stuff around

This commit is contained in:
Carlo Sciolla 2019-05-21 17:20:30 +02:00
parent 06e40711e3
commit a4a9f7b89f
No known key found for this signature in database
GPG Key ID: BA5D71E6F3C580C1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
plantuml-mode.el
View File

@ -213,7 +213,7 @@
(defun plantuml-get-language (mode buf)
"Retrieve the language spec using the preferred PlantUML execution mode MODE. Paste the result into BUF."
(let ((get-fn (case mode
(let ((get-fn (pcase mode
('jar #'plantuml-jar-get-language))))
(if get-fn
(funcall get-fn buf)
@ -337,7 +337,7 @@ Put the result into buffer BUF, selecting the window according to PREFIX:
- 4 (when prefixing the command with C-u) -> new window
- 16 (when prefixing the command with C-u C-u) -> new frame.
- else -> new buffer"
(let ((preview-fn (case mode
(let ((preview-fn (pcase mode
('jar #'plantuml-jar-preview-string))))
(if preview-fn
(funcall preview-fn prefix string buf)