# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 862794690 0
# Node ID 8e35bb3ec2e254c6f00ef20a1cec10056403be4b
# Parent  9005c10131763cdd5c3a94d844498650b1b6ebbc
(occur-mode): Add a mode-class property.

(occur): Doc fix.

diff -r 9005c1013176 -r 8e35bb3ec2e2 lisp/replace.el
--- a/lisp/replace.el	Mon May 05 01:10:01 1997 +0000
+++ b/lisp/replace.el	Mon May 05 01:11:30 1997 +0000
@@ -252,6 +252,8 @@
 (defvar occur-command-arguments nil
   "Arguments that were given to `occur' when it made this buffer.")
 
+(put 'occur-mode 'mode-class 'special)
+
 (defun occur-mode ()
   "Major mode for output from \\[occur].
 \\<occur-mode-map>Move point to one of the items in this buffer, then use
@@ -348,10 +350,10 @@
 
 The lines are shown in a buffer named `*Occur*'.
 It serves as a menu to find any of the occurrences in this buffer.
-\\[describe-mode] in that buffer will explain how.
+\\<occur-mode-map>\\[describe-mode] in that buffer will explain how.
 
-If REGEXP contains upper case characters (excluding those preceded by
-\\), the matching is case-sensitive."
+If REGEXP contains upper case characters (excluding those preceded by `\\'),
+the matching is case-sensitive."
   (interactive
    (list (let* ((default (car regexp-history))
 		(input