exot/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Compare commits

base: exot:f94e90998728922e675988507a35773d47aa295c
Branches Tags
exot:master
...
compare: exot:375ead7c7ecb2a8a08617121c467bc47d4baa68c
Branches Tags
exot:master

2 Commits
f94e909987 ... 375ead7c7e

Author SHA1 Message Date
Daniel Borchmann
375ead7c7e
Add missing type and group declaration in plantuml-mode 2023-10-27 17:06:01 +02:00
Daniel Borchmann
55c19e5b78
Replace obsolete usage of cl in plantuml-mode with cl-lib 2023-10-27 17:05:43 +02:00
1 changed files with 5 additions and 3 deletions
Show Stats Expand all files Collapse all files

8
site-lisp/plantuml-mode.el
View File

@ -75,7 +75,7 @@
(require 'thingatpt) (require 'thingatpt)
(require 'dash) (require 'dash)
(require 'xml) (require 'xml)
(require 'cl) (require 'cl-lib)
(defgroup plantuml-mode nil (defgroup plantuml-mode nil
"Major mode for editing plantuml file." "Major mode for editing plantuml file."
@ -147,7 +147,9 @@
:group 'plantuml) :group 'plantuml)
(defcustom plantuml-indent-level tab-width (defcustom plantuml-indent-level tab-width
"Indentation level of PlantUML lines") "Indentation level of PlantUML lines"
:type 'number
:group 'plantuml)
(defcustom plantuml-confirm-overwrite-on-export t (defcustom plantuml-confirm-overwrite-on-export t
"Control whether file exporting is allowed to silently overwrite files." "Control whether file exporting is allowed to silently overwrite files."
@ -678,7 +680,7 @@ be generated first."
(user-error "Export file name %s does not exist yet and export has been denied, aborting" (user-error "Export file name %s does not exist yet and export has been denied, aborting"
export-file-name))) export-file-name)))
(case system-type (cl-case system-type
((windows-nt) (w32-shell-execute "open" export-file-name)) ((windows-nt) (w32-shell-execute "open" export-file-name))
((cygwin) (start-process "" nil "cygstart" export-file-name)) ((cygwin) (start-process "" nil "cygstart" export-file-name))
(otherwise (start-process "" nil "xdg-open" export-file-name))))) (otherwise (start-process "" nil "xdg-open" export-file-name)))))