From: Michael Albinus <michael.albinus@gmx.de>
To: Ian D <dunni@gnu.org>
Cc: emacs-devel@gnu.org
Subject: Re: Network Manager
Date: Sat, 15 Dec 2012 17:08:22 +0100 [thread overview]
Message-ID: <87k3sjgux5.fsf@gmx.de> (raw)
In-Reply-To: <87y5h0enrf.fsf@gnu.org> (Ian D.'s message of "Fri, 14 Dec 2012 09:01:24 -0500")
Ian D <dunni@gnu.org> writes:
> 2. The documentation I've been using for NetworkManager is
> for version 0.9.6.4, and in the NEWS file (and before anyone
> asks, I already checked the ChangeLog in the source I have)
> in the source code, I found that they indeed added
> RequestScan to NetworkManager in version 0.9.6. The specific
> entry is "* Add on-demand WiFi scan support". I will see
> what if there is anything I can do about this, although it
> seems like there isn't much. However, 0.9.6 is the next
> version after 0.9.4, so I assume that the update will find
> its way to other distros soon.
On another machine, running NetworkManager 0.9.6.0, I get
--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (wrong-type-argument integerp "/org/freedesktop/NetworkManager/AccessPoint/141")
nth("/org/freedesktop/NetworkManager/AccessPoint/141" ("/org/freedesktop/NetworkManager/AccessPoint/141" "/org/freedesktop/NetworkManager/AccessPoint/1"))
(let ((ap (nth id enwc-access-points)) ret) (setq ret (dbus-get-property :system enwc-nm-dbus-service ap enwc-nm-dbus-accesspoint-interface prop)) (if (= prop "Frequency") (setq ret (1+ (/ (- ret 2412) 5)))) ret)
enwc-nm-get-wireless-network-property("/org/freedesktop/NetworkManager/AccessPoint/141" "Ssid")
funcall(enwc-nm-get-wireless-network-property "/org/freedesktop/NetworkManager/AccessPoint/141" "Ssid")
enwc-get-wireless-nw-prop("/org/freedesktop/NetworkManager/AccessPoint/141" "Ssid")
(let* ((cur-item (enwc-get-wireless-nw-prop x det)) (ident (enwc-detail-to-ident det)) pos-len) (if (string= ident "essid") (progn (setq pos-len (length cur-item)) (setq enwc-essid-width (max enwc-essid-width pos-len)))) (setq ret-itm (append ret-itm (cons (cons ident cur-item) nil))))
(while --dolist-tail-- (setq det (car --dolist-tail--)) (let* ((cur-item (enwc-get-wireless-nw-prop x det)) (ident (enwc-detail-to-ident det)) pos-len) (if (string= ident "essid") (progn (setq pos-len (length cur-item)) (setq enwc-essid-width (max enwc-essid-width pos-len)))) (setq ret-itm (append ret-itm (cons (cons ident cur-item) nil)))) (setq --dolist-tail-- (cdr --dolist-tail--)))
(let ((--dolist-tail-- enwc-details-list) det) (while --dolist-tail-- (setq det (car --dolist-tail--)) (let* ((cur-item (enwc-get-wireless-nw-prop x det)) (ident (enwc-detail-to-ident det)) pos-len) (if (string= ident "essid") (progn (setq pos-len (length cur-item)) (setq enwc-essid-width (max enwc-essid-width pos-len)))) (setq ret-itm (append ret-itm (cons (cons ident cur-item) nil)))) (setq --dolist-tail-- (cdr --dolist-tail--))))
(progn (let ((--dolist-tail-- enwc-details-list) det) (while --dolist-tail-- (setq det (car --dolist-tail--)) (let* ((cur-item (enwc-get-wireless-nw-prop x det)) (ident (enwc-detail-to-ident det)) pos-len) (if (string= ident "essid") (progn (setq pos-len (length cur-item)) (setq enwc-essid-width (max enwc-essid-width pos-len)))) (setq ret-itm (append ret-itm (cons (cons ident cur-item) nil)))) (setq --dolist-tail-- (cdr --dolist-tail--)))))
(let ((ret-itm (cons (cons "id" cur-id) nil))) (setq cur-id (1+ cur-id)) (progn (let ((--dolist-tail-- enwc-details-list) det) (while --dolist-tail-- (setq det (car --dolist-tail--)) (let* ((cur-item (enwc-get-wireless-nw-prop x det)) (ident (enwc-detail-to-ident det)) pos-len) (if (string= ident "essid") (progn (setq pos-len ...) (setq enwc-essid-width ...))) (setq ret-itm (append ret-itm (cons ... nil)))) (setq --dolist-tail-- (cdr --dolist-tail--))))) ret-itm)
(lambda (x) (let ((ret-itm (cons (cons "id" cur-id) nil))) (setq cur-id (1+ cur-id)) (progn (let ((--dolist-tail-- enwc-details-list) det) (while --dolist-tail-- (setq det (car --dolist-tail--)) (let* ((cur-item ...) (ident ...) pos-len) (if (string= ident "essid") (progn ... ...)) (setq ret-itm (append ret-itm ...))) (setq --dolist-tail-- (cdr --dolist-tail--))))) ret-itm))("/org/freedesktop/NetworkManager/AccessPoint/141")
mapcar((lambda (x) (let ((ret-itm (cons (cons "id" cur-id) nil))) (setq cur-id (1+ cur-id)) (progn (let ((--dolist-tail-- enwc-details-list) det) (while --dolist-tail-- (setq det (car --dolist-tail--)) (let* ((cur-item ...) (ident ...) pos-len) (if (string= ident "essid") (progn ... ...)) (setq ret-itm (append ret-itm ...))) (setq --dolist-tail-- (cdr --dolist-tail--))))) ret-itm)) ("/org/freedesktop/NetworkManager/AccessPoint/141" "/org/freedesktop/NetworkManager/AccessPoint/1"))
(let* ((scan-ret (enwc-do-scan)) (enwc-access-points (enwc-get-nw)) (cur-id 0) networks) (message "Scanning... Done") (setq enwc-essid-width 5) (mapcar (function (lambda (x) (let ((ret-itm (cons ... nil))) (setq cur-id (1+ cur-id)) (progn (let (... det) (while --dolist-tail-- ... ... ...))) ret-itm))) enwc-access-points))
enwc-scan-internal-wireless()
(if enwc-using-wired (enwc-scan-internal-wired) (enwc-scan-internal-wireless))
enwc-scan-internal()
(setq enwc-last-scan (enwc-scan-internal))
enwc-scan()
enwc()
call-interactively(enwc record nil)
command-execute(enwc record)
execute-extended-command(nil "enwc")
call-interactively(execute-extended-command nil nil)
--8<---------------cut here---------------end--------------->8---
> Ian D
Best regards, Michael.
next prev parent reply other threads:[~2012-12-15 16:08 UTC|newest]
Thread overview: 24+ messages / expand[flat|nested] mbox.gz Atom feed top
2012-12-14 14:01 Network Manager Ian D
2012-12-14 14:29 ` Michael Albinus
2012-12-15 16:08 ` Michael Albinus [this message]
-- strict thread matches above, loose matches on Subject: below --
2013-01-21 18:45 Ian D
2013-01-22 18:24 ` Stefan Monnier
2013-01-22 18:32 ` Ian D
2012-12-17 12:39 Ian D
2012-12-14 16:25 Ian D
2012-12-16 9:07 ` Michael Albinus
2012-12-13 22:56 Ian D
2012-12-14 8:31 ` Bastien
2012-12-14 8:55 ` Michael Albinus
2012-12-14 9:33 ` Bastien
2012-12-13 21:38 Ian D
2012-12-13 21:47 ` Bastien
2012-12-13 21:58 ` Ian D
2012-12-13 22:19 ` Bastien
2012-12-18 17:45 ` Christian Lynbech
2012-12-13 21:51 ` Ian Bryant
2012-12-13 22:22 ` Xue Fuqiao
2012-12-14 8:21 ` Michael Albinus
2012-12-14 13:45 ` Ian D
2012-12-14 23:11 ` Stefan Monnier
2012-12-14 15:23 ` Richard Stallman
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87k3sjgux5.fsf@gmx.de \
--to=michael.albinus@gmx.de \
--cc=dunni@gnu.org \
--cc=emacs-devel@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.