Updated the last-opening-brace, last-closing-brace, and nagios-calculate-indent funct...
authorMichael Orlitzky <michael@orlitzky.com>
Sat, 21 Aug 2010 03:51:11 +0000 (23:51 -0400)
committerMichael Orlitzky <michael@orlitzky.com>
Sat, 21 Aug 2010 03:51:11 +0000 (23:51 -0400)
nagios-mode.el

index 377400172a2cf08b2123314612205d95d2a52be1..22535b548e35f702ff835440fb144949ac53eed6 100644 (file)
 )
 
 
+(defun char-is-commented(pos)
+  "True if the character at position pos is commented, nil otherwise."
+  (save-excursion
+    (goto-char pos)
+    (re-search-backward "#" (beginning-of-line-pos) t)
+  )
+)
+
+(defun char-is-commented-and-valid(pos)
+  "True if the character at position pos is commented and non-nil.
+   Nil otherwise."
+  (if (eq nil pos)
+      nil
+      (char-is-commented pos)
+  )
+)
+
 
 (defun last-opening-brace()
-  ;; Get the position of the last opening brace, with
-  ;; respect to the current point.
+  "Returns the position of the last opening brace, with
+   respect to the current point. Ignores braces which
+   are commented out."
   (save-excursion
     (let ((lob (re-search-backward "{" nil t)))
+
+      (while (char-is-commented-and-valid lob)
+       (goto-char lob)
+       (setq lob (re-search-backward "{" nil t))
+      )
+
       (if lob
          lob
          -1)
   )
 )
 
+
 (defun last-closing-brace()
-  ;; Get the position of the last closing brace, with
-  ;; respect to the current point.
+  "Get the position of the last closing brace, with
+   respect to the current point. Ignores braces which
+   are commented out."
   (save-excursion
     (let ((lcb (re-search-backward "}" nil t)))
+
+      (while (char-is-commented-and-valid lcb)
+       (goto-char lcb)
+       (setq lcb (re-search-backward "}" nil t))
+      )
+
       (if lcb
          lcb
          -1)
        )
 
     ;; Set the indentation level to 0 if we find either brace on this
-    ;; line.
-    (if (brace-on-line)
-       (setq indent 0)
+    ;; line and.
+    (if (and (brace-on-line) (not (char-is-commented (brace-on-line))))
+       0
+        indent
     )
-
-    indent
   )
 )