Re: C-h k, C-h f and keyboard macros: Patch.

[storm@cua.dk (Kim F. Storm)]

Juanma Barranquero <lektu@terra.es> writes:

> After Luc's (or your's) patch, with cua-mode enabled, if I do:
> 
> [f3] "pepe" home [f4]     ; define macro that inserts "pepe" and goes to
>                           ; the beginning of line
> C-x C-k b M-z             ; assign it to M-z
> C-h k M-z                 ; see it
> 
> I get "Key sequence contains invalid event", not the C-h k output.

I see it now, thanks!

Here is a version of the patch which fixes this problem:

Index: help-fns.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/help-fns.el,v
retrieving revision 1.28
diff -c -r1.28 help-fns.el
*** help-fns.el	4 Feb 2003 11:23:06 -0000	1.28
--- help-fns.el	11 Feb 2003 14:16:50 -0000
***************
*** 291,297 ****
      (princ ".")
      (terpri)
      (when (commandp function)
!       (let* ((remapped (remap-command function))
  	     (keys (where-is-internal
  		   (or remapped function) overriding-local-map nil nil)))
  	(when remapped
--- 291,297 ----
      (princ ".")
      (terpri)
      (when (commandp function)
!       (let* ((remapped (and (symbolp function) (remap-command function)))
  	     (keys (where-is-internal
  		   (or remapped function) overriding-local-map nil nil)))
  	(when remapped
***************
*** 323,328 ****
--- 323,331 ----
  						 function)))))
  		   usage)
  		 (car usage))
+  		((or (stringp def)
+  		     (vectorp def))
+ 		 (format "\nMacro: %s" (format-kbd-macro def)))
  		(t "[Missing arglist.  Please make a bug report.]")))
  	(terpri))
        (let ((obsolete (and



-- 
Kim F. Storm <storm@cua.dk> http://www.cua.dk