[Emacs-diffs] trunk r114336: * lisp/help-mode.el (help-mode-finish): Use derived-mode-p.

[Stefan Monnier]

------------------------------------------------------------
revno: 114336
revision-id: address@hidden
parent: address@hidden
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Tue 2013-09-17 13:48:06 -0400
message:
  * lisp/help-mode.el (help-mode-finish): Use derived-mode-p.
  Remove obsolete highlighting.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/help-mode.el              
helpmode.el-20091113204419-o5vbwnq5f7feedwu-2249

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-09-17 17:47:01 +0000
+++ b/lisp/ChangeLog    2013-09-17 17:48:06 +0000
@@ -1,5 +1,8 @@
 2013-09-17  Stefan Monnier  <address@hidden>
 
+       * 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.

=== modified file 'lisp/help-mode.el'
--- a/lisp/help-mode.el 2013-08-10 15:17:29 +0000
+++ b/lisp/help-mode.el 2013-09-17 17:48:06 +0000
@@ -295,16 +295,8 @@
 
 ;;;###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