mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00
Code Issues Releases Activity

(c-indent-exp): Keep the indentation of the block

Browse Source 
itself, i.e. only indent the contents in it.
This commit is contained in:
Gerd Moellmann 2001-07-10 19:51:27 +00:00
parent 58f8612a80
commit 19da29f9b5
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -6,6 +6,11 @@
* startup.el (normal-top-level): Don't operate on the initial
frame if we failed to create one.
2001-07-10 Martin Stjernholm <bug-cc-mode@gnu.org>
* cc-cmds.el (c-indent-exp): Keep the indentation of the block
itself, i.e. only indent the contents in it.
2001-07-10 Markus Rost <rost@math.ohio-state.edu>
* mail/rmail.el (rmail-show-message): Show beginning of message in

6
lisp/progmodes/cc-cmds.el
View File

@ -1541,10 +1541,14 @@ balanced expression is found."
(if (not start)
(unless shutup-p
(error "Cannot find start of balanced expression to indent"))
(goto-char start)
(forward-line)
(setq start (point))
(if (not end)
(unless shutup-p
(error "Cannot find end of balanced expression to indent"))
(c-indent-region start end))))
(if (< start end)
(c-indent-region start end)))))
(goto-char here)
(set-marker here nil))))