From: John Paul Wallington Date: Tue, 3 Jun 2008 19:39:24 +0000 (+0000) Subject: (makefile-cleanup-continuations, makefile-warn-suspicious-lines): X-Git-Tag: emacs-pretest-23.0.90~5127 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e956634f3abf0d645f6198c171ec123a9a09022f;p=emacs.git (makefile-cleanup-continuations, makefile-warn-suspicious-lines): Use `derived-mode-p'. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 60eb38d2613..1cdfc807853 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2008-06-03 John Paul Wallington + + * progmodes/make-mode.el (makefile-cleanup-continuations) + (makefile-warn-suspicious-lines, makefile-warn-continuations): + Use `derived-mode-p'. + 2008-06-03 Stefan Monnier * Makefile.in (update-elclist): Impose a fixed collation for sorting. diff --git a/lisp/progmodes/make-mode.el b/lisp/progmodes/make-mode.el index c3ba2bf19c0..0d83f66701d 100644 --- a/lisp/progmodes/make-mode.el +++ b/lisp/progmodes/make-mode.el @@ -1688,7 +1688,7 @@ and generates the overview, one line per target name." ;;; ------------------------------------------------------------ (defun makefile-cleanup-continuations () - (if (eq major-mode 'makefile-mode) + (if (derived-mode-p 'makefile-mode) (if (and makefile-cleanup-continuations (not buffer-read-only)) (save-excursion @@ -1703,7 +1703,7 @@ and generates the overview, one line per target name." (defun makefile-warn-suspicious-lines () ;; Returning non-nil cancels the save operation - (if (eq major-mode 'makefile-mode) + (if (derived-mode-p 'makefile-mode) (save-excursion (goto-char (point-min)) (if (re-search-forward "^\\(\t+$\\| +\t\\)" nil t) @@ -1712,7 +1712,7 @@ and generates the overview, one line per target name." (count-lines (point-min) (point))))))))) (defun makefile-warn-continuations () - (if (eq major-mode 'makefile-mode) + (if (derived-mode-p 'makefile-mode) (save-excursion (goto-char (point-min)) (if (re-search-forward "\\\\[ \t]+$" nil t)