Constantly growing

A lot of improvements.

1 files changed, 15 insertions, 13 deletions

diff --git a/modeline.el b/modeline.el
index 12893ea..6def3e3 100644
--- a/modeline.el
+++ b/modeline.el
@@ -327,19 +327,21 @@ W is the width, H is the height of the bar."
   "The position of the cursor to be displayed in the mode line."
   (cond
    ((derived-mode-p 'pdf-view-mode)
-    (modeline-propertize
-     (propertize
-      (let ((current (pdf-view-current-page))
-            (total (pdf-info-number-of-pages)))
-        (concat
-         "P."
-         (number-to-string current)
-         "/"
-         (number-to-string total)))
-      'face (cond
-             ((modeline-active-window-p) 'mode-line)
-             (t 'mode-line-inactive)))
-     nil "Current page / Total pages"))
+    (concat
+     (modeline-propertize
+      (propertize
+       (let* ((current (pdf-view-current-page))
+              (total (pdf-info-number-of-pages))
+              )
+         (concat
+          "P."
+          (number-to-string current)
+          "/"
+          (number-to-string total)))
+       'face (cond
+              ((modeline-active-window-p) 'mode-line)
+              (t 'mode-line-inactive)))
+      nil "Current page / Total pages")))
    (t
     (modeline-propertize
      (propertize