diff options
author | Stefan Kangas <stefan@marxist.se> | 2021-09-14 07:55:56 +0200 |
---|---|---|
committer | Stefan Kangas <stefan@marxist.se> | 2021-09-14 07:57:14 +0200 |
commit | 25ebb9374bdadf66153727831fc7ff131c8cf299 (patch) | |
tree | 7ed04a5efe70f4f6e66118aebd9ccee12275d6bf /lisp/emacs-lisp/macroexp.el | |
parent | cf2fa6c87f4da4665ff8a9e8e220bba0b5bccefc (diff) | |
download | emacs-25ebb9374bdadf66153727831fc7ff131c8cf299.tar.gz emacs-25ebb9374bdadf66153727831fc7ff131c8cf299.tar.bz2 emacs-25ebb9374bdadf66153727831fc7ff131c8cf299.zip |
; More minor docfixes found by checkdoc
Diffstat (limited to 'lisp/emacs-lisp/macroexp.el')
-rw-r--r-- | lisp/emacs-lisp/macroexp.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/macroexp.el b/lisp/emacs-lisp/macroexp.el index 61c1ea490f0..1e4fdd126cb 100644 --- a/lisp/emacs-lisp/macroexp.el +++ b/lisp/emacs-lisp/macroexp.el @@ -243,19 +243,19 @@ is executed without being compiled first." (while arglist (cond ((eq (car arglist) '&optional) ;; ok, I'll let this slide because funcall_lambda() does... - ;; (if optionalp (error "multiple &optional keywords in %s" name)) + ;; (if optionalp (error "Multiple &optional keywords in %s" name)) (if restp (error "&optional found after &rest in %s" name)) (if (null (cdr arglist)) - (error "nothing after &optional in %s" name)) + (error "Nothing after &optional in %s" name)) (setq optionalp t)) ((eq (car arglist) '&rest) ;; ...but it is by no stretch of the imagination a reasonable ;; thing that funcall_lambda() allows (&rest x y) and ;; (&rest x &optional y) in arglists. (if (null (cdr arglist)) - (error "nothing after &rest in %s" name)) + (error "Nothing after &rest in %s" name)) (if (cdr (cdr arglist)) - (error "multiple vars after &rest in %s" name)) + (error "Multiple vars after &rest in %s" name)) (setq restp t)) (restp (setq bindings (cons (list (car arglist) |