Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-06-14 12:31:25 +00:00
Code Issues Projects Releases Packages Wiki Activity

Save and restore original local keymap in grep-edit-mode

Browse source 
* lisp/progmodes/grep.el (grep-edit-original-mode-map): New
variable.
(grep-change-to-grep-edit-mode): Save the current local map
before switching to grep-edit-mode-map.
(grep-edit-save-changes): Restore the saved local map instead of
assuming grep-mode-map (bug#81090).

Copyright-paperwork-exempt: yes
This commit is contained in:
Zhengyi Fu 2026-05-21 22:08:39 +08:00 committed by Sean Whitton
parent 4d87d203cf
commit 7cee526a8c
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/progmodes/grep.el
View file

@ -1120,6 +1120,8 @@ list is empty)."
(defvar grep-edit-mode-hook nil (defvar grep-edit-mode-hook nil
"Hooks run when changing to Grep-Edit mode.") "Hooks run when changing to Grep-Edit mode.")
(defvar grep-edit-original-mode-map nil)
(defun grep-edit-mode () (defun grep-edit-mode ()
"Major mode for editing *grep* buffers. "Major mode for editing *grep* buffers.
In this mode, changes to the *grep* buffer are applied to the In this mode, changes to the *grep* buffer are applied to the
@ -1140,6 +1142,7 @@ The only editable texts in a Grep-Edit buffer are the match results."
(error "Not a Grep buffer")) (error "Not a Grep buffer"))
(when (get-buffer-process (current-buffer)) (when (get-buffer-process (current-buffer))
(error "Cannot switch when grep is running")) (error "Cannot switch when grep is running"))
(setq-local grep-edit-original-mode-map (current-local-map))
(use-local-map grep-edit-mode-map) (use-local-map grep-edit-mode-map)
(grep-edit--prepare-buffer) (grep-edit--prepare-buffer)
(setq buffer-read-only nil) (setq buffer-read-only nil)
@ -1159,7 +1162,7 @@ The only editable texts in a Grep-Edit buffer are the match results."
(unless (derived-mode-p 'grep-edit-mode) (unless (derived-mode-p 'grep-edit-mode)
(error "Not a Grep-Edit buffer")) (error "Not a Grep-Edit buffer"))
(remove-hook 'after-change-functions #'occur-after-change-function t) (remove-hook 'after-change-functions #'occur-after-change-function t)
(use-local-map grep-mode-map) (use-local-map grep-edit-original-mode-map)
(setq buffer-read-only t) (setq buffer-read-only t)
(setq major-mode 'grep-mode) (setq major-mode 'grep-mode)
(setq mode-name "Grep") (setq mode-name "Grep")