From 07498861aec0eb2103820342747350736419444d Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sun, 26 Feb 2012 17:24:13 +0800 Subject: [PATCH] * help-fns.el (describe-function-1): Clarify description of remapping. Fixes: debbugs:10844 --- lisp/ChangeLog | 3 +++ lisp/help-fns.el | 8 +++++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 418be2539b6..9f1c4e71444 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 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. diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 0175ffa4d9a..ed52be6cc1e 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -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) -- 2.39.2