Mercurial > hg > xemacs-beta

comparison lisp/help.el @ 5689:7371081ce8f7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Have command remapping work interactively too, thank you Robert Pluim! src/ChangeLog addition: 2012-10-14 Aidan Kehoe <kehoea@parhasard.net> Have command remapping work interactively too, thank you Robert Pluim. * event-stream.c (Fdispatch_event): Obey command remapping here, it wasn't done for us. * keymap.c: * keymap.c (command_remapping_for_event): New, needed to observe command remapping interactively. * lisp.h: Make it available. lisp/ChangeLog addition: 2012-10-14 Aidan Kehoe <kehoea@parhasard.net> * help.el: * help.el (describe-function-1): Add some newlines here when dealing with remapped commands, thank you Robert Pluim.
author Aidan Kehoe <kehoea@parhasard.net>
date Sun, 14 Oct 2012 22:10:39 +0100
parents a81a739181dc
children b490ddbd42aa
comparison
equal deleted inserted replaced
5688:b6c506c30f93 5689:7371081ce8f7
1542 (princ "'.\n")) 1542 (princ "'.\n"))
1543 (princ (substitute-command-keys 1543 (princ (substitute-command-keys
1544 (format "\n\\[%s]" function)))) 1544 (format "\n\\[%s]" function))))
1545 (when commands-remapped-to 1545 (when commands-remapped-to
1546 (if (cdr commands-remapped-to) 1546 (if (cdr commands-remapped-to)
1547 (princ (format "The following functions are \ 1547 (princ (format "\n\nThe following functions are \
1548 remapped to it:\n`%s'" (mapconcat #'prin1-to-string commands-remapped-to 1548 remapped to it:\n`%s'" (mapconcat #'prin1-to-string commands-remapped-to
1549 "', `"))) 1549 "', `")))
1550 (princ (format "`%s' is remapped to it.\n" 1550 (princ (format "\n\n`%s' is remapped to it.\n"
1551 (car 1551 (car
1552 commands-remapped-to)))))))))))))) 1552 commands-remapped-to))))))))))))))
1553 1553
1554 ;;; [Obnoxious, whining people who complain very LOUDLY on Usenet 1554 ;;; [Obnoxious, whining people who complain very LOUDLY on Usenet
1555 ;;; are binding this to keys.] 1555 ;;; are binding this to keys.]