Mercurial > hg > xemacs-beta

comparison lisp/help.el @ 5691:b490ddbd42aa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Back out 7371081ce8f7, I have a better approach.
author Aidan Kehoe <kehoea@parhasard.net>
date Tue, 06 Nov 2012 21:34:15 +0000
parents 7371081ce8f7
children be87f507f510
comparison
equal deleted inserted replaced
5690:7b5f88e5b456 5691:b490ddbd42aa
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 "\n\nThe following functions are \ 1547 (princ (format "The 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 "\n\n`%s' is remapped to it.\n" 1550 (princ (format "`%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.]