aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/replace.el
diff options
context:
space:
mode:
authorRichard M. Stallman <[email protected]>1997-05-05 01:11:30 +0000
committerRichard M. Stallman <[email protected]>1997-05-05 01:11:30 +0000
commitde3c9b09b43bce4ff656cf6ca289619d5df8de56 (patch)
tree9ae1d1877406e43ecf13705428b886549d49585b /lisp/replace.el
parent4510b9025112c9a239eabaece61fbafd7de118f6 (diff)
(occur-mode): Add a mode-class property.
(occur): Doc fix.
Diffstat (limited to 'lisp/replace.el')
-rw-r--r--lisp/replace.el8
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/replace.el b/lisp/replace.el
index 30109b87ba..d1acbc6309 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -252,6 +252,8 @@ Applies to lines after point."
(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 @@ Interactively it is the prefix arg.
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