From 3ec6b806b246c147ae30408a1d659083619883af Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Wed, 3 Aug 2022 16:10:30 +0200 Subject: [PATCH] Mark keys in apropos.el for substitute-command-keys * lisp/apropos.el (apropos-symbol, apropos-function) (apropos-macro, apropos-command, apropos-variable) (apropos-user-option, apropos-face, apropos-group) (apropos-widget, apropos-plist, apropos-library): Mark keys for 'substitute-command-keys'. --- lisp/apropos.el | 25 ++++++++++++------------- 1 file changed, 12 insertions(+), 13 deletions(-) diff --git a/lisp/apropos.el b/lisp/apropos.el index 96821285869..624c29cb410 100644 --- a/lisp/apropos.el +++ b/lisp/apropos.el @@ -1,7 +1,6 @@ ;;; apropos.el --- apropos commands for users and programmers -*- lexical-binding: t -*- -;; Copyright (C) 1989, 1994-1995, 2001-2022 Free Software Foundation, -;; Inc. +;; Copyright (C) 1989-2022 Free Software Foundation, Inc. ;; Author: Joe Wells ;; Daniel Pfeiffer (rewrite) @@ -218,7 +217,7 @@ before `apropos-mode' makes it buffer-local.") (define-button-type 'apropos-symbol 'face 'apropos-symbol - 'help-echo "mouse-2, RET: Display more help on this symbol" + 'help-echo "\\`mouse-2', \\`RET': Display more help on this symbol" 'follow-link t 'action #'apropos-symbol-button-display-help) @@ -232,7 +231,7 @@ before `apropos-mode' makes it buffer-local.") 'apropos-label "Function" 'apropos-short-label "f" 'face 'apropos-function-button - 'help-echo "mouse-2, RET: Display more help on this function" + 'help-echo "\\`mouse-2', \\`RET': Display more help on this function" 'follow-link t 'action (lambda (button) (describe-function (button-get button 'apropos-symbol)))) @@ -241,7 +240,7 @@ before `apropos-mode' makes it buffer-local.") 'apropos-label "Macro" 'apropos-short-label "m" 'face 'apropos-function-button - 'help-echo "mouse-2, RET: Display more help on this macro" + 'help-echo "\\`mouse-2', \\`RET': Display more help on this macro" 'follow-link t 'action (lambda (button) (describe-function (button-get button 'apropos-symbol)))) @@ -250,7 +249,7 @@ before `apropos-mode' makes it buffer-local.") 'apropos-label "Command" 'apropos-short-label "c" 'face 'apropos-function-button - 'help-echo "mouse-2, RET: Display more help on this command" + 'help-echo "\\`mouse-2', \\`RET': Display more help on this command" 'follow-link t 'action (lambda (button) (describe-function (button-get button 'apropos-symbol)))) @@ -264,7 +263,7 @@ before `apropos-mode' makes it buffer-local.") 'apropos-label "Variable" 'apropos-short-label "v" 'face 'apropos-variable-button - 'help-echo "mouse-2, RET: Display more help on this variable" + 'help-echo "\\`mouse-2', \\`RET': Display more help on this variable" 'follow-link t 'action (lambda (button) (describe-variable (button-get button 'apropos-symbol)))) @@ -273,7 +272,7 @@ before `apropos-mode' makes it buffer-local.") 'apropos-label "User option" 'apropos-short-label "o" 'face 'apropos-user-option-button - 'help-echo "mouse-2, RET: Display more help on this user option" + 'help-echo "\\`mouse-2', \\`RET': Display more help on this user option" 'follow-link t 'action (lambda (button) (describe-variable (button-get button 'apropos-symbol)))) @@ -282,7 +281,7 @@ before `apropos-mode' makes it buffer-local.") 'apropos-label "Face" 'apropos-short-label "F" 'face 'apropos-button - 'help-echo "mouse-2, RET: Display more help on this face" + 'help-echo "\\`mouse-2', \\`RET': Display more help on this face" 'follow-link t 'action (lambda (button) (describe-face (button-get button 'apropos-symbol)))) @@ -291,7 +290,7 @@ before `apropos-mode' makes it buffer-local.") 'apropos-label "Group" 'apropos-short-label "g" 'face 'apropos-misc-button - 'help-echo "mouse-2, RET: Display more help on this group" + 'help-echo "\\`mouse-2', \\`RET': Display more help on this group" 'follow-link t 'action (lambda (button) (customize-group-other-window @@ -301,7 +300,7 @@ before `apropos-mode' makes it buffer-local.") 'apropos-label "Widget" 'apropos-short-label "w" 'face 'apropos-misc-button - 'help-echo "mouse-2, RET: Display more help on this widget" + 'help-echo "\\`mouse-2', \\`RET': Display more help on this widget" 'follow-link t 'action (lambda (button) (widget-browse-other-window (button-get button 'apropos-symbol)))) @@ -310,13 +309,13 @@ before `apropos-mode' makes it buffer-local.") 'apropos-label "Properties" 'apropos-short-label "p" 'face 'apropos-misc-button - 'help-echo "mouse-2, RET: Display more help on this plist" + 'help-echo "\\`mouse-2', \\`RET': Display more help on this plist" 'follow-link t 'action (lambda (button) (apropos-describe-plist (button-get button 'apropos-symbol)))) (define-button-type 'apropos-library - 'help-echo "mouse-2, RET: Display more help on this library" + 'help-echo "\\`mouse-2', \\`RET': Display more help on this library" 'follow-link t 'action (lambda (button) (apropos-library (button-get button 'apropos-symbol)))) -- 2.39.5