Mercurial > emacs
comparison lisp/gnus/gnus-util.el @ 83652:5b644ae74c91
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 846-851)
- Update from CVS
- Merge from emacs--rel--22
* emacs--rel--22 (patch 88-92)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 242-244)
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--multi-tty--0--patch-31
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Mon, 13 Aug 2007 13:51:08 +0000 |
| parents | f0a07da7dd45 |
| children | f6c37512dd9e 424b655804ca |
comparison
equal
deleted
inserted
replaced
| 83651:47230f3f349b | 83652:5b644ae74c91 |
|---|---|
| 1106 (error "Not a symbol: %s" alist)) | 1106 (error "Not a symbol: %s" alist)) |
| 1107 (let ((fun (if assoc-p 'assoc 'assq))) | 1107 (let ((fun (if assoc-p 'assoc 'assq))) |
| 1108 `(setq ,alist (delq (,fun ,key ,alist) ,alist)))) | 1108 `(setq ,alist (delq (,fun ,key ,alist) ,alist)))) |
| 1109 | 1109 |
| 1110 (defun gnus-globalify-regexp (re) | 1110 (defun gnus-globalify-regexp (re) |
| 1111 "Return a regexp that matches a whole line, iff RE matches a part of it." | 1111 "Return a regexp that matches a whole line, if RE matches a part of it." |
| 1112 (concat (unless (string-match "^\\^" re) "^.*") | 1112 (concat (unless (string-match "^\\^" re) "^.*") |
| 1113 re | 1113 re |
| 1114 (unless (string-match "\\$$" re) ".*$"))) | 1114 (unless (string-match "\\$$" re) ".*$"))) |
| 1115 | 1115 |
| 1116 (defun gnus-set-window-start (&optional point) | 1116 (defun gnus-set-window-start (&optional point) |