From 63812fc80f280d4e1133f8b934fc17320e88fff2 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 16 Nov 2011 14:11:56 +0000 Subject: [PATCH] Fix typos. --- lisp/ChangeLog | 6 ++++++ lisp/gnus-agent.el | 2 +- lisp/registry.el | 4 ++-- 3 files changed, 9 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index dc6879d8c..e1fea2ae1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2011-11-16 Juanma Barranquero + + * gnus-agent.el (gnus-agent-expire-unagentized-dirs): + * registry.el (registry-lookup, registry-lookup-breaks-before-lexbind): + Fix typos. + 2011-11-15 Juanma Barranquero * gnus-art.el (gnus-article-part-wrapper): diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el index 669f96755..32e40f68f 100644 --- a/lisp/gnus-agent.el +++ b/lisp/gnus-agent.el @@ -3613,7 +3613,7 @@ articles in every agentized group? ")) (setq r d d (directory-file-name d))) ;; if ANY ancestor was NOT in keep hash and - ;; it it's already in to-remove, add it to + ;; it's already in to-remove, add it to ;; to-remove. (if (and r (not (member r to-remove))) diff --git a/lisp/registry.el b/lisp/registry.el index 8e158f7ca..5fd309a5c 100644 --- a/lisp/registry.el +++ b/lisp/registry.el @@ -149,7 +149,7 @@ (defmethod registry-lookup ((db registry-db) keys) "Search for KEYS in the registry-db THIS. -Returns a alist of the key followed by the entry in a list, not a cons cell." +Returns an alist of the key followed by the entry in a list, not a cons cell." (let ((data (oref db :data))) (delq nil (mapcar @@ -160,7 +160,7 @@ Returns a alist of the key followed by the entry in a list, not a cons cell." (defmethod registry-lookup-breaks-before-lexbind ((db registry-db) keys) "Search for KEYS in the registry-db THIS. -Returns a alist of the key followed by the entry in a list, not a cons cell." +Returns an alist of the key followed by the entry in a list, not a cons cell." (let ((data (oref db :data))) (delq nil (loop for key in keys -- 2.34.1