mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Do interactive mode tagging for edit-abbrevs-mode

Browse source 
* 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.
This commit is contained in:
Stefan Kangas 2022-01-10 00:55:16 +01:00
parent dc1ee5b502
commit fe54cf0b1f
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/abbrev.el
View file

@ -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)