# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1014503259 0
# Node ID 5f7255c117915a742fffdbb801989a88c1b47d0c
# Parent  ecd03935bb9896a22aca03e21fbceb40b6f2b4d6
(describe-function-1): Use remap-command.

diff -r ecd03935bb98 -r 5f7255c11791 lisp/help-fns.el
--- a/lisp/help-fns.el	Sat Feb 23 22:26:44 2002 +0000
+++ b/lisp/help-fns.el	Sat Feb 23 22:27:39 2002 +0000
@@ -207,9 +207,7 @@
     (princ ".")
     (terpri)
     (when (commandp function)
-      (let* ((binding (and (symbolp function) (commandp function)
-			   (key-binding function nil t)))
-	     (remapped (and (symbolp binding) (commandp binding) binding))
+      (let* ((remapped (remap-command function))
 	     (keys (where-is-internal
 		   (or remapped function) overriding-local-map nil nil)))
 	(when remapped