# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 974550855 0
# Node ID f8f722137584671a8e50dab22e49e0631a0f6ea8
# Parent  1df24dca89313a4f71234eade9bbf6a8dc87cddd
(mode-line-modified): Fix a typo.
(mode-line-toggle-modified, mode-line-widen)
(mode-line-abbrev-mode, mode-line-auto-fill-mode): Fix typos.

diff -r 1df24dca8931 -r f8f722137584 lisp/bindings.el
--- a/lisp/bindings.el	Sat Nov 18 01:58:42 2000 +0000
+++ b/lisp/bindings.el	Sat Nov 18 12:34:15 2000 +0000
@@ -67,7 +67,7 @@
 
 (defun mode-line-toggle-modified (event)
   "Toggle the buffer-modified flag from the mode-line."
-  (interacive "e")
+  (interactive "e")
   (save-selected-window
     (select-window (posn-window (event-start event)))
     (set-buffer-modified-p (not (buffer-modified-p)))
@@ -76,7 +76,7 @@
 
 (defun mode-line-widen (event)
   "Widen a buffer from the mode-line."
-  (interacive "e")
+  (interactive "e")
   (save-selected-window
     (select-window (posn-window (event-start event)))
     (widen)
@@ -85,7 +85,7 @@
 
 (defun mode-line-abbrev-mode (event)
   "Turn off `abbrev-mode' from the mode-line."
-  (interacive "e")
+  (interactive "e")
   (save-selected-window
     (select-window (posn-window (event-start event)))
     (abbrev-mode)
@@ -94,7 +94,7 @@
 
 (defun mode-line-auto-fill-mode (event)
   "Turn off `auto-fill-mode' from the mode-line."
-  (interacive "e")
+  (interactive "e")
   (save-selected-window
     (select-window (posn-window (event-start event)))
     (auto-fill-mode)
@@ -183,7 +183,7 @@
 					      "R"
 					    "Not r")))))
 	 'local-map (purecopy (make-mode-line-mouse2-map
-			       #'mode-linetoggle-read-only)))
+			       #'mode-line-toggle-read-only)))
 	(propertize
 	 "%1+"
 	 'help-echo  (purecopy (lambda (window object point)