]> git.eshelyaron.com Git - emacs.git/commitdiff
Merge from origin/emacs-28
authorStefan Kangas <stefan@marxist.se>
Sun, 24 Jul 2022 07:55:01 +0000 (09:55 +0200)
committerStefan Kangas <stefan@marxist.se>
Sun, 24 Jul 2022 07:55:01 +0000 (09:55 +0200)
b4067394dc Set `default-directory' of Tramp archive connection buffer
2529e82002 ; * doc/lispref/functions.texi (Declare Form): Fix typo.
54c4ceb009 Update the documentation of 'declare' forms
7263631dca Fix bookmark support for Help functions in native-compilat...

# Conflicts:
# lisp/help.el

1  2 
doc/lispref/compile.texi
doc/lispref/functions.texi
lisp/help-fns.el
lisp/help.el
lisp/net/tramp-archive.el

Simple merge
Simple merge
index efee44f7b30ffa5bec0c17939dd89df9cb1e1e8e,656e7b7da24ff009bf929f1113cbf00c635d20ec..768023b54c2867e42e0fdb5293ab39764386f323
@@@ -263,16 -249,11 +263,12 @@@ handling of autoloaded functions.
    ;; calling that.
    (let ((describe-function-orig-buffer
           (or describe-function-orig-buffer
 -             (current-buffer))))
 +             (current-buffer)))
 +        (help-buffer-under-preparation t))
  
-     (help-setup-xref
-      (list (lambda (function buffer)
-              (let ((describe-function-orig-buffer
-                     (if (buffer-live-p buffer) buffer)))
-                (describe-function function)))
-            function describe-function-orig-buffer)
-      (called-interactively-p 'interactive))
+     (help-setup-xref (list #'describe-function--helper
+                            function describe-function-orig-buffer)
+                      (called-interactively-p 'interactive))
  
      (save-excursion
        (with-help-window (help-buffer)
diff --cc lisp/help.el
index d9e553e4e10a3f4079e8b2d013bebedd4b949e09,0701bf178aac0c46421757ea038b1fcdf20288a4..65c537d119185038a35d65997b3f7aa9fb316b1a
@@@ -903,9 -881,19 +903,21 @@@ Describe the following key, mouse click
          (setq yank-menu (copy-sequence saved-yank-menu))
          (fset 'yank-menu (cons 'keymap yank-menu))))))
  
 -(defvar describe-function-orig-buffer)
 +;; Defined in help-fns.el.
 +(defvar describe-function-orig-buffer)
 +
+ ;; These two are named functions because lambda-functions cannot be
+ ;; serialized in a native-compilation build, which breaks bookmark
+ ;; support in help-mode.el.
+ (defun describe-key--helper (key-list buf)
+   (describe-key key-list
+                 (if (buffer-live-p buf) buf)))
+ (defun describe-function--helper (func buf)
+   (let ((describe-function-orig-buffer
+          (if (buffer-live-p buf) buf)))
+     (describe-function func)))
  (defun describe-key (&optional key-list buffer up-event)
    "Display documentation of the function invoked by KEY-LIST.
  KEY-LIST can be any kind of a key sequence; it can include keyboard events,
Simple merge