From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 17 Sep 2013 17:48:06 +0000 (-0400)
Subject: * lisp/help-mode.el (help-mode-finish): Use derived-mode-p.
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1573
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9c0ad4f7bde140c2d5f5c63df240d34d3f5f3fe6;p=emacs.git

* lisp/help-mode.el (help-mode-finish): Use derived-mode-p.
Remove obsolete highlighting.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 404e9bfa8a6..b028f1f67de 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2013-09-17  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* help-mode.el (help-mode-finish): Use derived-mode-p.
+	Remove obsolete highlighting.
+
 	* play/life.el (life-mode): Use define-derived-mode.  Derive from
 	special-mode.
 	(life): Let-bind inhibit-read-only.
diff --git a/lisp/help-mode.el b/lisp/help-mode.el
index 5553556e03c..ec60d05f1da 100644
--- a/lisp/help-mode.el
+++ b/lisp/help-mode.el
@@ -295,16 +295,8 @@ Commands:
 
 ;;;###autoload
 (defun help-mode-finish ()
-  (when (eq major-mode 'help-mode)
+  (when (derived-mode-p 'help-mode)
     (setq buffer-read-only t)
-    (save-excursion
-      (goto-char (point-min))
-      (let ((inhibit-read-only t))
-	(when (re-search-forward "^This [^[:space:]]+ is advised.$" nil t)
-	  (put-text-property (match-beginning 0)
-			     (match-end 0)
-			     'face 'font-lock-warning-face))))
-
     (help-make-xrefs (current-buffer))))
 
 ;; Grokking cross-reference information in doc strings and