mirror of
https://github.com/masscollaborationlabs/emacs.git
synced 2025-07-10 22:20:51 +00:00
Fix tests and documentation for hook
This commit is contained in:
parent
24c50da3b2
commit
ee292b80be
1 changed files with 7 additions and 5 deletions
|
@ -998,15 +998,17 @@
|
|||
'foopkg :hook args)))
|
||||
(should-error (norm nil))
|
||||
(should (equal (norm '(bar))
|
||||
'((bar . foopkg-mode))))
|
||||
(should (equal (norm '((bar . foopkg)))
|
||||
'((bar . foopkg))))
|
||||
(should (equal (norm '((bar . baz)))
|
||||
'((bar . baz))))
|
||||
(should (equal (norm '(((bar baz) . quux)))
|
||||
'(((bar baz) . quux))))
|
||||
(should (equal (norm '(bar baz))
|
||||
'(((bar baz) . foopkg))))
|
||||
'(((bar baz) . foopkg-mode))))
|
||||
(should (equal (norm '((bar baz) (quux bow)))
|
||||
'(((bar baz) . foopkg) ((quux bow) . foopkg))))
|
||||
'(((bar baz) . foopkg-mode) ((quux bow) . foopkg-mode))))
|
||||
(should (equal (norm '((bar . baz) (quux . bow)))
|
||||
'((bar . baz) (quux . bow))))
|
||||
(should (equal (norm '(((bar1 bar2) . baz) ((quux1 quux2) . bow)))
|
||||
|
@ -1945,9 +1947,9 @@
|
|||
(use-package nonexistent
|
||||
:hook lisp-mode)
|
||||
`(when (locate-library nonexistent)
|
||||
(unless (fboundp 'nonexistent)
|
||||
(autoload #'nonexistent "nonexistent" nil t))
|
||||
(add-hook 'lisp-mode-hook #'nonexistent)))))
|
||||
(unless (fboundp 'nonexistent-mode)
|
||||
(autoload #'nonexistent-mode "nonexistent" nil t))
|
||||
(add-hook 'lisp-mode-hook #'nonexistent-mode)))))
|
||||
|
||||
(ert-deftest bind-key/:prefix-map ()
|
||||
(match-expansion
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue