From 151e0fd9df4f3ac73147895c9ede1ae30705324a Mon Sep 17 00:00:00 2001 From: Carlo Sciolla Date: Sat, 12 Dec 2015 16:45:43 +0100 Subject: [PATCH] Trying to integrate comments as per PR #12 --- puml-mode.el | 17 ++++++++++++----- 1 file changed, 12 insertions(+), 5 deletions(-) diff --git a/puml-mode.el b/puml-mode.el index f7e9208..6392673 100644 --- a/puml-mode.el +++ b/puml-mode.el @@ -65,11 +65,13 @@ ;;; syntax table (defvar puml-mode-syntax-table (let ((synTable (make-syntax-table))) - (modify-syntax-entry ?' "< b" synTable) - (modify-syntax-entry ?\n "> b" synTable) - (modify-syntax-entry ?! "w" synTable) - (modify-syntax-entry ?@ "w" synTable) - (modify-syntax-entry ?# "'" synTable) + (modify-syntax-entry ?\/ "14b" synTable) + (modify-syntax-entry ?' "<23b" synTable) + (modify-syntax-entry ?\n ">" synTable) + (modify-syntax-entry ?\r ">" synTable) + (modify-syntax-entry ?! "w" synTable) + (modify-syntax-entry ?@ "w" synTable) + (modify-syntax-entry ?# "'" synTable) synTable) "Syntax table for `puml-mode'.") @@ -281,6 +283,11 @@ default output type for new buffers." Shortcuts Command Name \\[puml-complete-symbol] `puml-complete-symbol'" (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))) (provide 'puml-mode)