changeset 54014:6296b1d1ae51

* 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.

--- 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 ()

--- 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.

--- 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  "))