[elpa] externals/hyperbole 2093d3e 48/51: quit-window - Handle primitive functions when replacing this command

[Stefan Monnier]

branch: externals/hyperbole
commit 2093d3e388943c6ba8c1cf2ff94240033e060887
Author: Bob Weiner <Bob.Weiner@DuffandPhelps.com>
Commit: Bob Weiner <Bob.Weiner@DuffandPhelps.com>

    quit-window - Handle primitive functions when replacing this command
---
 Changes       | 2 ++
 hmouse-drv.el | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/Changes b/Changes
index 05d3894..ef7be6e 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,7 @@
 2020-06-28  Bob Weiner  <rsw@gnu.org>
 
+* hmouse-drv.el (quit-window): Handle primitive functions when replacing this 
command.
+
 * hypb.el (hypb:function-symbol-replace): Make a no-op if symbol-function is a 
non-Lisp primitive.
     Also, replace single clause 'if' calls with 'when' or 'unless'.
 
diff --git a/hmouse-drv.el b/hmouse-drv.el
index b83d9fa..64cbb5d 100644
--- a/hmouse-drv.el
+++ b/hmouse-drv.el
@@ -933,7 +933,7 @@ Return non-nil iff associated documentation is found."
 ;; Overload help-mode quit-window function to support Hyperbole
 ;; hkey--wconfig window configurations.
 (unless (eq (symbol-function #'quit-window) #'hkey-help-hide)
-  (defalias 'hkey-quit-window (hypb:function-copy #'quit-window)))
+  (defalias 'hkey-quit-window (symbol-function #'quit-window)))
 
 ;;;###autoload
 (defun hkey-help-hide (&optional kill window)