emacs
/
plantuml-mode
mirror of https://github.com/skuro/plantuml-mode.git
1
0
Fork 0
Code Issues Releases Wiki Activity

Remove all compilation warnings

This commit is contained in:
Carlo Sciolla 2018-08-16 12:02:30 +02:00
parent 6c0455b5e2
commit 7d09b36773
No known key found for this signature in database
GPG Key ID: BA5D71E6F3C580C1
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
plantuml-mode.el
View File

@ -398,11 +398,14 @@ Uses prefix (as PREFIX) to choose where to display it:
(defun plantuml-current-block-depth ()
"Trace the current block indentation level by recursively looking back line by line."
;; forward declare the lazy initialized constants
(defvar plantuml-indent-regexp-start)
(defvar plantuml-indent-regexp-end)
(save-excursion
(let ((relative-depth 0))
(let ((relative-depth 0)
(bob-visited? nil))
(beginning-of-line)
(forward-line -1)
(setq bob-visited? nil)
(while (and (>= relative-depth 0)
(not bob-visited?))
(if (bobp)
@ -420,6 +423,9 @@ Uses prefix (as PREFIX) to choose where to display it:
(defun plantuml-indent-line ()
"Indent the current line to its desired indentation level."
(interactive)
;; forward declare the lazy initialized constants
(defvar plantuml-indent-regexp-start)
(defvar plantuml-indent-regexp-end)
(let ((original-indentation (current-indentation)))
(save-excursion
(beginning-of-line)