From b617673c98fea9961d648d8215c92baf8098313a Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Thu, 23 Feb 2012 02:55:30 +0200 Subject: [PATCH] * lisp/replace.el (occur-menu-map): Add menu item for `occur-edit-mode'. --- lisp/ChangeLog | 2 ++ lisp/replace.el | 3 +++ 2 files changed, 5 insertions(+) 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 * 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 -- 2.39.2