emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-util.el [emacs-unicode-2]


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/lisp/gnus/gnus-util.el [emacs-unicode-2]
Date: Wed, 08 Dec 2004 01:48:39 -0500

Index: emacs/lisp/gnus/gnus-util.el
diff -c emacs/lisp/gnus/gnus-util.el:1.18.6.4 
emacs/lisp/gnus/gnus-util.el:1.18.6.5
*** emacs/lisp/gnus/gnus-util.el:1.18.6.4       Fri Oct 22 10:13:32 2004
--- emacs/lisp/gnus/gnus-util.el        Wed Dec  8 05:02:25 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)))




reply via email to

[Prev in Thread] Current Thread [Next in Thread]