[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-util.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-util.el |
Date: |
Tue, 07 Dec 2004 17:11:54 -0500 |
Index: emacs/lisp/gnus/gnus-util.el
diff -c emacs/lisp/gnus/gnus-util.el:1.22 emacs/lisp/gnus/gnus-util.el:1.23
*** emacs/lisp/gnus/gnus-util.el:1.22 Tue Oct 19 22:38:27 2004
--- emacs/lisp/gnus/gnus-util.el Tue Dec 7 21:56:39 2004
***************
*** 60,69 ****
((fboundp 'replace-in-string)
(defalias 'gnus-replace-in-string 'replace-in-string))
((fboundp 'replace-regexp-in-string)
! (defun gnus-replace-in-string (string regexp newtext &optional literal)
(replace-regexp-in-string regexp newtext string nil literal)))
(t
(defun gnus-replace-in-string (string regexp newtext &optional literal)
(let ((start 0) tail)
(while (string-match regexp string start)
(setq tail (- (length string) (match-end 0)))
--- 60,79 ----
((fboundp 'replace-in-string)
(defalias 'gnus-replace-in-string 'replace-in-string))
((fboundp 'replace-regexp-in-string)
! (defun gnus-replace-in-string (string regexp newtext &optional literal)
! "Replace all matches for REGEXP with NEWTEXT in STRING.
! If LITERAL is non-nil, insert NEWTEXT literally. Return a new
! string containing the replacements.
!
! This is a compatibility function for different Emacsen."
(replace-regexp-in-string regexp newtext string nil literal)))
(t
(defun gnus-replace-in-string (string regexp newtext &optional literal)
+ "Replace all matches for REGEXP with NEWTEXT in STRING.
+ If LITERAL is non-nil, insert NEWTEXT literally. Return a new
+ string containing the replacements.
+
+ This is a compatibility function for different Emacsen."
(let ((start 0) tail)
(while (string-match regexp string start)
(setq tail (- (length string) (match-end 0)))
- [Emacs-diffs] Changes to emacs/lisp/gnus/gnus-util.el,
Miles Bader <=