From 4e4f4519641946ee0b36836646fb339cbafad182 Mon Sep 17 00:00:00 2001 From: Jackson Ray Hamilton Date: Wed, 25 Feb 2015 01:56:49 -0800 Subject: [PATCH] * lisp/textmodes/sgml-mode.el (sgml-calculate-indent): Fix indent. Previously, SGML attributes were always indented one additional space past `sgml-basic-offset'. This fixes that. --- lisp/ChangeLog | 5 +++++ lisp/textmodes/sgml-mode.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index fc2893e..17717e0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2015-02-25 Jackson Ray Hamilton + + * lisp/textmodes/sgml-mode.el (sgml-calculate-indent): Fix + attribute indentation. + 2015-02-25 Stefan Monnier * emacs-lisp/edebug.el (edebug--display): Save-excursion (bug#19611). diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el index 12d98c8..887c70d 100644 --- a/lisp/textmodes/sgml-mode.el +++ b/lisp/textmodes/sgml-mode.el @@ -1510,13 +1510,13 @@ LCON is the lexical context, if any." (`pi nil) (`tag - (goto-char (1+ (cdr lcon))) + (goto-char (cdr lcon)) (skip-chars-forward "^ \t\n") ;Skip tag name. (skip-chars-forward " \t") (if (not (eolp)) (current-column) ;; This is the first attribute: indent. - (goto-char (1+ (cdr lcon))) + (goto-char (cdr lcon)) (+ (current-column) sgml-basic-offset))) (`text -- 1.9.1