mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

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

Browse Source 
(makefile-warn-continuations): New function.
(makefile-mode): Put it on write-file-functions.
This commit is contained in:
Richard M. Stallman 2002-10-26 22:49:12 +00:00
parent 90a29c8337
commit a11e28000a
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/progmodes/make-mode.el
View File

@ -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)))))))))
;;; ------------------------------------------------------------