diff options
Diffstat (limited to 'scripts/kde-emacs/kde-emacs-compat.el')
| -rw-r--r-- | scripts/kde-emacs/kde-emacs-compat.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/scripts/kde-emacs/kde-emacs-compat.el b/scripts/kde-emacs/kde-emacs-compat.el index 2cddbb1e..baa88a4d 100644 --- a/scripts/kde-emacs/kde-emacs-compat.el +++ b/scripts/kde-emacs/kde-emacs-compat.el @@ -22,8 +22,8 @@ (require 'kde-emacs-vars) ;;GNU/Emacs does not have this one -(if (not (fboundp 'tqreplace-in-string)) - (defun tqreplace-in-string (str regexp newtext &optional literal) +(if (not (fboundp 'replace-in-string)) + (defun replace-in-string (str regexp newtext &optional literal) "Replace all matches in STR for REGEXP with NEWTEXT string, and returns the new string. Optional LITERAL non-nil means do a literal replacement. @@ -42,11 +42,11 @@ Otherwise treat `\\' in NEWTEXT as special: (insert str) (goto-char 1) (while (re-search-forward regexp nil t) - (tqreplace-match newtext t literal)) + (replace-match newtext t literal)) (buffer-string)) (let ((start 0) newstr) (while (string-match regexp str start) - (setq newstr (tqreplace-match newtext t literal str) + (setq newstr (replace-match newtext t literal str) start (+ (match-end 0) (- (length newstr) (length str))) str newstr)) str))) |