mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Glenn Morris 2012-12-10 20:44:26 -08:00
parent a0099d31a6
commit 36327e4ffc
2 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

@ -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)

9
lisp/net/rcirc.el
View file

@ -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)