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) (defun plantuml-get-language (mode buf)
"Retrieve the language spec using the preferred PlantUML execution mode MODE. Paste the result into 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)))) ('jar #'plantuml-jar-get-language))))
(if get-fn (if get-fn
(funcall get-fn buf) (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 - 4 (when prefixing the command with C-u) -> new window
- 16 (when prefixing the command with C-u C-u) -> new frame. - 16 (when prefixing the command with C-u C-u) -> new frame.
- else -> new buffer" - else -> new buffer"
(let ((preview-fn (case mode (let ((preview-fn (pcase mode
('jar #'plantuml-jar-preview-string)))) ('jar #'plantuml-jar-preview-string))))
(if preview-fn (if preview-fn
(funcall preview-fn prefix string buf) (funcall preview-fn prefix string buf)