Mercurial > emacs
diff lisp/progmodes/meta-mode.el @ 111447:c4afb802863e
* lisp/progmodes/meta-mode.el: (meta-indent-line): Simplify.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Tue, 09 Nov 2010 00:00:46 -0800 |
parents | ad9b9822ca68 |
children | b47e85affa59 |
line wrap: on
line diff
--- a/lisp/progmodes/meta-mode.el Mon Nov 08 23:47:01 2010 -0800 +++ b/lisp/progmodes/meta-mode.el Tue Nov 09 00:00:46 2010 -0800 @@ -575,12 +575,11 @@ "Indent the line containing point as Metafont or MetaPost source." (interactive) (let ((indent (meta-indent-calculate))) - (save-excursion - (if (/= (current-indentation) indent) - (let ((beg (line-beginning-position)) - (end (progn (back-to-indentation) (point)))) - (delete-region beg end) - (indent-to indent)))) + (if (/= (current-indentation) indent) + (save-excursion + (delete-region (line-beginning-position) + (progn (back-to-indentation) (point))) + (indent-to indent))) (if (< (current-column) indent) (back-to-indentation))))