changeset 17655:8e35bb3ec2e2

(occur-mode): Add a mode-class property. (occur): Doc fix.
author Richard M. Stallman <rms@gnu.org>
date Mon, 05 May 1997 01:11:30 +0000
parents 9005c1013176
children 7b61d509af8a
files lisp/replace.el
diffstat 1 files changed, 5 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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