procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/progmodes/meta-mode.el: (meta-indent-line): Simplify.

Browse source
This commit is contained in:
Glenn Morris 2010-11-09 00:00:46 -08:00
parent 3406534cab
commit e814121e1b
2 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
lisp/ChangeLog
View file

@ -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):

11
lisp/progmodes/meta-mode.el
View file

@ -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))))