From fe54cf0b1fbdffebc674c795182dc703d056dbd8 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Mon, 10 Jan 2022 00:55:16 +0100 Subject: [PATCH] Do interactive mode tagging for edit-abbrevs-mode * lisp/abbrev.el (edit-abbrevs-redefine) (abbrev-edit-save-to-file, abbrev-edit-save-buffer): Interactive mode tagging for edit-abbrevs-mode. (edit-abbrevs-mode): Make non-interactive. --- lisp/abbrev.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/abbrev.el b/lisp/abbrev.el index 448e1842558..515c046ce5f 100644 --- a/lisp/abbrev.el +++ b/lisp/abbrev.el @@ -168,7 +168,7 @@ or may be omitted (it is usually omitted)." (defun edit-abbrevs-redefine () "Redefine abbrevs according to current buffer contents." - (interactive) + (interactive nil edit-abbrevs-mode) (save-restriction (widen) (define-abbrevs t) @@ -269,7 +269,8 @@ have been saved." (list (read-file-name "Save abbrevs to file: " (file-name-directory (expand-file-name abbrev-file-name)) - abbrev-file-name))) + abbrev-file-name)) + edit-abbrevs-mode) (edit-abbrevs-redefine) (write-abbrev-file file t)) @@ -277,7 +278,7 @@ have been saved." "Save all user-level abbrev definitions in current buffer. The saved abbrevs are written to the file specified by `abbrev-file-name'." - (interactive) + (interactive nil edit-abbrevs-mode) (abbrev-edit-save-to-file abbrev-file-name)) @@ -1188,7 +1189,8 @@ SORTFUN is passed to `sort' to change the default ordering." (define-derived-mode edit-abbrevs-mode fundamental-mode "Edit-Abbrevs" "Major mode for editing the list of abbrev definitions. This mode is for editing abbrevs in a buffer prepared by `edit-abbrevs', -which see.") +which see." + :interactive nil) (provide 'abbrev) -- 2.39.2