Fix some help-fns test failures

* lisp/help-fns.el (help-fns--key-bindings): Fix test failures
from recent change.

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 3f3a5747dc2dc1d2044835c615e24d1a0efea082..6d635ec9ee301f2802c54fabc43d81c008a35669 100644 (file)
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -516,7 +516,7 @@ the C sources, too."
           (remapped (command-remapping function)))
       (unless (memq remapped '(ignore undefined))
         (let* ((all-keys
-                (with-current-buffer orig-buffer
+                (with-current-buffer (or orig-buffer (current-buffer))
                   (where-is-internal
                    (or remapped function) overriding-local-map nil nil)))
                (seps (seq-group-by