emacs-elpa-diffs
[Top][All Lists]
Advanced

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

[elpa] master 146b161 25/36: Don't indent empty lines in snippet expansi


From: Noam Postavsky
Subject: [elpa] master 146b161 25/36: Don't indent empty lines in snippet expansion
Date: Sat, 11 Jun 2016 19:21:11 +0000 (UTC)

branch: master
commit 146b161112b68c99ecd607ec5360accc1f4db3cd
Author: Noam Postavsky <address@hidden>
Commit: Noam Postavsky <address@hidden>

    Don't indent empty lines in snippet expansion
    
    * yasnippet.el (yas--indent-region): Indent only non-empty lines.
    * yasnippet-tests.el (basic-indentation): Add empy and non-empty (but
    blank) lines in test snippet.
---
 yasnippet-tests.el |    6 +++++-
 yasnippet.el       |    3 ++-
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/yasnippet-tests.el b/yasnippet-tests.el
index 828d71a..8ba4632 100644
--- a/yasnippet-tests.el
+++ b/yasnippet-tests.el
@@ -200,9 +200,13 @@
     (set (make-local-variable 'yas-indent-line) 'auto)
     (set (make-local-variable 'yas-also-auto-indent-first-line) t)
     (yas-expand-snippet "def ${1:method}${2:(${3:args})}\n$0\nend")
+    ;; Note that empty line is not indented.
+    (should (string= "def method(args)
+
+end" (buffer-string)))
     (cl-loop repeat 3 do (ert-simulate-command '(yas-next-field)))
     (yas-mock-insert (make-string (random 5) ?\ )) ; purposedly mess up 
indentation
-    (yas-expand-snippet "class << ${self}\n$0\nend")
+    (yas-expand-snippet "class << ${self}\n  $0\nend")
     (ert-simulate-command '(yas-next-field))
     (should (string= "def method(args)
   class << self
diff --git a/yasnippet.el b/yasnippet.el
index 5aa53c6..2da3062 100644
--- a/yasnippet.el
+++ b/yasnippet.el
@@ -3918,7 +3918,8 @@ The SNIPPET's markers are preserved."
       (goto-char from)
       (save-restriction
         (widen)
-        (cl-loop do
+        ;; Indent each non-empty line.
+        (cl-loop if (/= (line-beginning-position) (line-end-position)) do
                  (back-to-indentation)
                  (let ((trouble-markers ; The markers at (point).
                         (cl-remove (point) snippet-markers :test #'/=)))



reply via email to

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