Re: tweak to apropos-command display

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

"Chong Yidong" <cyd@stupidchicken.com> writes:

> When apropos-command is displaying the keybindings associated with a
> command, it often runs past the edge of the screen (esp. when displaying
> M-x COMMAND RET) This makes the output very difficult to read.
>
> A simple way to deal with this problem is to put the keybindings on their
> own line. Opinions?
>
> *** apropos.el~	Mon Feb 21 21:59:35 2005
> --- apropos.el	Mon Feb 21 22:26:25 2005
> ***************
> *** 824,832 ****
>   	  (if apropos-sort-by-scores
>   	      (insert " (" (number-to-string (cadr apropos-item)) ") "))
>   	  ;; Calculate key-bindings if we want them.
> ! 	  (and do-keys
> ! 	       (commandp symbol)
> ! 	       (indent-to 30 1)
>   	       (if (let ((keys
>   			  (save-excursion
>   			    (set-buffer old-buffer)
> --- 824,832 ----
>   	  (if apropos-sort-by-scores
>   	      (insert " (" (number-to-string (cadr apropos-item)) ") "))
>   	  ;; Calculate key-bindings if we want them.
> ! 	  (when (and do-keys
> !                      (commandp symbol))
> ! 	       (insert "\n  ")
>   	       (if (let ((keys
>   			  (save-excursion
>   			    (set-buffer old-buffer)


IMO, it would be better if it simply didn't list the M-x binding.


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