Lines Matching +defs:key +defs:description
43 "Point before display of key changes.")
47 "Point after display of key changes.")
54 (defun tutorial--describe-nonstandard-key (value)
55 "Give more information about a changed key binding.
57 the key sequence that no longer has a default binding, the
62 For `cua-mode' key bindings that try to combine CUA key bindings
71 KEY is a key sequence whose standard binding has been changed
74 WHERE is a text describing the key sequences to which DEF-FUN is
75 bound now (or, if it is remapped, a key sequence
78 (help-setup-xref (list #'tutorial--describe-nonstandard-key value)
82 "Your Emacs customizations override the default binding for this key:"
99 - press the prefix key twice very quickly (within 0.2 seconds),
100 - press the prefix key and the following key within 0.2 seconds, or
101 - use the SHIFT key with the prefix key, i.e. C-S-x or C-S-c."))
105 (key (nth 3 value))
114 (mb (lookup-key m key t)))
138 (insert "The default Emacs binding for the key "
139 (key-description key)
156 (insert "\n\nWith your current key bindings"
160 "the key ")
173 key sequence.
178 ;; Skip the front part of the key sequences if they are equal:
313 (describe-key-briefly [?\C-h ?c])
314 (describe-key [?\C-h ?k])
323 "Default Emacs key bindings that the tutorial depends on.")
332 (explain-key-desc (button-get button 'explain-key-desc))
340 "The following key bindings used in the tutorial have been changed
347 (key (nth 0 tk))
352 (key-txt (key-description key))
353 (key-fun (with-current-buffer tutorial-buffer (key-binding key)))
355 (unless (eq def-fun key-fun)
356 ;; Insert key binding description:
357 (when (string= key-txt explain-key-desc)
358 (put-text-property 0 (length key-txt)
359 'face 'tutorial-warning-face key-txt))
360 (insert " " key-txt " ")
385 (tutorial--describe-nonstandard-key value)))
391 It is OK to change key bindings, but changed bindings do not
396 "Find the key bindings used in the tutorial that have changed.
403 KEY is a key sequence whose standard binding has been changed
406 WHERE is a text describing the key sequences to which DEF-FUN is
407 bound now (or, if it is remapped, a key sequence
430 (let* ((key (nth 1 kdf))
434 (key-fun (if (eq def-fun 'ESC-prefix)
435 (lookup-key global-map [27])
436 (key-binding key)))
440 (setq where (key-description (car where)))
448 (cond ((eq key-fun def-fun)
451 ((and key-fun
452 (eq key-fun (command-remapping def-fun)))
458 (equal key [?\C-v])
459 (eq key-fun 'cua-paste))
461 (equal key [?\C-z])
462 (eq key-fun 'undo))))
467 (equal key-fun
472 (equal key-fun
477 (equal key-fun
481 (setq where "Same key")
488 (eq key-fun 'viper-isearch-forward))
490 (eq key-fun 'viper-isearch-backward))))
495 (or (and (equal key [C-delete])
496 (equal key-fun 'kill-word))
497 (and (equal key [C-backspace])
498 (equal key-fun 'backward-kill-word))))
503 ;; This key has indeed been rebound. Put information
507 key-fun def-fun key where))
510 (list key def-fun def-fun-txt where remark nil))))))
513 (defun tutorial--key-description (key)
514 (let ((desc (key-description key)))
521 "Display changes to some default key bindings.
522 If some of the default key bindings that the tutorial depends on
528 ;; key-description of a changed key and CK is the
531 (mapcar (lambda (ck) (cons (tutorial--key-description (car ck)) ck))
533 changed-key
539 (tutorial--key-description
562 ;; Scan the tutorial for all key sequences.
565 ;; Then highlight each rebound key sequence.
567 (setq changed-key (assoc (match-string 1) changed-keys-alist))
568 (and changed-key
570 (let* ((desc (car changed-key))
571 (ck (cdr changed-key))
572 (key (nth 0 ck))
576 (unless (string= where "Same key")
585 tutorial-remark key-sequence))
603 'explain-key-desc desc 'follow-link t
642 (unless (eq prop-val 'key-sequence)
733 If any of the standard Emacs key bindings that are used in the
899 the most important standard Emacs commands (key bindings).