[nongnu] elpa/typescript-mode e02a734151 058/222: Improve test-coverage.

[ELPA Syncer]

branch: elpa/typescript-mode
commit e02a73415108e5d368aa491982a01c1c6ba9b3f1
Author: Jostein Kjønigsen <jostein@kjonigsen.net>
Commit: Jostein Kjønigsen <jostein@kjonigsen.net>

    Improve test-coverage.
---
 typescript-mode-tests.el | 9 +++++++++
 typescript-mode.el       | 2 +-
 2 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/typescript-mode-tests.el b/typescript-mode-tests.el
index 6e135f8090..c7fa26fceb 100644
--- a/typescript-mode-tests.el
+++ b/typescript-mode-tests.el
@@ -106,6 +106,15 @@ a severity set to WARNING, no rule name."
     (insert "大塚愛")
     (should (equal 3 (typescript-current-column)))))
 
+(ert-deftest correctly-accounts-wide-chars-as-1-char-without-sideeffects ()
+  "Otsuka Ai and other multi-char users should be a happy to write typescript."
+
+  (with-temp-buffer
+    (insert "大塚愛")
+    (let ((pos1 (typescript-current-column))
+          (pos2 (typescript-current-column)))
+      (should (equal pos1 pos2)))))
+
 (provide 'typescript-mode-tests)
 
 ;;; typescript-mode-tests.el ends here
diff --git a/typescript-mode.el b/typescript-mode.el
index d6988ff87a..07466125db 100644
--- a/typescript-mode.el
+++ b/typescript-mode.el
@@ -1799,7 +1799,7 @@ nil."
   "Unicode aware version of `CURRENT-COLUMN' which correctly accounts for wide 
characters."
 
   (save-excursion
-    (let* ((end (point)))
+    (let ((end (point)))
       (move-beginning-of-line nil)
       (- end (point)))))