Mercurial > emacs

comparison lisp/help.el @ 49588:37645a051842

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Trailing whitespace deleted.
author Juanma Barranquero <lekktu@gmail.com>
date Tue, 04 Feb 2003 11:26:42 +0000
parents 4e3e9d5a3332
children 9fe119b14379
comparison
equal deleted inserted replaced
49587:e82b3fe06d4c 49588:37645a051842
481 string 481 string
482 (let ((otherstring (key-description untranslated))) 482 (let ((otherstring (key-description untranslated)))
483 (if (equal string otherstring) 483 (if (equal string otherstring)
484 string 484 string
485 (format "%s (translated from %s)" string otherstring)))))) 485 (format "%s (translated from %s)" string otherstring))))))
486 486
487 (defun describe-key-briefly (key &optional insert untranslated) 487 (defun describe-key-briefly (key &optional insert untranslated)
488 "Print the name of the function KEY invokes. KEY is a string. 488 "Print the name of the function KEY invokes. KEY is a string.
489 If INSERT (the prefix arg) is non-nil, insert the message in the buffer. 489 If INSERT (the prefix arg) is non-nil, insert the message in the buffer.
490 If non-nil UNTRANSLATED is a vector of the untranslated events. 490 If non-nil UNTRANSLATED is a vector of the untranslated events.
491 It can also be a number in which case the untranslated events from 491 It can also be a number in which case the untranslated events from