From 43c7e05a2acadf1ba3ff24fba1706317e347a2ac Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Sat, 31 Dec 2022 12:31:13 +0100 Subject: Fix misspelled functions in shortdoc groups * lisp/emacs-lisp/shortdoc.el (file, list): Fix misspelled function names: 'file-writable-p' and 'seq-reduce'. * test/lisp/emacs-lisp/shortdoc-tests.el (subr-x): Require. (shortdoc-all-functions-fboundp): New test. --- lisp/emacs-lisp/shortdoc.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'lisp/emacs-lisp') diff --git a/lisp/emacs-lisp/shortdoc.el b/lisp/emacs-lisp/shortdoc.el index 90f81d740f2..86baca54e96 100644 --- a/lisp/emacs-lisp/shortdoc.el +++ b/lisp/emacs-lisp/shortdoc.el @@ -421,8 +421,8 @@ A FUNC form can have any number of `:no-eval' (or `:no-value'), (file-readable-p :no-eval (file-readable-p "/tmp/foo") :eg-result t) - (file-writeable-p - :no-eval (file-writeable-p "/tmp/foo") + (file-writable-p + :no-eval (file-writable-p "/tmp/foo") :eg-result t) (file-accessible-directory-p :no-eval (file-accessible-directory-p "/tmp") @@ -652,8 +652,8 @@ A FUNC form can have any number of `:no-eval' (or `:no-value'), :eval (mapcan #'list '(1 2 3))) (mapc :eval (mapc #'insert '("1" "2" "3"))) - (reduce - :eval (reduce #'+ '(1 2 3))) + (seq-reduce + :eval (seq-reduce #'+ '(1 2 3) 0)) (mapconcat :eval (mapconcat #'identity '("foo" "bar") "|")) "Predicates" -- cgit v1.2.3