* lisp/replace.el (occur-menu-map): Add menu item for `occur-edit-mode'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d69231fd8064a3d29d98990cda0f35615fd5a4a1..f2ebeee8abe3dd74d30b28d1d2641a7b90d90545 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,8 @@
        * isearch.el (isearch-occur): Sync interactive spec with occur's
        new feature in `occur-read-primary-args'.  Doc fix.  (Bug#10705)
 
+       * replace.el (occur-menu-map): Add menu item for `occur-edit-mode'.
+
 2012-02-22  Juri Linkov  <juri@jurta.org>
 
        * international/mule-cmds.el (read-char-by-name): Use \` and \'.

diff --git a/lisp/replace.el b/lisp/replace.el
index cb6d7d21e77a99ea0e32c5b46e7d2ce847aac0c9..349e63d4201bdee5ac848a78692f09dcd0f7c747 100644 (file)
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -786,6 +786,9 @@ a previously found match."
     (define-key map [occur-rename-buffer]
       `(menu-item ,(purecopy "Rename Occur Buffer") occur-rename-buffer
                  :help ,(purecopy "Rename the current *Occur* buffer to *Occur: original-buffer-name*.")))
+    (define-key map [occur-edit-buffer]
+      `(menu-item ,(purecopy "Edit Occur Buffer") occur-edit-mode
+                 :help ,(purecopy "Edit the *Occur* buffer and apply changes to the original buffers.")))
     (define-key map [separator-2] menu-bar-separator)
     (define-key map [occur-mode-goto-occurrence-other-window]
       `(menu-item ,(purecopy "Go To Occurrence Other Window") occur-mode-goto-occurrence-other-window