From a5387dec4eb12ff668e531f323efd8b28540c9a2 Mon Sep 17 00:00:00 2001
From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 21 Jun 2022 13:34:54 +0200
Subject: Fix previous describe-key change
* lisp/help.el (describe-function-orig-buffer): Ensure we bind
dynamically.
---
lisp/help.el | 3 +++
1 file changed, 3 insertions(+)
(limited to 'lisp/help.el')
diff --git a/lisp/help.el b/lisp/help.el
index 94747ff4b0f..f14617b4371 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -903,6 +903,9 @@ Describe the following key, mouse click, or menu item: "
(setq yank-menu (copy-sequence saved-yank-menu))
(fset 'yank-menu (cons 'keymap yank-menu))))))
+;; Defined in help-fns.el.
+(defvar describe-function-orig-buffer)
+
(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,
--
cgit v1.2.3