diff options
| author | Stefan Kangas <stefan@marxist.se> | 2021-09-18 13:12:41 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2021-09-18 13:14:50 +0200 |
| commit | dd1220b96972d77e5bbe1094586514bae63fe1eb (patch) | |
| tree | 1c5295b91b316ffc40931cd02c1f4fc028ec2097 /lisp/emacs-lisp/byte-opt.el | |
| parent | 11d6d6c3ea8d3f131b0b21db6e51a66d8b20d40e (diff) | |
| download | emacs-dd1220b96972d77e5bbe1094586514bae63fe1eb.tar.gz | |
; More stylistic docfixes in emacs-lisp/*.el found by checkdoc
Diffstat (limited to 'lisp/emacs-lisp/byte-opt.el')
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 966ef266b9a..c15814afa00 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -202,7 +202,7 @@ (intern (substring (symbol-name arg) 5)) arg) (if (integerp (setq c (car arg))) - (error "non-symbolic byte-op %s" c)) + (error "Non-symbolic byte-op %s" c)) (if (eq c 'TAG) (setq c arg) (setq a (cond ((memq c byte-goto-ops) @@ -1753,7 +1753,7 @@ See Info node `(elisp) Integer Basics'." (setq tags (delq tmp tags)) (setq rest (cdr rest)))) (setq rest (cdr rest)))) - (if tags (error "optimizer error: missed tags %s" tags)) + (if tags (error "Optimizer error: missed tags %s" tags)) ;; Remove addrs, lap = ( [ (op . arg) | (TAG tagno) ]* ) (mapcar (lambda (elt) (if (numberp elt) |