fix indent
authorIan Kelling <iank@fsf.org>
Wed, 1 Jul 2026 11:42:02 +0000 (07:42 -0400)
committerIan Kelling <iank@fsf.org>
Wed, 1 Jul 2026 11:42:02 +0000 (07:42 -0400)
early-init.el

index b7d7700a2a4eca1018667c8427d3a28982936c42..6512b85b3cd9caea1405fe5aac92d00a6b29d149 100644 (file)
           ;; iank: this is the default function plus this line. because I'm not going
           ;; to fix third party packages.
           (when (or (bufferp source) (not (string-match-p "/elpa/" source)))
-          (condition-case nil
-              (display-warning
-               `(files missing-lexbind-cookie
-                       ,(if (bufferp source) 'eval-buffer source))
-               (format-message "Missing `lexical-binding' cookie in %S.
+            (condition-case nil
+                (display-warning
+                 `(files missing-lexbind-cookie
+                         ,(if (bufferp source) 'eval-buffer source))
+                 (format-message "Missing `lexical-binding' cookie in %S.
 You can add one with `M-x %s RET'.
 See `%s' and `%s'
 for more information."
-                               source
-                               (buttonize "elisp-enable-lexical-binding"
-                                          (lambda (_)
-                                            (pop-to-buffer
-                                             (if (bufferp source) source
-                                               (find-file-noselect source)))
-                                            (call-interactively
-                                             #'elisp-enable-lexical-binding))
-                                          nil "mouse-2: Add cookie")
-                               (funcall mib "(elisp)Selecting Lisp Dialect")
-                               (funcall mib "(elisp)Converting to Lexical Binding"))
-               :warning)
-            ;; In various corner-case situations, `display-warning' may
-            ;; fail (e.g. not yet defined, or can't be (auto)loaded),
-            ;; so use a simple fallback that won't get in the way.
-            (error
-             ;; But not if this particular warning is disabled.
-             (unless (equal warning-inhibit-types
-                            '((files missing-lexbind-cookie)))
-               (message "Missing `lexical-binding' cookie in %S" source)))))))
+                                 source
+                                 (buttonize "elisp-enable-lexical-binding"
+                                            (lambda (_)
+                                              (pop-to-buffer
+                                               (if (bufferp source) source
+                                                 (find-file-noselect source)))
+                                              (call-interactively
+                                               #'elisp-enable-lexical-binding))
+                                            nil "mouse-2: Add cookie")
+                                 (funcall mib "(elisp)Selecting Lisp Dialect")
+                                 (funcall mib "(elisp)Converting to Lexical Binding"))
+                 :warning)
+              ;; In various corner-case situations, `display-warning' may
+              ;; fail (e.g. not yet defined, or can't be (auto)loaded),
+              ;; so use a simple fallback that won't get in the way.
+              (error
+               ;; But not if this particular warning is disabled.
+               (unless (equal warning-inhibit-types
+                              '((files missing-lexbind-cookie)))
+                 (message "Missing `lexical-binding' cookie in %S" source)))))))
     (default-toplevel-value 'lexical-binding)))