Mercurial > hg > xemacs-beta

comparison tests/automated/keymap-tests.el @ 5822:21b5725c6a45

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Reformat loops for readability and maintainability.
author Stephen J. Turnbull <stephen@xemacs.org>
date Sun, 19 Oct 2014 17:54:50 +0900
parents e34c3557e14e
children
comparison
equal deleted inserted replaced
5821:e34c3557e14e 5822:21b5725c6a45
25 (let* ((map (make-keymap 'help-map-copy)) 25 (let* ((map (make-keymap 'help-map-copy))
26 (parent-map (make-keymap 'help-map-copy-parent)) 26 (parent-map (make-keymap 'help-map-copy-parent))
27 (help-map-copy t) 27 (help-map-copy t)
28 (minor-mode-map-alist (acons 'help-map-copy map minor-mode-map-alist))) 28 (minor-mode-map-alist (acons 'help-map-copy map minor-mode-map-alist)))
29 (set-keymap-parent map parent-map) 29 (set-keymap-parent map parent-map)
30 (loop for (keys def) on '((shift tab) help-prev-symbol tab 30 ;; Take care in choosing commands for these tests! Many of the commands
31 help-next-symbol c customize-variable V 31 ;; here are defined in packages, which may not be available to make check.
32 find-variable-at-point q 32 (loop for (keys def) on '((shift tab) help-prev-symbol
33 help-mode-quit f find-function-at-point d 33 tab help-next-symbol
34 describe-function-at-point D 34 c customize-variable
35 describe-function-at-point v 35 V find-variable-at-point
36 describe-variable-at-point i Info-elisp-ref F 36 q help-mode-quit
37 find-function-at-point Q help-mode-bury button2 37 f find-function-at-point
38 help-mouse-find-source-or-track p 38 d describe-function-at-point
39 help-prev-section n help-next-section return 39 D describe-function-at-point
40 help-activate-function-or-scroll-up) 40 v describe-variable-at-point
41 i Info-elisp-ref
42 F find-function-at-point
43 Q help-mode-bury
44 button2 help-mouse-find-source-or-track
45 p help-prev-section
46 n help-next-section
47 return help-activate-function-or-scroll-up)
41 by #'cddr 48 by #'cddr
42 do (define-key map (vector keys) def)) 49 do (define-key map (vector keys) def))
43 (loop for (keys def) on '(u view-scroll-some-lines-down % view-goto-percent 50 (loop for (keys def) on '(u view-scroll-some-lines-down
44 \2 digit-argument p view-goto-percent \? 51 % view-goto-percent
45 view-search-backward - negative-argument k 52 \2 digit-argument
46 view-scroll-lines-down backspace scroll-down G 53 p view-goto-percent
47 view-last-windowful f scroll-up \5 54 \? view-search-backward
48 digit-argument s view-repeat-search \0 55 - negative-argument
49 digit-argument n view-repeat-search = what-line 56 k view-scroll-lines-down
50 \\ view-search-backward delete scroll-down \8 57 backspace scroll-down
51 digit-argument E view-file d 58 G view-last-windowful
52 view-scroll-some-lines-up \3 digit-argument q 59 f scroll-up
53 view-quit ! shell-command (control j) 60 \5 digit-argument
54 view-scroll-lines-up (control m) 61 s view-repeat-search
55 view-scroll-lines-up y view-scroll-lines-down 62 \0 digit-argument
56 linefeed view-scroll-lines-up g view-goto-line 63 n view-repeat-search
57 \6 digit-argument t toggle-truncate-lines C 64 = what-line
58 view-cleanup-backspaces b scroll-down \1 65 \\ view-search-backward
59 digit-argument P view-buffer return 66 delete scroll-down
60 view-scroll-lines-up | shell-command-on-region j 67 \8 digit-argument
61 view-scroll-lines-up \9 digit-argument \' 68 E view-file
62 register-to-point e view-scroll-lines-up \4 69 d view-scroll-some-lines-up
63 digit-argument r recenter space scroll-up / 70 \3 digit-argument
64 view-search-forward N view-buffer m 71 q view-quit
65 point-to-register h view-mode-describe \7 72 ! shell-command
66 digit-argument 73 (control j) view-scroll-lines-up
74 (control m) view-scroll-lines-up
75 y view-scroll-lines-down
76 linefeed view-scroll-lines-up
77 g view-goto-line
78 \6 digit-argument
79 t toggle-truncate-lines
80 C view-cleanup-backspaces
81 b scroll-down
82 \1 digit-argument
83 P view-buffer
84 return view-scroll-lines-up
85 | shell-command-on-region
86 j view-scroll-lines-up
87 \9 digit-argument
88 \' register-to-point
89 e view-scroll-lines-up
90 \4 digit-argument
91 r recenter
92 space scroll-up
93 / view-search-forward
94 N view-buffer
95 m point-to-register
96 h view-mode-describe
97 \7 digit-argument
67 describe-function-at-point view-mode-describe) 98 describe-function-at-point view-mode-describe)
68 by #'cddr 99 by #'cddr
69 do (define-key parent-map (vector keys) def)) 100 do (define-key parent-map (vector keys) def))
70 (Assert (eq (key-binding [F]) 'find-function-at-point) 101 (Assert (eq (key-binding [F]) 'find-function-at-point)
71 "checking normal key lookup works, F") 102 "checking normal key lookup works, F")