# HG changeset patch # User John Paul Wallington # Date 1212521676 0 # Node ID 29370595f9cc0fa7fddea0830d1cf8881d42cc41 # Parent 0f9033e19d1831f254f1d00cde9a1cf30969567b (makefile-cleanup-continuations, makefile-warn-suspicious-lines): Use `derived-mode-p'. diff -r 0f9033e19d18 -r 29370595f9cc lisp/progmodes/make-mode.el --- a/lisp/progmodes/make-mode.el Tue Jun 03 16:09:01 2008 +0000 +++ b/lisp/progmodes/make-mode.el Tue Jun 03 19:34:36 2008 +0000 @@ -1688,7 +1688,7 @@ ;;; ------------------------------------------------------------ (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 @@ (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 @@ (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)