From e956634f3abf0d645f6198c171ec123a9a09022f Mon Sep 17 00:00:00 2001 From: John Paul Wallington Date: Tue, 3 Jun 2008 19:39:24 +0000 Subject: [PATCH] (makefile-cleanup-continuations, makefile-warn-suspicious-lines): Use `derived-mode-p'. --- lisp/ChangeLog | 6 ++++++ lisp/progmodes/make-mode.el | 6 +++--- 2 files changed, 9 insertions(+), 3 deletions(-) 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) -- 2.11.4.GIT