Mercurial > emacs
changeset 110417:8a3552ec7934
* lisp/indent.el (indent-according-to-mode): Apply syntax-propertize.
(indent-region): Use indent-according-to-mode.
* test/indent/octave.m: Remove one more `fixindent'. Use `end'.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sat, 18 Sep 2010 18:21:16 +0200 |
| parents | 0abc226eaa66 |
| children | a141021cb63f |
| files | lisp/ChangeLog lisp/indent.el test/ChangeLog test/indent/octave.m |
| diffstat | 4 files changed, 13 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Sep 18 17:50:06 2010 +0200 +++ b/lisp/ChangeLog Sat Sep 18 18:21:16 2010 +0200 @@ -1,3 +1,8 @@ +2010-09-18 Stefan Monnier <monnier@iro.umontreal.ca> + + * indent.el (indent-according-to-mode): Apply syntax-propertize. + (indent-region): Use indent-according-to-mode. + 2010-09-18 Eli Zaretskii <eliz@gnu.org> * fringe.el (fringe-mode): Doc fix.
--- a/lisp/indent.el Sat Sep 18 17:50:06 2010 +0200 +++ b/lisp/indent.el Sat Sep 18 18:21:16 2010 +0200 @@ -68,6 +68,7 @@ but the functions `indent-relative' and `indent-relative-maybe' are special; we don't actually use them here." (interactive) + (syntax-propertize (line-end-position)) (if (memq indent-line-function '(indent-relative indent-relative-maybe)) ;; These functions are used for tabbing, but can't be used for @@ -418,7 +419,7 @@ (goto-char start) (while (< (point) end) (or (and (bolp) (eolp)) - (funcall indent-line-function)) + (indent-according-to-mode)) (forward-line 1)) (move-marker end nil)))) (setq column (prefix-numeric-value column))
--- a/test/ChangeLog Sat Sep 18 17:50:06 2010 +0200 +++ b/test/ChangeLog Sat Sep 18 18:21:16 2010 +0200 @@ -1,3 +1,7 @@ +2010-09-18 Stefan Monnier <monnier@iro.umontreal.ca> + + * indent/octave.m: Remove one more `fixindent'. Use `end'. + 2010-09-10 Stefan Monnier <monnier@iro.umontreal.ca> * indent/octave.m: Remove some `fixindent' not needed any more.
--- a/test/indent/octave.m Sat Sep 18 17:50:06 2010 +0200 +++ b/test/indent/octave.m Sat Sep 18 18:21:16 2010 +0200 @@ -6,7 +6,7 @@ if nargin ~= 1 print_usage() - endif + end data = dlmread(fn, 3, 0); @@ -1412,7 +1412,7 @@ for i = 1:length (lst) nam = fullfile (packdir, "inst", lst(i).name); fwrite (instfid, extract_pkg (nam, ['^[#%][#%]* *' nm ': *(.*)$'])); - endfor # fixindent + endfor ## Search all C++ source files for PKG commands. lst = dir (fullfile (packdir, "src", "*.cc"));