mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

Mark keys in apropos.el for substitute-command-keys

Browse Source 
* 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'.
This commit is contained in:
Stefan Kangas 2022-08-03 16:10:30 +02:00
parent 95856c5154
commit 3ec6b806b2
1 changed files with 12 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
lisp/apropos.el
View File

@ -1,7 +1,6 @@
;;; apropos.el --- apropos commands for users and programmers -*- lexical-binding: t -*- ;;; apropos.el --- apropos commands for users and programmers -*- lexical-binding: t -*-
;; Copyright (C) 1989, 1994-1995, 2001-2022 Free Software Foundation, ;; Copyright (C) 1989-2022 Free Software Foundation, Inc.
;; Inc.
;; Author: Joe Wells <jbw@bigbird.bu.edu> ;; Author: Joe Wells <jbw@bigbird.bu.edu>
;; Daniel Pfeiffer <occitan@esperanto.org> (rewrite) ;; Daniel Pfeiffer <occitan@esperanto.org> (rewrite)
@ -218,7 +217,7 @@ before `apropos-mode' makes it buffer-local.")
(define-button-type 'apropos-symbol (define-button-type 'apropos-symbol
'face '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 'follow-link t
'action #'apropos-symbol-button-display-help) 'action #'apropos-symbol-button-display-help)
@ -232,7 +231,7 @@ before `apropos-mode' makes it buffer-local.")
'apropos-label "Function" 'apropos-label "Function"
'apropos-short-label "f" 'apropos-short-label "f"
'face 'apropos-function-button '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 'follow-link t
'action (lambda (button) 'action (lambda (button)
(describe-function (button-get button 'apropos-symbol)))) (describe-function (button-get button 'apropos-symbol))))
@ -241,7 +240,7 @@ before `apropos-mode' makes it buffer-local.")
'apropos-label "Macro" 'apropos-label "Macro"
'apropos-short-label "m" 'apropos-short-label "m"
'face 'apropos-function-button '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 'follow-link t
'action (lambda (button) 'action (lambda (button)
(describe-function (button-get button 'apropos-symbol)))) (describe-function (button-get button 'apropos-symbol))))
@ -250,7 +249,7 @@ before `apropos-mode' makes it buffer-local.")
'apropos-label "Command" 'apropos-label "Command"
'apropos-short-label "c" 'apropos-short-label "c"
'face 'apropos-function-button '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 'follow-link t
'action (lambda (button) 'action (lambda (button)
(describe-function (button-get button 'apropos-symbol)))) (describe-function (button-get button 'apropos-symbol))))
@ -264,7 +263,7 @@ before `apropos-mode' makes it buffer-local.")
'apropos-label "Variable" 'apropos-label "Variable"
'apropos-short-label "v" 'apropos-short-label "v"
'face 'apropos-variable-button '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 'follow-link t
'action (lambda (button) 'action (lambda (button)
(describe-variable (button-get button 'apropos-symbol)))) (describe-variable (button-get button 'apropos-symbol))))
@ -273,7 +272,7 @@ before `apropos-mode' makes it buffer-local.")
'apropos-label "User option" 'apropos-label "User option"
'apropos-short-label "o" 'apropos-short-label "o"
'face 'apropos-user-option-button '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 'follow-link t
'action (lambda (button) 'action (lambda (button)
(describe-variable (button-get button 'apropos-symbol)))) (describe-variable (button-get button 'apropos-symbol))))
@ -282,7 +281,7 @@ before `apropos-mode' makes it buffer-local.")
'apropos-label "Face" 'apropos-label "Face"
'apropos-short-label "F" 'apropos-short-label "F"
'face 'apropos-button '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 'follow-link t
'action (lambda (button) 'action (lambda (button)
(describe-face (button-get button 'apropos-symbol)))) (describe-face (button-get button 'apropos-symbol))))
@ -291,7 +290,7 @@ before `apropos-mode' makes it buffer-local.")
'apropos-label "Group" 'apropos-label "Group"
'apropos-short-label "g" 'apropos-short-label "g"
'face 'apropos-misc-button '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 'follow-link t
'action (lambda (button) 'action (lambda (button)
(customize-group-other-window (customize-group-other-window
@ -301,7 +300,7 @@ before `apropos-mode' makes it buffer-local.")
'apropos-label "Widget" 'apropos-label "Widget"
'apropos-short-label "w" 'apropos-short-label "w"
'face 'apropos-misc-button '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 'follow-link t
'action (lambda (button) 'action (lambda (button)
(widget-browse-other-window (button-get button 'apropos-symbol)))) (widget-browse-other-window (button-get button 'apropos-symbol))))
@ -310,13 +309,13 @@ before `apropos-mode' makes it buffer-local.")
'apropos-label "Properties" 'apropos-label "Properties"
'apropos-short-label "p" 'apropos-short-label "p"
'face 'apropos-misc-button '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 'follow-link t
'action (lambda (button) 'action (lambda (button)
(apropos-describe-plist (button-get button 'apropos-symbol)))) (apropos-describe-plist (button-get button 'apropos-symbol))))
(define-button-type 'apropos-library (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 'follow-link t
'action (lambda (button) 'action (lambda (button)
(apropos-library (button-get button 'apropos-symbol)))) (apropos-library (button-get button 'apropos-symbol))))