From: Juri Linkov <juri@jurta.org>
Date: Thu, 23 Feb 2012 00:55:30 +0000 (+0200)
Subject: * lisp/replace.el (occur-menu-map): Add menu item for `occur-edit-mode'.
X-Git-Tag: emacs-pretest-24.0.94~64
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b617673c98fea9961d648d8215c92baf8098313a;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d69231fd806..f2ebeee8abe 100644
--- 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 cb6d7d21e77..349e63d4201 100644
--- 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