3 new commits in XEmacs: https://bitbucket.org/xemacs/xemacs/commits/e34c3557e14e/ Changeset: e34c3557e14e User: stephen_at_xemacs Date: 2014-10-19 08:54:46+00:00 Summary: Avoid commands defined in packages in some tests. Packages may not be available at make check time. Affected #: 2 files diff -r ba0ff364bd94973aad604c1ebf39007c47aefef1 -r e34c3557e14efa873d89db3916aad2ecb52c8798 tests/ChangeLog --- a/tests/ChangeLog +++ b/tests/ChangeLog ＠＠ -1,3 +1,9 ＠＠ +2014-10-11 Stephen J. Turnbull <stephen(a)xemacs.org&gt; + + * automated/keymap-tests.el: + Avoid commands defined in packages in some tests. + Packages may not be available at make check time. + 2014-07-14 Aidan Kehoe <kehoea(a)parhasard.net&gt; * automated/extent-tests.el: diff -r ba0ff364bd94973aad604c1ebf39007c47aefef1 -r e34c3557e14efa873d89db3916aad2ecb52c8798 tests/automated/keymap-tests.el --- a/tests/automated/keymap-tests.el +++ b/tests/automated/keymap-tests.el ＠＠ -31,6 +31,7 ＠＠ help-next-symbol c customize-variable V find-variable-at-point q help-mode-quit f find-function-at-point d + describe-function-at-point D describe-function-at-point v describe-variable-at-point i Info-elisp-ref F find-function-at-point Q help-mode-bury button2 ＠＠ -63,7 +64,7 ＠＠ view-search-forward N view-buffer m point-to-register h view-mode-describe \7 digit-argument - find-function-at-point view-mode-describe) + describe-function-at-point view-mode-describe) by #'cddr do (define-key parent-map (vector keys) def)) (Assert (eq (key-binding [F]) 'find-function-at-point) ＠＠ -74,31 +75,31 ＠＠ "checking normal key parent lookup works, \\2") (Assert (eq (key-binding [|]) 'shell-command-on-region) "checking normal key parent lookup works, |") - (define-key map [remap find-function-at-point] #'find-file) - (Assert (eq (key-binding [F]) 'find-file) - "checking remapped key lookup works, F") - (Assert (eq (key-binding [f]) 'find-file) + (define-key map [remap describe-function-at-point] #'find-file) + (Assert (eq (key-binding [D]) 'find-file) + "checking remapped key lookup works, d") + (Assert (eq (key-binding [d]) 'find-file) "checking remapped key lookup works, f") (Assert (eq (key-binding [\2]) 'digit-argument) "checking normal key parent lookup works, \\2") (Assert (eq (key-binding [|]) 'shell-command-on-region) "checking normal key parent lookup works, |") - (Assert (eq (key-binding [find-function-at-point]) 'view-mode-describe) + (Assert (eq (key-binding [describe-function-at-point]) 'view-mode-describe) "checking remapped function doesn't affect key name mapping") (define-key parent-map [remap help-next-symbol] #'find-file) (Assert (eq (key-binding [tab]) 'find-file) "checking remapping in parent extends to child") (Assert (equal (commands-remapped-to 'find-file) - '(help-next-symbol find-function-at-point)) + '(help-next-symbol describe-function-at-point)) "checking #'commands-remapped-to is sane") (Check-Error wrong-type-argument (commands-remapped-to pi)) (Check-Error wrong-type-argument (commands-remapped-to 'find-file pi)) (Check-Error wrong-type-argument (commands-remapped-to 'find-file nil pi)) - (Assert (eq (command-remapping 'find-function-at-point) 'find-file) + (Assert (eq (command-remapping 'describe-function-at-point) 'find-file) "checking #'command-remapping is sane") (Check-Error wrong-type-argument (command-remapping pi)) - (Check-Error wrong-type-argument (command-remapping 'find-function-at-point + (Check-Error wrong-type-argument (command-remapping 'describe-function-at-point pi)) - (Check-Error wrong-type-argument (command-remapping 'find-function-at-point + (Check-Error wrong-type-argument (command-remapping 'describe-function-at-point nil pi))) https://bitbucket.org/xemacs/xemacs/commits/21b5725c6a45/ Changeset: 21b5725c6a45 User: stephen_at_xemacs Date: 2014-10-19 08:54:50+00:00 Summary: Reformat loops for readability and maintainability. Affected #: 2 files diff -r e34c3557e14efa873d89db3916aad2ecb52c8798 -r 21b5725c6a451ab519bbe526e930d7bcb8835731 tests/ChangeLog --- a/tests/ChangeLog +++ b/tests/ChangeLog ＠＠ -1,3 +1,8 ＠＠ +2014-10-11 Stephen J. Turnbull <stephen(a)xemacs.org&gt; + + * automated/keymap-tests.el: + Reformat loops for readability and maintainability. + 2014-10-11 Stephen J. Turnbull <stephen(a)xemacs.org&gt; * automated/keymap-tests.el: diff -r e34c3557e14efa873d89db3916aad2ecb52c8798 -r 21b5725c6a451ab519bbe526e930d7bcb8835731 tests/automated/keymap-tests.el --- a/tests/automated/keymap-tests.el +++ b/tests/automated/keymap-tests.el ＠＠ -27,43 +27,74 ＠＠ (help-map-copy t) (minor-mode-map-alist (acons 'help-map-copy map minor-mode-map-alist))) (set-keymap-parent map parent-map) - (loop for (keys def) on '((shift tab) help-prev-symbol tab - help-next-symbol c customize-variable V - find-variable-at-point q - help-mode-quit f find-function-at-point d - describe-function-at-point D - describe-function-at-point v - describe-variable-at-point i Info-elisp-ref F - find-function-at-point Q help-mode-bury button2 - help-mouse-find-source-or-track p - help-prev-section n help-next-section return - help-activate-function-or-scroll-up) + ;; Take care in choosing commands for these tests! Many of the commands + ;; here are defined in packages, which may not be available to make check. + (loop for (keys def) on '((shift tab) help-prev-symbol + tab help-next-symbol + c customize-variable + V find-variable-at-point + q help-mode-quit + f find-function-at-point + d describe-function-at-point + D describe-function-at-point + v describe-variable-at-point + i Info-elisp-ref + F find-function-at-point + Q help-mode-bury + button2 help-mouse-find-source-or-track + p help-prev-section + n help-next-section + return help-activate-function-or-scroll-up) by #'cddr do (define-key map (vector keys) def)) - (loop for (keys def) on '(u view-scroll-some-lines-down % view-goto-percent - \2 digit-argument p view-goto-percent \? - view-search-backward - negative-argument k - view-scroll-lines-down backspace scroll-down G - view-last-windowful f scroll-up \5 - digit-argument s view-repeat-search \0 - digit-argument n view-repeat-search = what-line - \\ view-search-backward delete scroll-down \8 - digit-argument E view-file d - view-scroll-some-lines-up \3 digit-argument q - view-quit ! shell-command (control j) - view-scroll-lines-up (control m) - view-scroll-lines-up y view-scroll-lines-down - linefeed view-scroll-lines-up g view-goto-line - \6 digit-argument t toggle-truncate-lines C - view-cleanup-backspaces b scroll-down \1 - digit-argument P view-buffer return - view-scroll-lines-up | shell-command-on-region j - view-scroll-lines-up \9 digit-argument \' - register-to-point e view-scroll-lines-up \4 - digit-argument r recenter space scroll-up / - view-search-forward N view-buffer m - point-to-register h view-mode-describe \7 - digit-argument + (loop for (keys def) on '(u view-scroll-some-lines-down + % view-goto-percent + \2 digit-argument + p view-goto-percent + \? view-search-backward + - negative-argument + k view-scroll-lines-down + backspace scroll-down + G view-last-windowful + f scroll-up + \5 digit-argument + s view-repeat-search + \0 digit-argument + n view-repeat-search + = what-line + \\ view-search-backward + delete scroll-down + \8 digit-argument + E view-file + d view-scroll-some-lines-up + \3 digit-argument + q view-quit + ! shell-command + (control j) view-scroll-lines-up + (control m) view-scroll-lines-up + y view-scroll-lines-down + linefeed view-scroll-lines-up + g view-goto-line + \6 digit-argument + t toggle-truncate-lines + C view-cleanup-backspaces + b scroll-down + \1 digit-argument + P view-buffer + return view-scroll-lines-up + | shell-command-on-region + j view-scroll-lines-up + \9 digit-argument + \' register-to-point + e view-scroll-lines-up + \4 digit-argument + r recenter + space scroll-up + / view-search-forward + N view-buffer + m point-to-register + h view-mode-describe + \7 digit-argument describe-function-at-point view-mode-describe) by #'cddr do (define-key parent-map (vector keys) def)) https://bitbucket.org/xemacs/xemacs/commits/efb76d6d0c1d/ Changeset: efb76d6d0c1d User: stephen_at_xemacs Date: 2014-10-20 07:35:18+00:00 Summary: Trivial merge Affected #: 2 files diff -r b3824b7f5627c37e193a69108848ccbd480d6817 -r efb76d6d0c1d07c4ff4cb603cf3a6c4efc81e189 tests/ChangeLog --- a/tests/ChangeLog +++ b/tests/ChangeLog ＠＠ -1,3 +1,14 ＠＠ +2014-10-11 Stephen J. Turnbull <stephen(a)xemacs.org&gt; + + * automated/keymap-tests.el: + Reformat loops for readability and maintainability. + +2014-10-11 Stephen J. Turnbull <stephen(a)xemacs.org&gt; + + * automated/keymap-tests.el: + Avoid commands defined in packages in some tests. + Packages may not be available at make check time. + 2014-07-14 Aidan Kehoe <kehoea(a)parhasard.net&gt; * automated/extent-tests.el: diff -r b3824b7f5627c37e193a69108848ccbd480d6817 -r efb76d6d0c1d07c4ff4cb603cf3a6c4efc81e189 tests/automated/keymap-tests.el --- a/tests/automated/keymap-tests.el +++ b/tests/automated/keymap-tests.el ＠＠ -27,43 +27,75 ＠＠ (help-map-copy t) (minor-mode-map-alist (acons 'help-map-copy map minor-mode-map-alist))) (set-keymap-parent map parent-map) - (loop for (keys def) on '((shift tab) help-prev-symbol tab - help-next-symbol c customize-variable V - find-variable-at-point q - help-mode-quit f find-function-at-point d - describe-function-at-point v - describe-variable-at-point i Info-elisp-ref F - find-function-at-point Q help-mode-bury button2 - help-mouse-find-source-or-track p - help-prev-section n help-next-section return - help-activate-function-or-scroll-up) + ;; Take care in choosing commands for these tests! Many of the commands + ;; here are defined in packages, which may not be available to make check. + (loop for (keys def) on '((shift tab) help-prev-symbol + tab help-next-symbol + c customize-variable + V find-variable-at-point + q help-mode-quit + f find-function-at-point + d describe-function-at-point + D describe-function-at-point + v describe-variable-at-point + i Info-elisp-ref + F find-function-at-point + Q help-mode-bury + button2 help-mouse-find-source-or-track + p help-prev-section + n help-next-section + return help-activate-function-or-scroll-up) by #'cddr do (define-key map (vector keys) def)) - (loop for (keys def) on '(u view-scroll-some-lines-down % view-goto-percent - \2 digit-argument p view-goto-percent \? - view-search-backward - negative-argument k - view-scroll-lines-down backspace scroll-down G - view-last-windowful f scroll-up \5 - digit-argument s view-repeat-search \0 - digit-argument n view-repeat-search = what-line - \\ view-search-backward delete scroll-down \8 - digit-argument E view-file d - view-scroll-some-lines-up \3 digit-argument q - view-quit ! shell-command (control j) - view-scroll-lines-up (control m) - view-scroll-lines-up y view-scroll-lines-down - linefeed view-scroll-lines-up g view-goto-line - \6 digit-argument t toggle-truncate-lines C - view-cleanup-backspaces b scroll-down \1 - digit-argument P view-buffer return - view-scroll-lines-up | shell-command-on-region j - view-scroll-lines-up \9 digit-argument \' - register-to-point e view-scroll-lines-up \4 - digit-argument r recenter space scroll-up / - view-search-forward N view-buffer m - point-to-register h view-mode-describe \7 - digit-argument - find-function-at-point view-mode-describe) + (loop for (keys def) on '(u view-scroll-some-lines-down + % view-goto-percent + \2 digit-argument + p view-goto-percent + \? view-search-backward + - negative-argument + k view-scroll-lines-down + backspace scroll-down + G view-last-windowful + f scroll-up + \5 digit-argument + s view-repeat-search + \0 digit-argument + n view-repeat-search + = what-line + \\ view-search-backward + delete scroll-down + \8 digit-argument + E view-file + d view-scroll-some-lines-up + \3 digit-argument + q view-quit + ! shell-command + (control j) view-scroll-lines-up + (control m) view-scroll-lines-up + y view-scroll-lines-down + linefeed view-scroll-lines-up + g view-goto-line + \6 digit-argument + t toggle-truncate-lines + C view-cleanup-backspaces + b scroll-down + \1 digit-argument + P view-buffer + return view-scroll-lines-up + | shell-command-on-region + j view-scroll-lines-up + \9 digit-argument + \' register-to-point + e view-scroll-lines-up + \4 digit-argument + r recenter + space scroll-up + / view-search-forward + N view-buffer + m point-to-register + h view-mode-describe + \7 digit-argument + describe-function-at-point view-mode-describe) by #'cddr do (define-key parent-map (vector keys) def)) (Assert (eq (key-binding [F]) 'find-function-at-point) ＠＠ -74,31 +106,31 ＠＠ "checking normal key parent lookup works, \\2") (Assert (eq (key-binding [|]) 'shell-command-on-region) "checking normal key parent lookup works, |") - (define-key map [remap find-function-at-point] #'find-file) - (Assert (eq (key-binding [F]) 'find-file) - "checking remapped key lookup works, F") - (Assert (eq (key-binding [f]) 'find-file) + (define-key map [remap describe-function-at-point] #'find-file) + (Assert (eq (key-binding [D]) 'find-file) + "checking remapped key lookup works, d") + (Assert (eq (key-binding [d]) 'find-file) "checking remapped key lookup works, f") (Assert (eq (key-binding [\2]) 'digit-argument) "checking normal key parent lookup works, \\2") (Assert (eq (key-binding [|]) 'shell-command-on-region) "checking normal key parent lookup works, |") - (Assert (eq (key-binding [find-function-at-point]) 'view-mode-describe) + (Assert (eq (key-binding [describe-function-at-point]) 'view-mode-describe) "checking remapped function doesn't affect key name mapping") (define-key parent-map [remap help-next-symbol] #'find-file) (Assert (eq (key-binding [tab]) 'find-file) "checking remapping in parent extends to child") (Assert (equal (commands-remapped-to 'find-file) - '(help-next-symbol find-function-at-point)) + '(help-next-symbol describe-function-at-point)) "checking #'commands-remapped-to is sane") (Check-Error wrong-type-argument (commands-remapped-to pi)) (Check-Error wrong-type-argument (commands-remapped-to 'find-file pi)) (Check-Error wrong-type-argument (commands-remapped-to 'find-file nil pi)) - (Assert (eq (command-remapping 'find-function-at-point) 'find-file) + (Assert (eq (command-remapping 'describe-function-at-point) 'find-file) "checking #'command-remapping is sane") (Check-Error wrong-type-argument (command-remapping pi)) - (Check-Error wrong-type-argument (command-remapping 'find-function-at-point + (Check-Error wrong-type-argument (command-remapping 'describe-function-at-point pi)) - (Check-Error wrong-type-argument (command-remapping 'find-function-at-point + (Check-Error wrong-type-argument (command-remapping 'describe-function-at-point nil pi))) Repository URL: https://bitbucket.org/xemacs/xemacs/ -- This is a commit notification from bitbucket.org. You are receiving this because you have the service enabled, addressing the recipient of this email. _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-patches