From: Glenn Morris <rgm@gnu.org>
Date: Tue, 11 Dec 2012 04:44:26 +0000 (-0800)
Subject: * lisp/net/rcirc.el (rcirc-urls, rcirc-condition-filter): Doc fixes.
X-Git-Tag: emacs-24.3.90~173^2~7^2~637
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=36327e4ffc03cc71d15be5fc381a08ec082bf60c;p=emacs.git

* lisp/net/rcirc.el (rcirc-urls, rcirc-condition-filter): Doc fixes.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2aafbd758d7..c07c9627d1c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2012-12-11  Glenn Morris  <rgm@gnu.org>
 
+	* net/rcirc.el (rcirc-urls, rcirc-condition-filter): Doc fixes.
+
 	* progmodes/f90.el (f90-line-continued, f90-indent-region):
 	Treat preprocessor lines embedded in continuations like comments.
 	(f90-indent-line): Special-case preprocessor lines.  (Bug#13138)
diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index fa5bc4a9822..16644b57549 100644
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -406,8 +406,7 @@ will be killed."
   "The channel or user associated with this buffer.")
 
 (defvar rcirc-urls nil
-  "List of URLs seen in the current buffer and the position in
-the buffer where the URL starts.")
+  "List of URLs seen in the current buffer and their start positions.")
 (put 'rcirc-urls 'permanent-local t)
 
 (defvar rcirc-timeout-seconds 600
@@ -2393,9 +2392,11 @@ keywords when no KEYWORD is given."
    "\\)")
   "Regexp matching URLs.  Set to nil to disable URL features in rcirc.")
 
+;; cf cl-remove-if-not
 (defun rcirc-condition-filter (condp lst)
-  "Given a condition and a list, returns the list with elements
-that do not satisfy the condition removed."
+  "Remove all items not satisfying condition CONDP in list LST.
+CONDP is a function that takes a list element as argument and returns
+non-nil if that element should be included.  Returns a new list."
   (delq nil (mapcar (lambda (x) (and (funcall condp x) x)) lst)))
 
 (defun rcirc-browse-url (&optional arg)