[elpa] externals/rnc-mode 7364fab 3/4: Fix indentation in rnc-mode

[Stefan Monnier]

branch: externals/rnc-mode
commit 7364fab033c49ce58fe73e5d7c8d8050fe153626
Author: Ivan Andrus <darthandrus@gmail.com>
Commit: Ivan Andrus <darthandrus@gmail.com>

    Fix indentation in rnc-mode
    
    * rnc-mode.el (rnc-smie-forward-token,rnc-smie-backward-token):
    Only move one character for a punctuation token.
---
 rnc-mode.el | 16 +++++++++++++---
 1 file changed, 13 insertions(+), 3 deletions(-)

diff --git a/rnc-mode.el b/rnc-mode.el
index 9a08b5e..30f3c39 100644
--- a/rnc-mode.el
+++ b/rnc-mode.el
@@ -4,7 +4,7 @@
 
 ;; Author: Stefan Monnier <monnier@iro.umontreal.ca>
 ;; Keywords: xml relaxng
-;; Version: 0.1
+;; Version: 0.2
 
 ;; This file is part of GNU Emacs.
 
@@ -106,7 +106,12 @@
                (forward-comment -1)
                (= (point) start)))
         " ; "
-      (smie-default-forward-token))))
+      (if (looking-at "\\s.")
+         (buffer-substring-no-properties
+          (point)
+          (progn (forward-char 1)
+                 (point)))
+       (smie-default-forward-token)))))
 
 (defun rnc-smie-backward-token ()
   (let ((start (point)))
@@ -118,7 +123,12 @@
                    (looking-at "\\(?:\\s_\\|\\sw\\)+[ \t\n]*[|&]?=")
                  (goto-char pos))))
         " ; "
-      (smie-default-backward-token))))
+      (if (looking-back "\\s." (1- (point)))
+         (buffer-substring-no-properties
+          (point)
+          (progn (forward-char -1)
+                 (point)))
+       (smie-default-backward-token)))))
 
 (defun rnc-smie-rules (kind token)
   (pcase (cons kind token)