(rcirc-send-input): No longer check whether the

process is open, since not all commands need an open process.
(rcirc-send-string): Check whether the process is open before
sending anything.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 298899e3365facaedd51f0ccb8aab61e261d637a..f6e01b030a1776541cd68c0cbc6556719a208837 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2006-01-07  Alex Schroeder  <alex@gnu.org>
+
+       * net/rcirc.el (rcirc-send-input): No longer check whether the
+       process is open, since not all commands need an open process.
+       (rcirc-send-string): Check whether the process is open before
+       sending anything.
+
 2006-01-06  David Reitter  <david.reitter@gmail.com>
 
        * mail/emacsbug.el (report-emacs-bug): Let explanations correctly

diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index 93476a0997eff42d7a7fee6f6a782f8573cae42a..ed507860dc76aaed7d131bf1aa31dc4fe2490cda 100644 (file)
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -434,6 +434,9 @@ Function is called with PROCESS COMMAND SENDER ARGS and LINE.")
   (let ((string (concat (encode-coding-string string
                                               buffer-file-coding-system)
                         "\n")))
+    (unless (eq (process-status rcirc-process) 'open)
+      (error "Network connection to %s is not open"
+             (process-name rcirc-process)))
     (rcirc-debug process string)
     (process-send-string process string)))
 
@@ -734,62 +737,59 @@ Create the buffer if it doesn't exist."
 (defun rcirc-send-input ()
   "Send input to target associated with the current buffer."
   (interactive)
-  (if (not (eq (process-status rcirc-process) 'open))
-      (error "Network connection to %s is not open"
-             (process-name rcirc-process))
-    (if (< (point) rcirc-prompt-end-marker)
-        ;; copy the line down to the input area
-        (progn
-          (forward-line 0)
-          (let ((start (if (eq (point) (point-min))
-                           (point)
-                         (if (get-text-property (1- (point)) 'hard)
-                             (point)
-                           (previous-single-property-change (point) 'hard))))
-                (end (next-single-property-change (1+ (point)) 'hard)))
-            (goto-char (point-max))
-            (insert (replace-regexp-in-string
-                     "\n\\s-+" " "
-                     (buffer-substring-no-properties start end)))))
-      ;; process input
-      (goto-char (point-max))
-      (let ((target (rcirc-buffer-target))
-            (start rcirc-prompt-end-marker))
-        (when (not (equal 0 (- (point) start)))
-          ;; delete a trailing newline
-          (when (eq (point) (point-at-bol))
-            (delete-backward-char 1))
-          (let ((input (buffer-substring-no-properties
-                        rcirc-prompt-end-marker (point))))
-            ;; process a /cmd
-            (if (string-match "^/\\([^ ]+\\) ?\\(.*\\)$" input)
-                (let* ((command (match-string 1 input))
-                       (fun (intern-soft (concat "rcirc-cmd-" command)))
-                       (args (match-string 2 input)))
-                  (newline)
-                  (with-current-buffer (current-buffer)
-                    (delete-region rcirc-prompt-end-marker (point))
-                    (if (string= command "me")
-                        (rcirc-print rcirc-process (rcirc-nick rcirc-process)
-                                     "ACTION" (current-buffer) args)
-                      (rcirc-print rcirc-process (rcirc-nick rcirc-process)
-                                   "COMMAND" (current-buffer) input))
-                    (set-marker rcirc-prompt-end-marker (point))
-                    (if (fboundp fun)
-                        (funcall fun args rcirc-process target)
-                      (rcirc-send-string rcirc-process
-                                        (concat command " " args)))))
-              ;; send message to server
-              (if (not rcirc-target)
-                  (message "Not joined")
-                (delete-region rcirc-prompt-end-marker (point))
-                (mapc (lambda (message)
-                        (rcirc-send-message rcirc-process target message))
-                      (split-string input "\n"))))
-            ;; add to input-ring
-            (save-excursion
-              (ring-insert rcirc-input-ring input)
-              (setq rcirc-input-ring-index 0))))))))
+  (if (< (point) rcirc-prompt-end-marker)
+      ;; copy the line down to the input area
+      (progn
+       (forward-line 0)
+       (let ((start (if (eq (point) (point-min))
+                        (point)
+                      (if (get-text-property (1- (point)) 'hard)
+                          (point)
+                        (previous-single-property-change (point) 'hard))))
+             (end (next-single-property-change (1+ (point)) 'hard)))
+         (goto-char (point-max))
+         (insert (replace-regexp-in-string
+                  "\n\\s-+" " "
+                  (buffer-substring-no-properties start end)))))
+    ;; process input
+    (goto-char (point-max))
+    (let ((target (rcirc-buffer-target))
+         (start rcirc-prompt-end-marker))
+      (when (not (equal 0 (- (point) start)))
+       ;; delete a trailing newline
+       (when (eq (point) (point-at-bol))
+         (delete-backward-char 1))
+       (let ((input (buffer-substring-no-properties
+                     rcirc-prompt-end-marker (point))))
+         ;; process a /cmd
+         (if (string-match "^/\\([^ ]+\\) ?\\(.*\\)$" input)
+             (let* ((command (match-string 1 input))
+                    (fun (intern-soft (concat "rcirc-cmd-" command)))
+                    (args (match-string 2 input)))
+               (newline)
+               (with-current-buffer (current-buffer)
+                 (delete-region rcirc-prompt-end-marker (point))
+                 (if (string= command "me")
+                     (rcirc-print rcirc-process (rcirc-nick rcirc-process)
+                                  "ACTION" (current-buffer) args)
+                   (rcirc-print rcirc-process (rcirc-nick rcirc-process)
+                                "COMMAND" (current-buffer) input))
+                 (set-marker rcirc-prompt-end-marker (point))
+                 (if (fboundp fun)
+                     (funcall fun args rcirc-process target)
+                   (rcirc-send-string rcirc-process
+                                      (concat command " " args)))))
+           ;; send message to server
+           (if (not rcirc-target)
+               (message "Not joined")
+             (delete-region rcirc-prompt-end-marker (point))
+             (mapc (lambda (message)
+                     (rcirc-send-message rcirc-process target message))
+                   (split-string input "\n"))))
+         ;; add to input-ring
+         (save-excursion
+           (ring-insert rcirc-input-ring input)
+           (setq rcirc-input-ring-index 0)))))))
 
 (defvar rcirc-parent-buffer nil)
 (defvar rcirc-window-configuration nil)