lisp/files.el (internal--get-default-lexical-binding): Buttonize the M-x

(cherry picked from commit 19257efbf712dc026572a88b46d456d0c4b8c365)

diff --git a/lisp/files.el b/lisp/files.el
index cc87651eea86bcd6eb09dd57268c076d1089590d..22731e5789c67c142df615673f990c18a817ca8d 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -4279,26 +4279,36 @@ all the specified local variables, but ignores any settings of \"mode:\"."
           (hack-local-variables-apply))))))
 
 (defun internal--get-default-lexical-binding (from)
-  (let ((mib (lambda (node) (buttonize node (lambda (_) (info node))))))
+  (let ((mib (lambda (node) (buttonize node (lambda (_) (info node))
+                                  nil "mouse-2: Jump to Info node"))))
     (or (and (bufferp from) (zerop (buffer-size from)))
         (and (stringp from)
              (eql 0 (file-attribute-size (file-attributes from))))
-        (display-warning
-         '(files missing-lexbind-cookie)
-         (format-message "Missing `lexical-binding' cookie in %S.
-You can add one with `M-x elisp-enable-lexical-binding RET'.
+        (let ((source
+               (if (not (and (bufferp from)
+                             (string-match-p "\\` \\*load\\*\\(-[0-9]+\\)?\\'"
+                                             (buffer-name from))
+                             load-file-name))
+                   from
+                 (abbreviate-file-name load-file-name))))
+          (display-warning
+           '(files missing-lexbind-cookie)
+           (format-message "Missing `lexical-binding' cookie in %S.
+You can add one with `M-x %s RET'.
 See `%s' and `%s'
 for more information."
-                         (if (not (and (bufferp from)
-                                       (string-match-p
-                                          "\\` \\*load\\*\\(-[0-9]+\\)?\\'"
-                                          (buffer-name from))
-                                       load-file-name))
-                             from
-                           (abbreviate-file-name load-file-name))
-                         (funcall mib "(elisp)Selecting Lisp Dialect")
-                         (funcall mib "(elisp)Converting to Lexical Binding"))
-         :warning))
+                           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)))
     (default-toplevel-value 'lexical-binding)))
 
 (setq internal--get-default-lexical-binding-function