mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-13 16:38:14 +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 :type 'boolean
:group 'makefile) :group 'makefile)
(defcustom makefile-cleanup-continuations t (defcustom makefile-cleanup-continuations nil
"*If non-nil, automatically clean up continuation lines when saving. "*If non-nil, automatically clean up continuation lines when saving.
A line is cleaned up by removing all whitespace following a trailing A line is cleaned up by removing all whitespace following a trailing
backslash. This is done silently. backslash. This is done silently.
@ -567,6 +567,8 @@ Makefile mode can be configured by modifying the following variables:
(kill-all-local-variables) (kill-all-local-variables)
(add-hook 'write-file-functions (add-hook 'write-file-functions
'makefile-warn-suspicious-lines nil t) 'makefile-warn-suspicious-lines nil t)
(add-hook 'write-file-functions
'makefile-warn-continuations nil t)
(add-hook 'write-file-functions (add-hook 'write-file-functions
'makefile-cleanup-continuations nil t) 'makefile-cleanup-continuations nil t)
(make-local-variable 'makefile-target-table) (make-local-variable 'makefile-target-table)
@ -1384,9 +1386,17 @@ and generates the overview, one line per target name."
(goto-char (point-min)) (goto-char (point-min))
(if (re-search-forward "^\\(\t+$\\| +\t\\)" nil t) (if (re-search-forward "^\\(\t+$\\| +\t\\)" nil t)
(not (y-or-n-p (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))))))))) (count-lines (point-min) (point)))))))))
;;; ------------------------------------------------------------ ;;; ------------------------------------------------------------