Commit 07498861 authored by Chong Yidong's avatar Chong Yidong
Browse files

* help-fns.el (describe-function-1): Clarify description of remapping.

Fixes: debbugs:10844
parent ad7c802c
2012-02-26 Chong Yidong <>
* help-fns.el (describe-function-1): Clarify description of
remapping (Bug#10844).
* files.el (files-equal-p): Doc fix.
(file-subdir-of-p): Doc fix. Convert loop macro to plain Lisp,
and quit the loop once a mismatch is found.
......@@ -482,12 +482,14 @@ suitable file is found, return nil."
(if (member (event-modifiers (aref key 0)) '(nil (shift)))
(push key non-modified-keys)))
(when remapped
(princ "It is remapped to `")
(princ "Its keys are remapped to `")
(princ (symbol-name remapped))
(princ "'"))
(princ "'.\n"))
(when keys
(princ (if remapped ", which is bound to " "It is bound to "))
(princ (if remapped
"Without this remapping, it would be bound to "
"It is bound to "))
;; If lots of ordinary text characters run this command,
;; don't mention them one by one.
(if (< (length non-modified-keys) 10)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment