diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-09-17 13:48:06 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-09-17 13:48:06 -0400 |
| commit | 9c0ad4f7bde140c2d5f5c63df240d34d3f5f3fe6 (patch) | |
| tree | 00ff6b1c964951983988bcfc988d3ecc6149e65a | |
| parent | 7a806dfb9e99888d2a625afa2a8ed2c154dbbdf0 (diff) | |
| download | emacs-9c0ad4f7bde140c2d5f5c63df240d34d3f5f3fe6.tar.gz | |
* lisp/help-mode.el (help-mode-finish): Use derived-mode-p.
Remove obsolete highlighting.
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/help-mode.el | 10 |
2 files changed, 4 insertions, 9 deletions
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 |