;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\303\304\305\306\304\307\310\307\311\307&\"\210\303\312\305\306\312\313\314\307\311\307&\"\210\303\315\305\306\315\316\317\307\311\307&\"\210\303\320\305\306\320\321\322\307\311\307&\"\210\303\323\305\306\323\324\325\307\311\307&\"\210\303\326\305\306\326\307\327\307\311\307&\"\210\303\330\305\306\330\307\331\307\311\307&\"\210\303\332\305\306\332\307\333\307\311\307&\"\210\334\335!\207" [require which-key ert ert-set-test which-key-test--keymap-based-bindings record ert-test nil #[0 "\302 \303!\304 \210\305\306\307#\210\305\310\311#\210\305\312#\210\313\314\315\316\317%\210\320C\32115\322\323\324!)\325D0\202@\326\240\210\211@AD\262\327C\330C\331\332\333\334\335$\336\"\337$\216\340\242\"\240)\204g\341\242!\210\266\320C\3421{\322\323\343!)\344D0\202\206\326\240\210\211@AD\262\345C\330C\331\332\333\334\335$\346\"\337$\216\340\242\"\240)\204\255\341\242!\210\210\211\242\262\266\202)\207" [emacs-lisp-mode-map signal-hook-function make-sparse-keymap copy-keymap emacs-lisp-mode define-key "x" ignore "" complete "" which-key-add-keymap-based-replacements "C-c C-a" ("mycomplete" . complete) "C-c C-b" "mymap" equal (error) ert--should-signal-hook which-key--maybe-replace #1=("C-c C-a" . "complete") #2=("C-c C-a" . "mycomplete") signal #3=#:ert-form-evaluation-aborted-6892 nil make-byte-code 0 "\303\304C\305\300\242\301BD\244\306\302\242\307\"?\205\310\302\242D\244\311\312N\211\205%\313\314\301\"D\262\244\240\210\315\303\242!\207" vconcat vector [(should (equal (which-key--maybe-replace '#1#) '#2#)) :form eql #3# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7 apply ert-fail (error) #4=("C-c C-b" . #7="") #5=("C-c C-b" . "mymap") #6=#:ert-form-evaluation-aborted-6897 [(should (equal (which-key--maybe-replace '#4#) '#5#)) :form eql #6# :value equal ert-explainer :explanation apply ert--signal-should-execution]] 14] :passed which-key-test--prefix-declaration "Test `which-key-declare-prefixes' and\n`which-key-declare-prefixes-for-mode'. See Bug #109." #[0 "\303\304\305\306\307\310\311$\210\312\303\313\314\315\311%\210\316C\3171%\320\321\322!)\323D0\2020\324\240\210\211@AD\262\325C\304C\326\327\330\331\332$\333\"\334$\216\335\242\"\240)\204W\336\242!\210\266\316C\3371k\320\321\340!)\341D0\202v\324\240\210\211@AD\262\342C\304C\326\327\330\331\332$\343\"\334$\216\335\242\"\240)\204\235\336\242!\210\210\211\242\262\266\202*\207" [major-mode which-key-replacement-alist signal-hook-function test-mode nil which-key-add-key-based-replacements "SPC C-c" ("complete" . "complete title") "SPC C-k" "cancel" which-key-add-major-mode-key-based-replacements "C-c C-c" ("complete" . "complete title") "C-c C-k" equal (error) ert--should-signal-hook which-key--maybe-replace #8=("SPC C-k" . #7#) #9=("SPC C-k" . "cancel") signal #10=#:ert-form-evaluation-aborted-6902 make-byte-code 0 "\303\304C\305\300\242\301BD\244\306\302\242\307\"?\205\310\302\242D\244\311\312N\211\205%\313\314\301\"D\262\244\240\210\315\303\242!\207" vconcat vector [(should (equal (which-key--maybe-replace '#8#) '#9#)) :form eql #10# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7 apply ert-fail (error) #11=("C-c C-c" . #7#) #12=("C-c C-c" . "complete") #13=#:ert-form-evaluation-aborted-6907 [(should (equal (which-key--maybe-replace '#11#) '#12#)) :form eql #13# :value equal ert-explainer :explanation apply ert--signal-should-execution]] 13] which-key-test--maybe-replace "Test `which-key--maybe-replace'. See #154" #[0 "\303\304\305\211\306\307\310\311\211\312\313\314\315\316\317\320\321\322\323!\324\"\325\326%\327\317\320\321\322\323!\330\"\325\326%&\f\210\331C\3321A\333\334\335!)\336D0\202L\337\240\210\211@AD\262\340C\305C\317\341\342\322\323$\343\"\344$\216\345\242\"\240)\204s\346\242!\210\266\331C\3471\207\333\334\350!)\351D0\202\222\337\240\210\211@AD\262\352C\305C\317\341\342\322\323$\353\"\344$\216\345\242\"\240)\204\271\346\242!\210\266\331C\3541\315\333\334\355!)\356D0\202\330\337\240\210\211@AD\262\357C\305C\317\341\342\322\323$\360\"\344$\216\345\242\"\240)\204\377\346\242!\210\266\361C\3621\333\334\363!\364\232)C0\202\337\240\210\211@AD\262\365C\305C\317\341\342\322\323$\366\"\344$\216\345\242\"\240)\204F\346\242!\210\266\331C\3671Z\333\334\370!)\371D0\202e\337\240\210\211@AD\262\372C\305C\317\341\342\322\323$\373\"\344$\216\345\242\"\240)\204\214\346\242!\210\266\331C\3741\240\333\334\375!)\376D0\202\253\337\240\210\211@AD\262\377C\305C\317\341\342\322\323$\201@\"\344$\216\345\242\"\240)\204\324\346\242!\210\266\331C\201A1\356\333\334\201B!)\201CD0\202\371\337\240\210\211@AD\262\201DC\305C\317\341\342\322\323$\201E\"\344$\216\345\242\"\240)\204$\346\242!\210\266\331C\201F1>\333\334\201G!)\201HD0\202I\337\240\210\211@AD\262\201IC\305C\317\341\342\322\323$\201J\"\344$\216\345\242\"\240)\204t\346\242!\210\266\331C\201K1\216\333\334\201L!)\201MD0\202\231\337\240\210\211@AD\262\201NC\305C\317\341\342\322\323$\201O\"\344$\216\345\242\"\240)\204\304\346\242!\210\210\211\242\262\266\202*\207" [which-key-allow-multiple-replacements which-key-replacement-alist signal-hook-function ((("C-c [a-d]") "C-c a" . "c-c a") (("C-c .+") "C-c *" . "c-c *")) t nil which-key-add-key-based-replacements "C-c ." "test ." "SPC ." "C-c \\" "regexp quoting" "C-c [" "bad regexp" "SPC t1" make-byte-code 257 "\211@\300\203\n\301\202 \302B\207" vconcat vector ["[x] test mode" "[ ] test mode"] 3 "\n\n(fn KB)" "SPC t2" ["[x] test mode" "[ ] test mode"] equal (error) ert--should-signal-hook which-key--maybe-replace #14=("C-c g" . "test") #15=("C-c *" . "c-c *") signal #16=#:ert-form-evaluation-aborted-6912 0 "\303\304C\305\300\242\301BD\244\306\302\242\307\"?\205\310\302\242D\244\311\312N\211\205%\313\314\301\"D\262\244\240\210\315\303\242!\207" [(should (equal (which-key--maybe-replace '#14#) '#15#)) :form eql #16# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7 apply ert-fail (error) #17=("C-c b" . "test") #18=("C-c a" . "c-c a") #19=#:ert-form-evaluation-aborted-6917 [(should (equal (which-key--maybe-replace '#17#) '#18#)) :form eql #19# :value equal ert-explainer :explanation apply ert--signal-should-execution] (error) #20=("C-c ." . "not test .") #21=("C-c ." . "test .") #22=#:ert-form-evaluation-aborted-6922 [(should (equal (which-key--maybe-replace '#20#) '#21#)) :form eql #22# :value equal ert-explainer :explanation apply ert--signal-should-execution] not (error) #23=("C-c +" . "not test .") #24=("C-c ." . "test .") #25=#:ert-form-evaluation-aborted-6927 [(should (not (equal (which-key--maybe-replace '#23#) '#24#))) :form eql #25# :value not ert-explainer :explanation apply ert--signal-should-execution] (error) #26=("C-c [" . "orig bad regexp") #27=("C-c [" . "bad regexp") #28=#:ert-form-evaluation-aborted-6932 [(should (equal (which-key--maybe-replace '#26#) '#27#)) :form eql #28# :value equal ert-explainer :explanation apply ert--signal-should-execution] (error) #29=("C-c \\" . "pre quoting") #30=("C-c \\" . "regexp quoting") #31=#:ert-form-evaluation-aborted-6937 [(should (equal (which-key--maybe-replace '#29#) '#30#)) :form eql #31# :value equal ert-explainer :explanation apply ert--signal-should-execution] (error) #32=("SPC . ." . "don't replace") #33=("SPC . ." . "don't replace") #34=#:ert-form-evaluation-aborted-6942 [(should (equal (which-key--maybe-replace '#32#) '#33#)) :form eql #34# :value equal ert-explainer :explanation apply ert--signal-should-execution] (error) #35=("SPC t 1" . "test mode") #36=("SPC t 1" . "[x] test mode") #37=#:ert-form-evaluation-aborted-6947 [(should (equal (which-key--maybe-replace '#35#) '#36#)) :form eql #37# :value equal ert-explainer :explanation apply ert--signal-should-execution] (error) #38=("SPC t 2" . "test mode") #39=("SPC t 2" . "[ ] test mode") #40=#:ert-form-evaluation-aborted-6952 [(should (equal (which-key--maybe-replace '#38#) '#39#)) :form eql #40# :value equal ert-explainer :explanation apply ert--signal-should-execution]] 21] which-key-test--maybe-replace-multiple "Test `which-key-allow-multiple-replacements'. See #156." #[0 "\303\304\305C\3061\307\310\311!)\312D0\202!\313\240\210\211@AD\262\314C\315C\316\317\320\321\322$\323\"\324$\216\325\242\"\240)\204H\326\242!\210\266\305C\3271\\\307\310\330!)\331D0\202g\313\240\210\211@AD\262\332C\315C\316\317\320\321\322$\333\"\324$\216\325\242\"\240)\204\216\326\242!\210\266\305C\3341\242\307\310\335!)\336D0\202\255\313\240\210\211@AD\262\337C\315C\316\317\320\321\322$\340\"\324$\216\325\242\"\240)\204\324\326\242!\210\210\211\242\262\266\202*\207" [which-key-allow-multiple-replacements which-key-replacement-alist signal-hook-function (((nil . "helm") nil . "HLM") ((nil . "projectile") nil . "PRJTL")) t equal (error) ert--should-signal-hook which-key--maybe-replace #41=("C-c C-c" . "helm-x") #42=("C-c C-c" . "HLM-x") signal #43=#:ert-form-evaluation-aborted-6957 nil make-byte-code 0 "\303\304C\305\300\242\301BD\244\306\302\242\307\"?\205\310\302\242D\244\311\312N\211\205%\313\314\301\"D\262\244\240\210\315\303\242!\207" vconcat vector [(should (equal (which-key--maybe-replace '#41#) '#42#)) :form eql #43# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7 apply ert-fail (error) #44=("C-c C-c" . "projectile-x") #45=("C-c C-c" . "PRJTL-x") #46=#:ert-form-evaluation-aborted-6962 [(should (equal (which-key--maybe-replace '#44#) '#45#)) :form eql #46# :value equal ert-explainer :explanation apply ert--signal-should-execution] (error) #47=("C-c C-c" . "helm-projectile-x") #48=("C-c C-c" . "HLM-PRJTL-x") #49=#:ert-form-evaluation-aborted-6967 [(should (equal (which-key--maybe-replace '#47#) '#48#)) :form eql #49# :value equal ert-explainer :explanation apply ert--signal-should-execution]] 13] which-key-test--key-extraction "Test `which-key--extract-key'. See #161." #[0 "\301C\3021\303\304\305!)\306D0\202\307\240\210\211@AD\262\310C\311C\312\313\314\315\316$\317\"\320$\216\321\242\"\240)\204D\322\242!\210\266\301C\3231X\303\304\324!)\306D0\202c\307\240\210\211@AD\262\325C\311C\312\313\314\315\316$\326\"\320$\216\321\242\"\240)\204\212\322\242!\210\266\301C\3271\236\303\304\330!)\306D0\202\251\307\240\210\211@AD\262\331C\311C\312\313\314\315\316$\332\"\320$\216\321\242\"\240)\204\320\322\242!\210\266\301C\3331\344\303\304\334!)\335D0\202\357\307\240\210\211@AD\262\336C\311C\312\313\314\315\316$\337\"\320$\216\321\242\"\240)\204\322\242!\210\266\301C\3401*\303\304\341!)\335D0\2025\307\240\210\211@AD\262\342C\311C\312\313\314\315\316$\343\"\320$\216\321\242\"\240)\204\\\322\242!\210\210\211\242\262\207" [signal-hook-function equal (error) ert--should-signal-hook which-key--extract-key #50="SPC a" #51="a" signal #52=#:ert-form-evaluation-aborted-6972 nil make-byte-code 0 "\303\304C\305\300\242\301BD\244\306\302\242\307\"?\205\310\302\242D\244\311\312N\211\205%\313\314\301\"D\262\244\240\210\315\303\242!\207" vconcat vector [(should (equal (which-key--extract-key #50#) #51#)) :form eql #52# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7 apply ert-fail (error) #53="C-x a" #54=#:ert-form-evaluation-aborted-6977 [(should (equal (which-key--extract-key #53#) "a")) :form eql #54# :value equal ert-explainer :explanation apply ert--signal-should-execution] (error) #55=" b a" #56=#:ert-form-evaluation-aborted-6982 [(should (equal (which-key--extract-key #55#) "a")) :form eql #56# :value equal ert-explainer :explanation apply ert--signal-should-execution] (error) #57=" a .. c" #58="a .. c" #59=#:ert-form-evaluation-aborted-6987 [(should (equal (which-key--extract-key #57#) #58#)) :form eql #59# :value equal ert-explainer :explanation apply ert--signal-should-execution] (error) #60="M-a a .. c" #61=#:ert-form-evaluation-aborted-6992 [(should (equal (which-key--extract-key #60#) "a .. c")) :form eql #61# :value equal ert-explainer :explanation apply ert--signal-should-execution]] 13] which-key-test--get-keymap-bindings #[0 "\302 \303\304\305\306#\210\304\307\310#\210\304\311\211#\210\304\312\211#\210\304\313\211#\210\304\314\315#\210\316C\3171=\320\321\322!\323\")\324D0\202H\325\240\210\211@AD\262\326C\303C\327\330\331\332\333$\334\"\335$\216\336\242\"\240)\204o\337\242!\210\266\316C\3401\207\320\321\322\341\"\342\")\343D0\202\222\325\240\210\211@AD\262\344C\303C\327\330\331\332\333$\345\"\335$\216\336\242\"\240)\204\271\337\242!\210\210\211\242\262\266\202)\207" [which-key-replacement-alist signal-hook-function make-sparse-keymap nil define-key [which-key-a] (which-key "blah") "b" ignore "c" "dd" "eee" "f" [123 45 6] equal (error) ert--should-signal-hook sort which-key--get-keymap-bindings #[514 "@@\231\207" #64=[] 4 "\n\n(fn A B)"] #62=(("b" . "ignore") ("c" . "c") ("d" . "Prefix Command") ("e" . "Prefix Command") ("f" . "{ - C-f")) signal #63=#:ert-form-evaluation-aborted-6997 make-byte-code 0 "\303\304C\305\300\242\301BD\244\306\302\242\307\"?\205\310\302\242D\244\311\312N\211\205%\313\314\301\"D\262\244\240\210\315\303\242!\207" vconcat vector [(should (equal (sort (which-key--get-keymap-bindings map) (lambda (a b) (string-lessp (car a) (car b)))) '#62#)) :form eql #63# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7 apply ert-fail (error) t #[514 "@@\231\207" #64# 4 "\n\n(fn A B)"] #65=(("b" . "ignore") ("c" . "c") ("d d" . "dd") ("e e e" . "eee") ("f" . "{ - C-f")) #66=#:ert-form-evaluation-aborted-7002 [(should (equal (sort (which-key--get-keymap-bindings map t) (lambda (a b) (string-lessp (car a) (car b)))) '#65#)) :form eql #66# :value equal ert-explainer :explanation apply ert--signal-should-execution]] 14] which-key-test--nil-replacement #[0 "\302\303C\3041\305\306\307!)\310D0\202\311\240\210\211@AD\262\312C\310C\313\314\315\316\317$\320\"\321$\216\322\242\"\240)\204F\323\242!\210\210\211\242\262\266\202)\207" [which-key-replacement-alist signal-hook-function (((nil . "winum-select-window-[1-9]") . t)) equal (error) ert--should-signal-hook which-key--maybe-replace #67=("C-c C-c" . "winum-select-window-1") nil signal #68=#:ert-form-evaluation-aborted-7007 make-byte-code 0 "\303\304C\305\300\242\301BD\244\306\302\242\307\"?\205\310\302\242D\244\311\312N\211\205%\313\314\301\"D\262\244\240\210\315\303\242!\207" vconcat vector [(should (equal (which-key--maybe-replace '#67#) 'nil)) :form eql #68# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7 apply ert-fail] 13] which-key-test--key-sorting #[0 "\302\303\304C\3051\306\307\310\311\312!\313\"\")\314D0\202&\315\240\210\211@AD\262\316C\317C\320\321\322\323\324$\325\"\326$\216\327\242\"\240)\204M\330\242!\210\266)\317\304C\3311j\306\307\310\311\312!\313\"\")\332D0\202u\315\240\210\211@AD\262\333C\317C\320\321\322\323\324$\334\"\326$\216\327\242\"\240)\204\234\330\242!\210\266)\303\304C\3351\271\306\307\310\311\312!\336\"\")\337D0\202\304\315\240\210\211@AD\262\340C\317C\320\321\322\323\324$\341\"\326$\216\327\242\"\240)\204\353\330\242!\210\266)\317\304C\3421\306\307\310\311\312!\336\"\")\343D0\202\315\240\210\211@AD\262\344C\317C\320\321\322\323\324$\345\"\326$\216\327\242\"\240)\204:\330\242!\210\266)\303\304C\3461W\306\307\310\311\312!\347\"\")\350D0\202b\315\240\210\211@AD\262\351C\317C\320\321\322\323\324$\352\"\326$\216\327\242\"\240)\204\211\330\242!\210\266)\317\304C\3531\246\306\307\310\311\312!\347\"\")\354D0\202\261\315\240\210\211@AD\262\355C\317C\320\321\322\323\324$\356\"\326$\216\327\242\"\240)\204\330\330\242!\210\266)\303\304C\3571\365\306\307\310\311\312!\360\"\")\361D0\202\315\240\210\211@AD\262\362C\317C\320\321\322\323\324$\363\"\326$\216\327\242\"\240)\204'\330\242!\210\266)\317\304C\3641D\306\307\310\311\312!\360\"\")\365D0\202O\315\240\210\211@AD\262\366C\317C\320\321\322\323\324$\367\"\326$\216\327\242\"\240)\204v\330\242!\210\266)\303\304C\3701\223\306\307\310\311\312!\371\"\")\372D0\202\236\315\240\210\211@AD\262\373C\317C\320\321\322\323\324$\374\"\326$\216\327\242\"\240)\204\305\330\242!\210\266)\317\304C\3751\342\306\307\310\311\312!\371\"\")\376D0\202\355\315\240\210\211@AD\262\377C\317C\320\321\322\323\324$\201@\"\326$\216\327\242\"\240)\204\330\242!\210\210\211\242\262\266\202)\207" [which-key-sort-uppercase-first signal-hook-function (("a" . "z") ("A" . "Z") ("b" . "y") ("B" . "Y") ("p" . "Prefix") ("SPC" . "x") ("C-a" . "w")) t equal (error) ert--should-signal-hook mapcar car sort copy-sequence which-key-key-order #69=("SPC" "A" "B" "a" "b" "p" "C-a") signal #70=#:ert-form-evaluation-aborted-7012 nil make-byte-code 0 "\303\304C\305\300\242\301BD\244\306\302\242\307\"?\205\310\302\242D\244\311\312N\211\205%\313\314\301\"D\262\244\240\210\315\303\242!\207" vconcat vector [(should (equal (mapcar 'car (sort (copy-sequence keys) 'which-key-key-order)) '#69#)) :form eql #70# :value equal ert-explainer :explanation apply ert--signal-should-execution] 7 apply ert-fail (error) #71=("SPC" "a" "b" "p" "A" "B" "C-a") #72=#:ert-form-evaluation-aborted-7017 [(should (equal (mapcar 'car (sort (copy-sequence keys) 'which-key-key-order)) '#71#)) :form eql #72# :value equal ert-explainer :explanation apply ert--signal-should-execution] (error) which-key-key-order-alpha #73=("SPC" "A" "a" "B" "b" "p" "C-a") #74=#:ert-form-evaluation-aborted-7022 [(should (equal (mapcar 'car (sort (copy-sequence keys) 'which-key-key-order-alpha)) '#73#)) :form eql #74# :value equal ert-explainer :explanation apply ert--signal-should-execution] (error) #75=("SPC" "a" "A" "b" "B" "p" "C-a") #76=#:ert-form-evaluation-aborted-7027 [(should (equal (mapcar 'car (sort (copy-sequence keys) 'which-key-key-order-alpha)) '#75#)) :form eql #76# :value equal ert-explainer :explanation apply ert--signal-should-execution] (error) which-key-prefix-then-key-order #77=("SPC" "A" "B" "a" "b" "C-a" "p") #78=#:ert-form-evaluation-aborted-7032 [(should (equal (mapcar 'car (sort (copy-sequence keys) 'which-key-prefix-then-key-order)) '#77#)) :form eql #78# :value equal ert-explainer :explanation apply ert--signal-should-execution] (error) #79=("SPC" "a" "b" "A" "B" "C-a" "p") #80=#:ert-form-evaluation-aborted-7037 [(should (equal (mapcar 'car (sort (copy-sequence keys) 'which-key-prefix-then-key-order)) '#79#)) :form eql #80# :value equal ert-explainer :explanation apply ert--signal-should-execution] (error) which-key-prefix-then-key-order-reverse #81=("p" "SPC" "A" "B" "a" "b" "C-a") #82=#:ert-form-evaluation-aborted-7042 [(should (equal (mapcar 'car (sort (copy-sequence keys) 'which-key-prefix-then-key-order-reverse)) '#81#)) :form eql #82# :value equal ert-explainer :explanation apply ert--signal-should-execution] (error) #83=("p" "SPC" "a" "b" "A" "B" "C-a") #84=#:ert-form-evaluation-aborted-7047 [(should (equal (mapcar 'car (sort (copy-sequence keys) 'which-key-prefix-then-key-order-reverse)) '#83#)) :form eql #84# :value equal ert-explainer :explanation apply ert--signal-should-execution] (error) which-key-description-order #85=("p" "C-a" "SPC" "b" "B" "a" "A") #86=#:ert-form-evaluation-aborted-7052 [(should (equal (mapcar 'car (sort (copy-sequence keys) 'which-key-description-order)) '#85#)) :form eql #86# :value equal ert-explainer :explanation apply ert--signal-should-execution] (error) #87=("p" "C-a" "SPC" "b" "B" "a" "A") #88=#:ert-form-evaluation-aborted-7057 [(should (equal (mapcar 'car (sort (copy-sequence keys) 'which-key-description-order)) '#87#)) :form eql #88# :value equal ert-explainer :explanation apply ert--signal-should-execution]] 14] provide which-key-tests] 10)