emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[PATCH] Fix for bug 6622, nxml-mode Indentation Behavior


From: Geoff Gole
Subject: [PATCH] Fix for bug 6622, nxml-mode Indentation Behavior
Date: Tue, 13 Jul 2010 10:09:36 +0800

Typing a / in nxml-mode is supposed to indent the current line.
Setting nxml-slash-auto-complete-flag incorrectly prevents that from
happening. A patch is below.

*** /usr/local/share/emacs/23.2/lisp/nxml/nxml-mode.el.gz
--- /tmp/buffer-content-33187GX
*************** on the line, reindent the line."
*** 1212,1218 ****
                           (eq (point) (1- slash-pos)))))
      (self-insert-command (prefix-numeric-value arg))
      (unless arg
!       (if nxml-slash-auto-complete-flag
          (if end-tag-p
              (condition-case err
                  (let ((start-tag-end
--- 1212,1218 ----
                           (eq (point) (1- slash-pos)))))
      (self-insert-command (prefix-numeric-value arg))
      (unless arg
!       (when nxml-slash-auto-complete-flag
          (if end-tag-p
              (condition-case err
                  (let ((start-tag-end
*************** on the line, reindent the line."
*** 1232,1240 ****
                (nxml-scan-error nil))
            (when (and (eq (nxml-token-before) (point))
                       (eq xmltok-type 'partial-empty-element))
!             (insert ">")))
        (when (and end-tag-p at-indentation)
!         (nxml-indent-line))))))

  (defun nxml-balanced-close-start-tag-block ()
    "Close the start-tag before point with `>' and insert a balancing end-tag.
--- 1232,1240 ----
                (nxml-scan-error nil))
            (when (and (eq (nxml-token-before) (point))
                       (eq xmltok-type 'partial-empty-element))
!             (insert ">"))))
        (when (and end-tag-p at-indentation)
!         (nxml-indent-line)))))

  (defun nxml-balanced-close-start-tag-block ()
    "Close the start-tag before point with `>' and insert a balancing end-tag.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]