comparison lisp/indent.el @ 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'.

110416:0abc226eaa66

  "Indent line in proper way for current major mode.
The buffer-local variable `indent-line-function' determines how to do this,
but the functions `indent-relative' and `indent-relative-maybe' are
special; we don't actually use them here."
  (interactive)
  (if (memq indent-line-function
	    '(indent-relative indent-relative-maybe))
      ;; These functions are used for tabbing, but can't be used for
      ;; indenting.  Replace with something ad-hoc.
      (let ((column (save-excursion

	  (save-excursion
	    (setq end (copy-marker end))
	    (goto-char start)
	    (while (< (point) end)
	      (or (and (bolp) (eolp))
		  (funcall indent-line-function))
	      (forward-line 1))
	    (move-marker end nil))))
    (setq column (prefix-numeric-value column))
    (save-excursion
      (goto-char end)

110417:8a3552ec7934

  "Indent line in proper way for current major mode.
The buffer-local variable `indent-line-function' determines how to do this,
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
      ;; indenting.  Replace with something ad-hoc.
      (let ((column (save-excursion

	  (save-excursion
	    (setq end (copy-marker end))
	    (goto-char start)
	    (while (< (point) end)
	      (or (and (bolp) (eolp))
		  (indent-according-to-mode))
	      (forward-line 1))
	    (move-marker end nil))))
    (setq column (prefix-numeric-value column))
    (save-excursion
      (goto-char end)