summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1997-05-05 01:11:30 +0000
committerRichard M. Stallman <rms@gnu.org>1997-05-05 01:11:30 +0000
commitc851eedc82ef414eac8303b43963e28042a0ffbc (patch)
treeb264a9aa81e64b9d0ce3f37b2c4b02dd2e914a1a
parent59cb77af0397ae3be8d123bd7c7888bfec2a6646 (diff)
downloademacs-c851eedc82ef414eac8303b43963e28042a0ffbc.tar.gz
(occur-mode): Add a mode-class property.
(occur): Doc fix.
-rw-r--r--lisp/replace.el8
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/replace.el b/lisp/replace.el
index 30109b87ba7..d1acbc6309b 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