[nongnu] elpa/page-break-lines a294b61364 30/80: Swap section order to avoid byte compilation warning

[ELPA Syncer]

branch: elpa/page-break-lines
commit a294b61364b15f52a6ef315501e852b70964130f
Author: Steve Purcell <steve@sanityinc.com>
Commit: Steve Purcell <steve@sanityinc.com>

    Swap section order to avoid byte compilation warning
---
 page-break-lines.el | 46 +++++++++++++++++++++++-----------------------
 1 file changed, 23 insertions(+), 23 deletions(-)

diff --git a/page-break-lines.el b/page-break-lines.el
index af948a0566..3d2943ff56 100644
--- a/page-break-lines.el
+++ b/page-break-lines.el
@@ -83,29 +83,6 @@ displayed as a junk character."
 
 
 
-(defun page-break-lines--update-display-table (window)
-  "Modify a display-table that displays page-breaks prettily.
-If the buffer inside WINDOW has `page-break-lines-mode' enabled,
-its display table will be modified as necessary."
-  (with-current-buffer (window-buffer window)
-    (if page-break-lines-mode
-        (let ((width (- (window-width window) 1)))
-          (unless buffer-display-table
-            (setq buffer-display-table (make-display-table)))
-          (aset buffer-display-table ?\^L
-                (vconcat (mapcar (lambda (c)
-                                   (make-glyph-code c 'page-break-lines))
-                                 (make-list width
-                                            page-break-lines-char)))))
-      (when buffer-display-table
-        (aset buffer-display-table ?\^L nil)))))
-
-(defun page-break-lines--update-display-tables  ()
-  "Function called for updating display table."
-  (mapc 'page-break-lines--update-display-table (window-list nil 
'no-minibuffer)))
-
-
-
 ;;;###autoload
 (define-minor-mode page-break-lines-mode
   "Toggle Page Break Lines mode.
@@ -132,6 +109,29 @@ horizontal line of `page-break-string-char' characters."
 
 
 
+(defun page-break-lines--update-display-table (window)
+  "Modify a display-table that displays page-breaks prettily.
+If the buffer inside WINDOW has `page-break-lines-mode' enabled,
+its display table will be modified as necessary."
+  (with-current-buffer (window-buffer window)
+    (if page-break-lines-mode
+        (let ((width (- (window-width window) 1)))
+          (unless buffer-display-table
+            (setq buffer-display-table (make-display-table)))
+          (aset buffer-display-table ?\^L
+                (vconcat (mapcar (lambda (c)
+                                   (make-glyph-code c 'page-break-lines))
+                                 (make-list width
+                                            page-break-lines-char)))))
+      (when buffer-display-table
+        (aset buffer-display-table ?\^L nil)))))
+
+(defun page-break-lines--update-display-tables  ()
+  "Function called for updating display table."
+  (mapc 'page-break-lines--update-display-table (window-list nil 
'no-minibuffer)))
+
+
+
 ;;;###autoload
 (defun page-break-lines-mode-maybe ()
   "Enable `page-break-lines-mode' in the current buffer if desired.