Mercurial > emacs
changeset 68062:a4e1f58469e5
(gdb-script-skip-to-head, gdb-script-calculate-indentation):
Indent for breakpoint command lists also.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Fri, 06 Jan 2006 10:56:12 +0000 |
| parents | 706ae7108d85 |
| children | df1975854c1c |
| files | lisp/progmodes/gud.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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 ()