# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1136544972 0
# Node ID a4e1f58469e5d3dcb337b575a7584396e16c2141
# Parent  706ae7108d850a759e3f3fc3470676a703e967ae
(gdb-script-skip-to-head, gdb-script-calculate-indentation):
Indent for breakpoint command lists also.

diff -r 706ae7108d85 -r a4e1f58469e5 lisp/progmodes/gud.el
--- a/lisp/progmodes/gud.el	Fri Jan 06 10:35:44 2006 +0000
+++ b/lisp/progmodes/gud.el	Fri Jan 06 10:56:12 2006 +0000
@@ -3139,7 +3139,7 @@
 
 (defun gdb-script-skip-to-head ()
   "We're just in front of an `end' and we need to go to its head."
-  (while (and (re-search-backward "^\\s-*\\(\\(end\\)\\|define\\|document\\|if\\|while\\)\\>" nil 'move)
+  (while (and (re-search-backward "^\\s-*\\(\\(end\\)\\|define\\|document\\|if\\|while\\|commands\\)\\>" nil 'move)
 	      (match-end 2))
     (gdb-script-skip-to-head)))
 
@@ -3158,7 +3158,7 @@
     (forward-line 0)
     (skip-chars-forward " \t")
     (+ (current-indentation)
-       (if (looking-at "\\(if\\|while\\|define\\|else\\)\\>")
+       (if (looking-at "\\(if\\|while\\|define\\|else\\|commands\\)\\>")
 	   gdb-script-basic-indent 0)))))
 
 (defun gdb-script-indent-line ()