mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-01 19:30:45 -08:00
Code Issues Projects Releases Wiki Activity

Allow function key bindings to be displayed in toplevel help

Browse source
This commit is contained in:
Iqbal Ansari 2015-10-10 18:37:04 +05:30
parent 95788e94c1
commit cdd2934d0d
1 changed files with 10 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

19
which-key.el
View file

@ -1247,20 +1247,21 @@ BUFFER that follow the key sequence KEY-SEQ."
key-str-qt)
;; For toplevel binding, we search for lines which
;; start with a sequence of characters other than
;; space and tab and '<', '>' (these are ignored
;; since mostly these are the keyboard input
;; definitions provided by iso-transl or (mouse)
;; bindings for the `fringe' or `modeline' which
;; might not be as interesting), the initial
;; sequence should be followed by one or more
;; tab/space which are then followed by a sequence
;; of non newline/tab characters
;; space and tab and '<', '>' except function keys
;; <f[0-9]+> (these are ignored since mostly these
;; are the keyboard input definitions provided by
;; iso-transl or (mouse) bindings for the `fringe'
;; or `modeline' which might not be as interesting)
;; the initial sequence should be followed by one
;; or more tab/space which are then followed by a
;; sequence of non newline/tab characters
;; For example the following should match
;; C-x Prefix Command
;; <f1> Some command
;; But following should not
;; C-x 8 Prefix Command
;; <S-dead-acute> Prefix Command
"^\\([^ <>\t]+\\)[ \t]+\\([^\t\n]+\\)$"))
"^\\([^ <>\t]+\\|<f[0-9]+>\\)[ \t]+\\([^\t\n]+\\)$"))
key-match desc-match unformatted)
(save-match-data
(with-temp-buffer