# HG changeset patch
# User Eli Zaretskii <eliz@is.elta.co.il>
# Date 1076960065 0
# Node ID 6296b1d1ae5105677e4299d2157b5c134515d5db
# Parent  9a41bfd38de962a8cd8e7e6c3416fc5e39da5b8c
* 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 -r 9a41bfd38de9 -r 6296b1d1ae51 lisp/net/telnet.el
--- a/lisp/net/telnet.el	Mon Feb 16 19:29:00 2004 +0000
+++ b/lisp/net/telnet.el	Mon Feb 16 19:34:25 2004 +0000
@@ -89,8 +89,8 @@
 rejecting one login and prompting again for a username and password.")
 
 (defun telnet-interrupt-subjob ()
+  "Interrupt the program running through telnet on the remote host."
   (interactive)
-  "Interrupt the program running through telnet on the remote host."
   (send-string nil telnet-interrupt-string))
 
 (defun telnet-c-z ()
diff -r 9a41bfd38de9 -r 6296b1d1ae51 lisp/progmodes/icon.el
--- a/lisp/progmodes/icon.el	Mon Feb 16 19:29:00 2004 +0000
+++ b/lisp/progmodes/icon.el	Mon Feb 16 19:34:25 2004 +0000
@@ -243,7 +243,6 @@
       (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 @@
 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 -r 9a41bfd38de9 -r 6296b1d1ae51 lisp/textmodes/paragraphs.el
--- a/lisp/textmodes/paragraphs.el	Mon Feb 16 19:29:00 2004 +0000
+++ b/lisp/textmodes/paragraphs.el	Mon Feb 16 19:34:25 2004 +0000
@@ -430,9 +430,9 @@
     (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  "))