(makefile-cleanup-continuations): Default for variable is nil.

(makefile-warn-continuations): New function.
(makefile-mode): Put it on write-file-functions.

diff --git a/lisp/progmodes/make-mode.el b/lisp/progmodes/make-mode.el
index ad635c0c3e404e2f391a56c015cfb1c81721cadf..1a53455f534bc14826c2c454cf7be060f039bd77 100644 (file)
--- a/lisp/progmodes/make-mode.el
+++ b/lisp/progmodes/make-mode.el
@@ -192,7 +192,7 @@ Otherwise filenames are omitted."
   :type 'boolean
   :group 'makefile)
 
-(defcustom makefile-cleanup-continuations t
+(defcustom makefile-cleanup-continuations nil
   "*If non-nil, automatically clean up continuation lines when saving.
 A line is cleaned up by removing all whitespace following a trailing
 backslash.  This is done silently.
@@ -567,6 +567,8 @@ Makefile mode can be configured by modifying the following variables:
   (kill-all-local-variables)
   (add-hook 'write-file-functions
            'makefile-warn-suspicious-lines nil t)
+  (add-hook 'write-file-functions
+           'makefile-warn-continuations nil t)
   (add-hook 'write-file-functions
            'makefile-cleanup-continuations nil t)
   (make-local-variable 'makefile-target-table)
@@ -1384,9 +1386,17 @@ and generates the overview, one line per target name."
        (goto-char (point-min))
        (if (re-search-forward "^\\(\t+$\\| +\t\\)" nil t)
            (not (y-or-n-p
-                 (format "Suspicious line %d. Save anyway "
+                 (format "Suspicious line %d. Save anyway? "
+                         (count-lines (point-min) (point)))))))))
+
+(defun makefile-warn-continuations ()
+  (if (eq major-mode 'makefile-mode)
+      (save-excursion
+       (goto-char (point-min))
+       (if (re-search-forward "\\\\[ \t]+$")
+           (not (y-or-n-p
+                 (format "Suspicious continuation in line %d. Save anyway? "
                          (count-lines (point-min) (point)))))))))
-         
 \f
 
 ;;; ------------------------------------------------------------