mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-18 18:05:07 +00:00
Code Issues Releases Activity

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

Browse Source 
process is open, since not all commands need an open process.
(rcirc-send-string): Check whether the process is open before
sending anything.
This commit is contained in:
Alex Schroeder 2006-01-07 02:29:14 +00:00
parent 53dab082e3
commit 53f831f3cb
2 changed files with 63 additions and 56 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ChangeLog
View File

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

112
lisp/net/rcirc.el
View File

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