[elpa] externals/popper f9fef8192a 084/102: Fix popper-mode-line not respecting nil.

[ELPA Syncer]

branch: externals/popper
commit f9fef8192a7813903e73abeb46be58df16916e4c
Author: Karthik Chikmagalur <karthikchikmagalur@gmail.com>
Commit: Karthik Chikmagalur <karthikchikmagalur@gmail.com>

    Fix popper-mode-line not respecting nil.
---
 popper.el | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/popper.el b/popper.el
index 037ca420d3..43ff6bdd97 100644
--- a/popper.el
+++ b/popper.el
@@ -464,14 +464,15 @@ a popup buffer to open."
 
 (defun popper--modified-mode-line ()
   "Return modified mode-line string."
-  (if (and popper-mode-line (consp mode-line-format))
-      (if (member popper-mode-line mode-line-format)
-          mode-line-format
-        (append (cl-subseq (default-value 'mode-line-format) 0 
popper-mode-line-position)
-                (list popper-mode-line
-                      (nthcdr popper-mode-line-position
-                              (default-value 'mode-line-format)))))
-    mode-line-format))
+  (when popper-mode-line
+    (if (consp mode-line-format)
+        (if (member popper-mode-line mode-line-format)
+            mode-line-format
+          (append (cl-subseq (default-value 'mode-line-format) 0 
popper-mode-line-position)
+                  (list popper-mode-line
+                        (nthcdr popper-mode-line-position
+                                (default-value 'mode-line-format)))))
+      mode-line-format)))
 
 (defun popper--restore-mode-lines (win-buf-alist)
   "Restore the default value of `mode-line-format'.