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

net-utils system-type trivia.

Browse source 
* lisp/net/net-utils.el (net-utils-remove-ctl-m): Use memq for system-types.
(ping-program-options): Remove non-existent `linux' system-type.
This commit is contained in:
Glenn Morris 2010-11-09 20:13:21 -08:00
parent 9228bbd345
commit 17731c39b2
2 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,5 +1,8 @@
2010-11-10 Glenn Morris <rgm@gnu.org> 2010-11-10 Glenn Morris <rgm@gnu.org>
* net/net-utils.el (net-utils-remove-ctl-m): Use memq for system-types.
(ping-program-options): Remove non-existent `linux' system-type.
* startup.el (package-initialize): Update declaration. * startup.el (package-initialize): Update declaration.
* textmodes/remember.el (remember-time-to-seconds): Remove. * textmodes/remember.el (remember-time-to-seconds): Remove.

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

@ -55,8 +55,7 @@
:group 'comm :group 'comm
:version "20.3") :version "20.3")
(defcustom net-utils-remove-ctl-m (defcustom net-utils-remove-ctl-m (memq system-type '(windows-nt msdos))
(member system-type (list 'windows-nt 'msdos))
"If non-nil, remove control-Ms from output." "If non-nil, remove control-Ms from output."
:group 'net-utils :group 'net-utils
:type 'boolean) :type 'boolean)
@ -82,7 +81,7 @@
;; On GNU/Linux and Irix, the system's ping program seems to send packets ;; On GNU/Linux and Irix, the system's ping program seems to send packets
;; indefinitely unless told otherwise ;; indefinitely unless told otherwise
(defcustom ping-program-options (defcustom ping-program-options
(and (memq system-type (list 'linux 'gnu/linux 'irix)) (and (memq system-type '(gnu/linux irix))
(list "-c" "4")) (list "-c" "4"))
"Options for the ping program. "Options for the ping program.
These options can be used to limit how many ICMP packets are emitted." These options can be used to limit how many ICMP packets are emitted."
@ -889,5 +888,4 @@ from SEARCH-STRING. With argument, prompt for whois server."
(provide 'net-utils) (provide 'net-utils)
;; arch-tag: 97119e91-9edb-4376-838b-bf7058fa1314
;;; net-utils.el ends here ;;; net-utils.el ends here