summaryrefslogtreecommitdiff
path: root/lisp/gnus/score-mode.el
diff options
context:
space:
mode:
authorLars Ingebrigtsen <larsi@gnus.org>2021-02-15 13:43:27 +0100
committerLars Ingebrigtsen <larsi@gnus.org>2021-02-15 13:43:27 +0100
commit398811b7f67e2a27d31541e5200707911a3377ce (patch)
tree1a5fe09b7e0d117b4fbb53493080682480f5edaf /lisp/gnus/score-mode.el
parentb535c8ba8735409b43ec9b1ce99a966cfa1383b1 (diff)
downloademacs-398811b7f67e2a27d31541e5200707911a3377ce.tar.gz
emacs-398811b7f67e2a27d31541e5200707911a3377ce.tar.bz2
emacs-398811b7f67e2a27d31541e5200707911a3377ce.zip
Do `interactive' mode tagging in the remaining lisp/gnus files
Diffstat (limited to 'lisp/gnus/score-mode.el')
-rw-r--r--lisp/gnus/score-mode.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/gnus/score-mode.el b/lisp/gnus/score-mode.el
index d3ed3600ad9..51408618904 100644
--- a/lisp/gnus/score-mode.el
+++ b/lisp/gnus/score-mode.el
@@ -83,12 +83,12 @@ This mode is an extended emacs-lisp mode.
(defun gnus-score-edit-insert-date ()
"Insert date in numerical format."
- (interactive)
+ (interactive nil gnus-score-mode)
(princ (time-to-days nil) (current-buffer)))
(defun gnus-score-pretty-print ()
"Format the current score file."
- (interactive)
+ (interactive nil gnus-score-mode)
(goto-char (point-min))
(let ((form (read (current-buffer))))
(erase-buffer)
@@ -98,7 +98,7 @@ This mode is an extended emacs-lisp mode.
(defun gnus-score-edit-exit ()
"Stop editing the score file."
- (interactive)
+ (interactive nil gnus-score-mode)
(unless (file-exists-p (file-name-directory (buffer-file-name)))
(make-directory (file-name-directory (buffer-file-name)) t))
(let ((coding-system-for-write score-mode-coding-system))