mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-29 09:43:56 -07:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
Remove obsolete highlighting.
This commit is contained in:
Stefan Monnier 2013-09-17 13:48:06 -04:00
parent 7a806dfb9e
commit 9c0ad4f7bd
2 changed files with 4 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -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.

10
lisp/help-mode.el
View file

@ -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