* net/telnet.el (telnet-interrupt-subjob): Move doc string to the correct place.

* progmodes/icon.el (icon-indent-command): Ditto.
* textmodes/paragraphs.el (repunctuate-sentences): Ditto.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fac8960830e101c680728d172d0535d14ed8791b..1889f41cf4a6a31499d320e9ba996d9676eff260 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2004-02-16  Matt Hodges  <matt@stchem.bham.ac.uk>  (tiny change)
+
+       * net/telnet.el (telnet-interrupt-subjob): Move doc string to the
+       correct place.
+       * progmodes/icon.el (icon-indent-command): Ditto.
+       * textmodes/paragraphs.el (repunctuate-sentences): Ditto.
+
 2004-02-16  Eli Zaretskii  <eliz@elta.co.il>
 
        * progmodes/grep.el (grep-compute-defaults): Undo change from

diff --git a/lisp/net/telnet.el b/lisp/net/telnet.el
index d4c6d6a37a3b279fc94dbf78613e7349195b6b98..dac6f228cd629eb764948458231b0307543d252b 100644 (file)
--- a/lisp/net/telnet.el
+++ b/lisp/net/telnet.el
@@ -89,8 +89,8 @@ Should be set to the number of terminal writes telnet will make
 rejecting one login and prompting again for a username and password.")
 
 (defun telnet-interrupt-subjob ()
-  (interactive)
   "Interrupt the program running through telnet on the remote host."
+  (interactive)
   (send-string nil telnet-interrupt-string))
 
 (defun telnet-c-z ()

diff --git a/lisp/progmodes/icon.el b/lisp/progmodes/icon.el
index eef9382636778c50bbb456c746b2b0619ba1c467..694eea1285c078fd14d89b502c30b430280e56b9 100644 (file)
--- a/lisp/progmodes/icon.el
+++ b/lisp/progmodes/icon.el
@@ -243,7 +243,6 @@ with no args, if that value is non-nil."
       (self-insert-command (prefix-numeric-value arg)))))
 \f
 (defun icon-indent-command (&optional whole-exp)
-  (interactive "P")
   "Indent current line as Icon code, or in some cases insert a tab character.
 If `icon-tab-always-indent' is non-nil (the default), always indent current
 line.  Otherwise, indent the current line only if point is at the left margin
@@ -253,6 +252,7 @@ A numeric argument, regardless of its value, means indent rigidly all the
 lines of the expression starting after point so that this line becomes
 properly indented.  The relative indentation among the lines of the
 expression are preserved."
+  (interactive "P")
   (if whole-exp
       ;; If arg, always indent this line as Icon
       ;; and shift remaining lines of expression the same amount.

diff --git a/lisp/textmodes/paragraphs.el b/lisp/textmodes/paragraphs.el
index 0c5d969105f8815f02a34cd37a67899eb352abf7..f7595e24cb5c8395b5167bdb9d3703c45fa912f4 100644 (file)
--- a/lisp/textmodes/paragraphs.el
+++ b/lisp/textmodes/paragraphs.el
@@ -430,9 +430,9 @@ sentences.  Also, every paragraph boundary terminates sentences as well."
     (constrain-to-field nil opoint t)))
 
 (defun repunctuate-sentences ()
-  (interactive)
   "Put two spaces at the end of sentences from point to the end of buffer.
 It works using `query-replace-regexp'."
+  (interactive)
   (query-replace-regexp "\\([]\"')]?\\)\\([.?!]\\)\\([]\"')]?\\) +"
                        "\\1\\2\\3  "))