Bump electric-pair-mode definition up a bit

diff --git a/lisp/elec-pair.el b/lisp/elec-pair.el
index 4093add536a22573299ea8c1a16973248f5bc26e..c5d5f66d2eed6f180905d1b02fa14354e0218f9e 100644 (file)
--- a/lisp/elec-pair.el
+++ b/lisp/elec-pair.el
@@ -260,6 +260,32 @@ inside a comment or string."
                (list ?\( (cdr direct) t string-or-comment)))
      (reverse (list ?\) (car reverse) t string-or-comment)))))
 
+;;;###autoload
+(define-minor-mode electric-pair-mode
+  "Toggle automatic parens pairing (Electric Pair mode)."
+  :group 'electricity
+  (if electric-pair-mode
+      (progn
+       (add-hook 'post-self-insert-hook
+                 #'electric-pair-post-self-insert-function
+                  50 t)
+        (add-hook 'post-self-insert-hook
+                 #'electric-pair-open-newline-between-pairs-psif
+                  50 t)
+       (add-hook 'self-insert-uses-region-functions
+                 #'electric-pair-will-use-region t))
+    (remove-hook 'post-self-insert-hook
+                 #'electric-pair-post-self-insert-function t)
+    (remove-hook 'post-self-insert-hook
+                 #'electric-pair-open-newline-between-pairs-psif t)
+    (remove-hook 'self-insert-uses-region-functions
+                 #'electric-pair-will-use-region t)))
+
+;;;###autoload
+(define-globalized-minor-mode global-electric-pair-mode
+  electric-pair-mode electric-pair-mode
+  :group 'electricity)
+
 (defun electric-pair--insert (char times)
   (let ((last-command-event char)
        (blink-matching-paren nil)
@@ -644,32 +670,6 @@ ARG and KILLP are passed directly to
     map)
   "Keymap used by `electric-pair-mode'.")
 
-;;;###autoload
-(define-minor-mode electric-pair-mode
-  "Toggle automatic parens pairing (Electric Pair mode)."
-  :group 'electricity
-  (if electric-pair-mode
-      (progn
-       (add-hook 'post-self-insert-hook
-                 #'electric-pair-post-self-insert-function
-                  50 t)
-        (add-hook 'post-self-insert-hook
-                 #'electric-pair-open-newline-between-pairs-psif
-                  50 t)
-       (add-hook 'self-insert-uses-region-functions
-                 #'electric-pair-will-use-region t))
-    (remove-hook 'post-self-insert-hook
-                 #'electric-pair-post-self-insert-function t)
-    (remove-hook 'post-self-insert-hook
-                 #'electric-pair-open-newline-between-pairs-psif t)
-    (remove-hook 'self-insert-uses-region-functions
-                 #'electric-pair-will-use-region t)))
-
-;;;###autoload
-(define-globalized-minor-mode global-electric-pair-mode
-  electric-pair-mode electric-pair-mode
-  :group 'electricity)
-
 (provide 'elec-pair)
 
 ;;; elec-pair.el ends here