Mercurial > emacs

changeset 111447:c4afb802863e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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 321fbae3e04d
files lisp/ChangeLog lisp/progmodes/meta-mode.el
diffstat 2 files changed, 6 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Mon Nov 08 23:47:01 2010 -0800
+++ b/lisp/ChangeLog	Tue Nov 09 00:00:46 2010 -0800
@@ -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):
--- 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))))