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

Compare commits

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

No commits in common. "375ead7c7ecb2a8a08617121c467bc47d4baa68c" and "f94e90998728922e675988507a35773d47aa295c" have entirely different histories.
375ead7c7e ... f94e909987

1 changed files with 3 additions and 5 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-lib) (require 'cl)
(defgroup plantuml-mode nil (defgroup plantuml-mode nil
"Major mode for editing plantuml file." "Major mode for editing plantuml file."
@ -147,9 +147,7 @@
: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."
@ -680,7 +678,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)))
(cl-case system-type (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)))))