Mercurial > emacs
changeset 111460:ca911a71a6c8
net-utils system-type trivia.
* lisp/net/net-utils.el (net-utils-remove-ctl-m): Use memq for system-types.
(ping-program-options): Remove non-existent `linux' system-type.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 09 Nov 2010 20:13:21 -0800 |
| parents | c62a6dd970b9 |
| children | 2b266010d0b7 |
| files | lisp/ChangeLog lisp/net/net-utils.el |
| diffstat | 2 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Nov 09 20:11:08 2010 -0800 +++ b/lisp/ChangeLog Tue Nov 09 20:13:21 2010 -0800 @@ -1,5 +1,8 @@ 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. * textmodes/remember.el (remember-time-to-seconds): Remove.
--- a/lisp/net/net-utils.el Tue Nov 09 20:11:08 2010 -0800 +++ b/lisp/net/net-utils.el Tue Nov 09 20:13:21 2010 -0800 @@ -55,8 +55,7 @@ :group 'comm :version "20.3") -(defcustom net-utils-remove-ctl-m - (member system-type (list 'windows-nt 'msdos)) +(defcustom net-utils-remove-ctl-m (memq system-type '(windows-nt msdos)) "If non-nil, remove control-Ms from output." :group 'net-utils :type 'boolean) @@ -82,7 +81,7 @@ ;; On GNU/Linux and Irix, the system's ping program seems to send packets ;; indefinitely unless told otherwise (defcustom ping-program-options - (and (memq system-type (list 'linux 'gnu/linux 'irix)) + (and (memq system-type '(gnu/linux irix)) (list "-c" "4")) "Options for the ping program. These options can be used to limit how many ICMP packets are emitted." @@ -889,5 +888,4 @@ (provide 'net-utils) -;; arch-tag: 97119e91-9edb-4376-838b-bf7058fa1314 ;;; net-utils.el ends here