bram/plantuml-mode
1
0
Fork 0
Code Activity

Trying to integrate comments as per PR #12

Browse source
This commit is contained in:
Carlo Sciolla 2015-12-12 16:45:43 +01:00
parent 664bc47000
commit 151e0fd9df
1 changed files with 12 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
puml-mode.el
View file

@ -65,11 +65,13 @@
;;; syntax table ;;; syntax table
(defvar puml-mode-syntax-table (defvar puml-mode-syntax-table
(let ((synTable (make-syntax-table))) (let ((synTable (make-syntax-table)))
(modify-syntax-entry ?' "< b" synTable) (modify-syntax-entry ?\/ "14b" synTable)
(modify-syntax-entry ?\n "> b" synTable) (modify-syntax-entry ?' "<23b" synTable)
(modify-syntax-entry ?! "w" synTable) (modify-syntax-entry ?\n ">" synTable)
(modify-syntax-entry ?@ "w" synTable) (modify-syntax-entry ?\r ">" synTable)
(modify-syntax-entry ?# "'" synTable) (modify-syntax-entry ?! "w" synTable)
(modify-syntax-entry ?@ "w" synTable)
(modify-syntax-entry ?# "'" synTable)
synTable) synTable)
"Syntax table for `puml-mode'.") "Syntax table for `puml-mode'.")
@ -281,6 +283,11 @@ default output type for new buffers."
Shortcuts Command Name Shortcuts Command Name
\\[puml-complete-symbol] `puml-complete-symbol'" \\[puml-complete-symbol] `puml-complete-symbol'"
(make-local-variable 'puml-output-type) (make-local-variable 'puml-output-type)
(set (make-local-variable 'comment-start-skip) "\\('+\\|/'+\\)\\s *")
(set (make-local-variable 'comment-start) "/'")
(set (make-local-variable 'comment-end) "'/")
(set (make-local-variable 'comment-multi-line) t)
(set (make-local-variable 'comment-style) 'extra-line)
(setq font-lock-defaults '((puml-font-lock-keywords) nil t))) (setq font-lock-defaults '((puml-font-lock-keywords) nil t)))
(provide 'puml-mode) (provide 'puml-mode)