branch: master
commit f77237c65f6e466f45f0319ef9ae2c3d2d70d619
Author: Ian D <du...@gnu.org>
Commit: Ian D <du...@gnu.org>
(enwc-format-mode-line-string): Checks to confirm that scan data exists.
---
lisp/enwc.el | 9 ++++++---
1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/lisp/enwc.el b/lisp/enwc.el
index 872e70a..6b94115 100644
--- a/lisp/enwc.el
+++ b/lisp/enwc.el
@@ -465,7 +465,8 @@ See the documentation for it for more details."
((eq (elt f (1- p)) ?s)
(cond
((enwc-is-wired-p) "100")
- ((not (enwc-is-valid-nw-id cur-id)) "0")
+ ((or (not (enwc-is-valid-nw-id cur-id))
+ (not enwc-last-scan))"0")
((enwc-check-connecting-p) "*")
(t (number-to-string
(cdr (assoc "quality" (nth cur-id enwc-last-scan)))))))
@@ -473,13 +474,15 @@ See the documentation for it for more details."
(cond
((enwc-is-wired-p) "Wired")
((or (not (enwc-is-valid-nw-id cur-id))
- (enwc-check-connecting-p)) "None")
+ (enwc-check-connecting-p)
+ (not enwc-last-scan)) "None")
(t (cdr (assoc "essid" (nth cur-id enwc-last-scan))))))
((eq (elt f (1- p)) ?b)
(cond
((enwc-is-wired-p) "wired")
((or (not (enwc-is-valid-nw-id cur-id))
- (enwc-check-connecting-p)) "none")
+ (enwc-check-connecting-p)
+ (not enwc-last-scan)) "none")
(t (cdr (assoc "bssid" (nth cur-id enwc-last-scan))))))
((eq (elt f (1- p)) ?%) "%"))))))
fin-str))
