From: Ted Zlatanov <tzz@lifelogs.com>
Date: Wed, 10 Jul 2013 14:34:13 +0000 (-0400)
Subject: * progmodes/cfengine.el: Do not indent inside continued strings.
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1857
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c7a4d3688ebdee56857af83ab86ab5f2a4065aa6;p=emacs.git

* progmodes/cfengine.el: Do not indent inside continued strings.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 91ce836617c..c159daa161d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-07-10  Teodor Zlatanov  <tzz@lifelogs.com>
+
+	* progmodes/cfengine.el (cfengine3-indent-line): Do not indent
+	inside continued strings.
+
 2013-07-10  Paul Eggert  <eggert@cs.ucla.edu>
 
 	Timestamp fixes for undo (Bug#14824).
diff --git a/lisp/progmodes/cfengine.el b/lisp/progmodes/cfengine.el
index 55d5b8b0be7..85a9074760d 100644
--- a/lisp/progmodes/cfengine.el
+++ b/lisp/progmodes/cfengine.el
@@ -387,10 +387,10 @@ Intended as the value of `indent-line-function'."
                               (skip-chars-forward " \t")
                               (current-column)))
           (error nil)))
-       ;; Inside a string and it starts before this line.
+       ;; Inside a string and it starts before this line: do nothing.
        ((and (nth 3 parse)
              (< (nth 8 parse) (save-excursion (beginning-of-line) (point))))
-        (indent-line-to 0))
+        )
 
        ;; Inside a defun, but not a nested list (depth is 1).  This is
        ;; a promise, usually.