[elpa] externals/csharp-mode 49a957b 199/459: Super-ugly hacks to fix build.

[ELPA Syncer]

branch: externals/csharp-mode
commit 49a957b4ab6c50c4521e8b184ad05f751710bf89
Author: Jostein Kjønigsen <jostein@kjonigsen.net>
Commit: Jostein Kjønigsen <jostein@kjonigsen.net>

    Super-ugly hacks to fix build.
    
    Addresses https://github.com/josteink/csharp-mode/issues/79.
    
    I'm so so sorry.
---
 csharp-mode.el | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/csharp-mode.el b/csharp-mode.el
index 448a17b..f5c5e47 100644
--- a/csharp-mode.el
+++ b/csharp-mode.el
@@ -466,6 +466,18 @@ are the string substitutions (see `format')."
         (let* ((msg (apply 'format text args)))
           (message "C# %s %s" (csharp-time) msg)))))
 
+;; nasty hack to silence compile-time warnings and runtime-warnings.
+;; exact copy of defun above.
+(defun csharp-log (level text &rest args)
+  "Log a message at level LEVEL.
+If LEVEL is higher than `csharp-log-level', the message is
+ignored.  Otherwise, it is printed using `message'.
+TEXT is a format control string, and the remaining arguments ARGS
+are the string substitutions (see `format')."
+  (if (<= level csharp-log-level)
+      (let* ((msg (apply 'format text args)))
+        (message "C# %s %s" (csharp-time) msg))))
+
 (defun csharp--at-vsemi-p (&optional pos)
   "Determines if there is a virtual semicolon at POS or point.
 It returns t if at a position where a virtual-semicolon is.
@@ -563,6 +575,20 @@ a square parentasis block [ ... ]."
            (eq (char-before) 93))) ;; close square
     ))
 
+;; nasty hack to silence compile-time warnings and runtime-warnings.
+;; exact copy of defun above.
+(defun csharp-is-square-parentasis-block-p ()
+  "Attempts to safely assess if the current point is at the opening of
+a square parentasis block [ ... ]."
+  (let* ((start (point)) ;; variables used to hold our position, so that we 
know that
+         (end))          ;; our code isn't stuck trying to look for a 
non-existant sexp.
+    (and (eq (char-after) 91) ;; open square
+         (while (and (eq (char-after) 91)
+                     (not (eq start end)))
+           (c-safe (c-forward-sexp 1))
+           (setq end (point)))
+         (eq (char-before) 93))) ;; close square
+  )
 
 ;; ==================================================================
 ;; end of csharp-mode utility and feature defuns