On Mon, Nov 11, 2019 at 7:33 PM Paul Eggert <
address@hidden> wrote:
>
> branch: master
> commit 6b4a97c1c78f39ce890d100acceceb652d14e20d
> Author: Paul Eggert <
address@hidden>
> Commit: Paul Eggert <
address@hidden>
>
> Fix some quoting glitches in doc strings
The following two are likely typos.
> @@ -1459,7 +1459,7 @@ group."
> (while (and allservers (not found))
> (setq mairixserver (gnus-server-to-method (car (pop allservers))))
> ;; First we look if SERVER is the backend of current nnmairix server
> - (setq found (and (eq (cadr (assoc 'nnmairix-backend mairixserver))
> + (setq found (and (eq (cadr (assoc `nnmairix-backend mairixserver))
> (car server))
> (string= (cadr (assoc 'nnmairix-backend-server mairixserver))
> (nth 1 server))))
> diff --git a/lisp/obsolete/vip.el b/lisp/obsolete/vip.el
> index 9943fb2..4d24e69 100644
> --- a/lisp/obsolete/vip.el
> +++ b/lisp/obsolete/vip.el
> @@ -2250,7 +2250,7 @@ a token has type \(command, address, end-mark\) and value."
> (forward-char 1)
> (cond ((looking-at "'") (setq ex-token nil))
> ((looking-at "[a-z]") (setq ex-token (following-char)))
> - (t (error "Marks are ' and a-z")))
> + (t (error "%s" "Marks are ' and a-z" ?')))
> (forward-char 1))
> ((looking-at "\n")
> (setq ex-token-type "end-mark")