Mercurial > hg > xemacs-beta
diff lisp/modes/make-mode.el @ 70:131b0175ea99 r20-0b30
Import from CVS: tag r20-0b30
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:02:59 +0200 |
parents | 859a2309aef8 |
children | 1ce6082ce73f |
line wrap: on
line diff
--- a/lisp/modes/make-mode.el Mon Aug 13 09:00:04 2007 +0200 +++ b/lisp/modes/make-mode.el Mon Aug 13 09:02:59 2007 +0200 @@ -161,12 +161,6 @@ IMPORTANT: Please note that enabling this option causes makefile-mode to MODIFY A FILE WITHOUT YOUR CONFIRMATION when \'it seems necessary\'.") -;;; those suspicious line warnings are really annoying and -;;; seem to be generated for every makefile I've ever seen. -;;; add a simple mechanism to disable them. -gk -(defvar makefile-warn-suspicious-lines-p t - "In non-nil, warn about suspicious lines when saving the makefile") - (defvar makefile-browser-hook '()) ;; @@ -625,13 +619,7 @@ (makefile-pickup-macros) (if (bolp) (call-interactively 'makefile-insert-macro) - (self-insert-command arg) - ;; from here down is new -- if they inserted a macro without using - ;; the electric behavior, pick it up anyway -gk - (save-excursion - (beginning-of-line) - (if (looking-at makefile-macroassign-regex) - (makefile-add-this-line-macro))))) + (self-insert-command arg))) (defun makefile-insert-macro (macro-name) "Prepare definition of a new macro." @@ -731,9 +719,7 @@ (if (not makefile-need-macro-pickup) nil (setq makefile-need-macro-pickup nil) - ;; changed the nil in the next line to makefile-runtime-macros-list - ;; so you don't have to confirm on every runtime macro entered... -gk - (setq makefile-macro-table makefile-runtime-macros-list) + (setq makefile-macro-table nil) (save-excursion (goto-char (point-min)) (while (re-search-forward makefile-macroassign-regex (point-max) t) @@ -946,11 +932,12 @@ target makefile-target-colon)) (defun makefile-browser-format-macro-line (macro selected) + (format (concat (make-string makefile-browser-leftmost-column ?\ ) (if selected makefile-browser-selected-mark makefile-browser-unselected-mark) - (makefile-format-macro-ref macro))) + (makefile-format-macro-ref macro)))) (defun makefile-browser-fill (targets macros) (let ((inhibit-read-only t)) @@ -1107,9 +1094,7 @@ (setq makefile-browser-client (current-buffer)) (makefile-pickup-targets) (makefile-pickup-macros) - (makefile-browse makefile-target-table - ;; take out the runtime macros which were added for completion sake -gk - (set-difference makefile-macro-table makefile-runtime-macros-list))) + (makefile-browse makefile-target-table makefile-macro-table)) @@ -1235,8 +1220,7 @@ (defun makefile-warn-suspicious-lines () (let ((dont-save nil)) - (if (and (eq major-mode 'makefile-mode) - makefile-warn-suspicious-lines-p) ; -gk + (if (eq major-mode 'makefile-mode) (let ((suspicious (save-excursion (goto-char (point-min))