procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(iwconfig-program-options): Doc fix.

Browse source 
(net-utils-run-program, run-network-program): Define as functions.
This commit is contained in:
Juanma Barranquero 2008-03-11 10:23:09 +00:00
parent ca34d75a59
commit 20f28123b3
2 changed files with 29 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

45
lisp/net/net-utils.el
View file

@ -116,7 +116,7 @@ These options can be used to limit how many ICMP packets are emitted."
:version "23.1")
(defcustom iwconfig-program-options nil
"Options for `iwconfig-program'."
"Options for the iwconfig program."
:group 'net-utils
:type '(repeat string)
:version "23.1")
@ -312,17 +312,17 @@ This variable is only used if the variable
(if moving (goto-char (process-mark process))))
(set-buffer old-buffer))))
(defmacro net-utils-run-program (name header program &rest args)
(defun net-utils-run-program (name header program args)
"Run a network information program."
` (let ((buf (get-buffer-create (concat "*" ,name "*"))))
(set-buffer buf)
(erase-buffer)
(insert ,header "\n")
(set-process-filter
(apply 'start-process ,name buf ,program ,@args)
'net-utils-remove-ctrl-m-filter)
(display-buffer buf)
buf))
(let ((buf (get-buffer-create (concat "*" name "*"))))
(set-buffer buf)
(erase-buffer)
(insert header "\n")
(set-process-filter
(apply 'start-process name buf program args)
'net-utils-remove-ctrl-m-filter)
(display-buffer buf)
buf))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Wrappers for external network programs
@ -616,27 +616,22 @@ If your system's ping continues until interrupted, you can try setting
"Alist of services and associated TCP port numbers.
This list is not complete.")
;; Workhorse macro
(defmacro run-network-program (process-name host port
&optional initial-string)
`(let ((tcp-connection)
(buf))
(setq buf (get-buffer-create (concat "*" ,process-name "*")))
;; Workhorse routine
(defun run-network-program (process-name host port &optional initial-string)
(let ((tcp-connection)
(buf))
(setq buf (get-buffer-create (concat "*" process-name "*")))
(set-buffer buf)
(or
(setq tcp-connection
(open-network-stream
,process-name
buf
,host
,port))
(error "Could not open connection to %s" ,host))
(open-network-stream process-name buf host port))
(error "Could not open connection to %s" host))
(erase-buffer)
(set-marker (process-mark tcp-connection) (point-min))
(set-process-filter tcp-connection 'net-utils-remove-ctrl-m-filter)
(and ,initial-string
(and initial-string
(process-send-string tcp-connection
(concat ,initial-string "\r\n")))
(concat initial-string "\r\n")))
(display-buffer buf)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;