From: Eli Zaretskii <eliz@is.elta.co.il>
Date: Mon, 16 Feb 2004 19:35:20 +0000 (+0000)
Subject: * net/telnet.el (telnet-interrupt-subjob): Move doc string to the correct place.
X-Git-Tag: ttn-vms-21-2-B4~7578
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=279dffd67603744c98614b2cb906a1fc7a5008f6;p=emacs.git

* 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 fac8960830e..1889f41cf4a 100644
--- 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 d4c6d6a37a3..dac6f228cd6 100644
--- 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 eef93826367..694eea1285c 100644
--- 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)))))
 
 (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 0c5d969105f..f7595e24cb5 100644
--- 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  "))