[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r111185: * lisp/net/rcirc.el (rcirc-u
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r111185: * lisp/net/rcirc.el (rcirc-urls, rcirc-condition-filter): Doc fixes. |
Date: |
Mon, 10 Dec 2012 20:44:26 -0800 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 111185
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Mon 2012-12-10 20:44:26 -0800
message:
* lisp/net/rcirc.el (rcirc-urls, rcirc-condition-filter): Doc fixes.
modified:
lisp/ChangeLog
lisp/net/rcirc.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2012-12-11 04:42:49 +0000
+++ b/lisp/ChangeLog 2012-12-11 04:44:26 +0000
@@ -1,5 +1,7 @@
2012-12-11 Glenn Morris <address@hidden>
+ * 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)
=== modified file 'lisp/net/rcirc.el'
--- a/lisp/net/rcirc.el 2012-12-05 16:45:37 +0000
+++ b/lisp/net/rcirc.el 2012-12-11 04:44:26 +0000
@@ -406,8 +406,7 @@
"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 @@
"\\)")
"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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r111185: * lisp/net/rcirc.el (rcirc-urls, rcirc-condition-filter): Doc fixes.,
Glenn Morris <=