From: Nick Roberts <nickrob@snap.net.nz>
Date: Fri, 6 Jan 2006 10:56:12 +0000 (+0000)
Subject: (gdb-script-skip-to-head, gdb-script-calculate-indentation):
X-Git-Tag: emacs-pretest-22.0.90~4857
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=582761a6e53bc8238cf9fb9a6bb73cc9fd683be7;p=emacs.git

(gdb-script-skip-to-head, gdb-script-calculate-indentation):
Indent for breakpoint command lists also.
---

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index e99262dd670..92c3eb55884 100644
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -3139,7 +3139,7 @@ class of the file (using s to separate nested class ids)."
 
 (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 @@ class of the file (using s to separate nested class ids)."
     (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 ()