[Emacs-diffs] /srv/bzr/emacs/trunk r101479: * lisp/indent.el (indent-according-to-mode): Apply syntax-propertize.

[Stefan Monnier]

------------------------------------------------------------
revno: 101479
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Sat 2010-09-18 18:21:16 +0200
message:
  * 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'.
modified:
  lisp/ChangeLog
  lisp/indent.el
  test/ChangeLog
  test/indent/octave.m

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-09-18 09:38:52 +0000
+++ b/lisp/ChangeLog    2010-09-18 16:21:16 +0000
@@ -1,3 +1,8 @@
+2010-09-18  Stefan Monnier  <address@hidden>
+
+       * indent.el (indent-according-to-mode): Apply syntax-propertize.
+       (indent-region): Use indent-according-to-mode.
+
 2010-09-18  Eli Zaretskii  <address@hidden>
 
        * fringe.el (fringe-mode): Doc fix.

=== modified file 'lisp/indent.el'
--- a/lisp/indent.el    2010-08-29 16:17:13 +0000
+++ b/lisp/indent.el    2010-09-18 16:21:16 +0000
@@ -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))

=== modified file 'test/ChangeLog'
--- a/test/ChangeLog    2010-09-10 23:13:42 +0000
+++ b/test/ChangeLog    2010-09-18 16:21:16 +0000
@@ -1,3 +1,7 @@
+2010-09-18  Stefan Monnier  <address@hidden>
+
+       * indent/octave.m: Remove one more `fixindent'.  Use `end'.
+
 2010-09-10  Stefan Monnier  <address@hidden>
 
        * indent/octave.m: Remove some `fixindent' not needed any more.

=== modified file 'test/indent/octave.m'
--- a/test/indent/octave.m      2010-09-10 23:13:42 +0000
+++ b/test/indent/octave.m      2010-09-18 16:21:16 +0000
@@ -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"));