diff options
Diffstat (limited to 'modeline.el')
-rw-r--r-- | modeline.el | 28 |
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 |