diff options
| author | Glenn Morris <rgm@gnu.org> | 2010-11-09 00:00:46 -0800 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2010-11-09 00:00:46 -0800 |
| commit | e814121e1b2f8ef864d695ecb00512be7591fbb4 (patch) | |
| tree | 3f251040c8d1a4490fca1857539c4b28efa942c3 /lisp | |
| parent | 3406534cab44e5433ed13231c8a55da9da58d100 (diff) | |
| download | emacs-e814121e1b2f8ef864d695ecb00512be7591fbb4.tar.gz | |
* lisp/progmodes/meta-mode.el: (meta-indent-line): Simplify.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 1 | ||||
| -rw-r--r-- | lisp/progmodes/meta-mode.el | 11 |
2 files changed, 6 insertions, 6 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 16beffe989e..33d50961912 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,6 +1,7 @@ 2010-11-09 Glenn Morris <rgm@gnu.org> * progmodes/meta-mode.el: Remove leading `*' from defcustom docs. + (meta-indent-line): Simplify. * vc/emerge.el (emerge-line-number-in-buf): * textmodes/ispell.el (ispell-region): diff --git a/lisp/progmodes/meta-mode.el b/lisp/progmodes/meta-mode.el index d40e0d77ef3..294c75c9ccf 100644 --- a/lisp/progmodes/meta-mode.el +++ b/lisp/progmodes/meta-mode.el @@ -575,12 +575,11 @@ If the list was changed, sort the list and remove duplicates first." "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)))) |