From de3c9b09b43bce4ff656cf6ca289619d5df8de56 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 5 May 1997 01:11:30 +0000 Subject: [PATCH] (occur-mode): Add a mode-class property. (occur): Doc fix. --- lisp/replace.el | 8 +++++--- 1 file 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]. \\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. +\\\\[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 -- 2.39.5