diff options
| author | Nick Roberts | 2006-01-06 10:56:12 +0000 |
|---|---|---|
| committer | Nick Roberts | 2006-01-06 10:56:12 +0000 |
| commit | 582761a6e53bc8238cf9fb9a6bb73cc9fd683be7 (patch) | |
| tree | 806c542bfe610ca04a6afaa23b76a8f9142f5fc6 | |
| parent | 753c278e3629ac65f779cb48f542f35358cf67bc (diff) | |
| download | emacs-582761a6e53bc8238cf9fb9a6bb73cc9fd683be7.tar.gz emacs-582761a6e53bc8238cf9fb9a6bb73cc9fd683be7.zip | |
(gdb-script-skip-to-head, gdb-script-calculate-indentation):
Indent for breakpoint command lists also.
| -rw-r--r-- | lisp/progmodes/gud.el | 4 |
1 files changed, 2 insertions, 2 deletions
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)." | |||
| 3139 | 3139 | ||
| 3140 | (defun gdb-script-skip-to-head () | 3140 | (defun gdb-script-skip-to-head () |
| 3141 | "We're just in front of an `end' and we need to go to its head." | 3141 | "We're just in front of an `end' and we need to go to its head." |
| 3142 | (while (and (re-search-backward "^\\s-*\\(\\(end\\)\\|define\\|document\\|if\\|while\\)\\>" nil 'move) | 3142 | (while (and (re-search-backward "^\\s-*\\(\\(end\\)\\|define\\|document\\|if\\|while\\|commands\\)\\>" nil 'move) |
| 3143 | (match-end 2)) | 3143 | (match-end 2)) |
| 3144 | (gdb-script-skip-to-head))) | 3144 | (gdb-script-skip-to-head))) |
| 3145 | 3145 | ||
| @@ -3158,7 +3158,7 @@ class of the file (using s to separate nested class ids)." | |||
| 3158 | (forward-line 0) | 3158 | (forward-line 0) |
| 3159 | (skip-chars-forward " \t") | 3159 | (skip-chars-forward " \t") |
| 3160 | (+ (current-indentation) | 3160 | (+ (current-indentation) |
| 3161 | (if (looking-at "\\(if\\|while\\|define\\|else\\)\\>") | 3161 | (if (looking-at "\\(if\\|while\\|define\\|else\\|commands\\)\\>") |
| 3162 | gdb-script-basic-indent 0))))) | 3162 | gdb-script-basic-indent 0))))) |
| 3163 | 3163 | ||
| 3164 | (defun gdb-script-indent-line () | 3164 | (defun gdb-script-indent-line () |