procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Adapt to change in perform-replace.

Browse source
This commit is contained in:
Gerd Moellmann 2001-10-24 12:37:08 +00:00
parent 99a7559fb3
commit 8c8f9bc197
2 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/progmodes/ebrowse.el
View file

@ -1,6 +1,7 @@
;;; ebrowse.el --- Emacs C++ class browser & tags facility
;; Copyright (C) 1992, 93, 94, 95, 96, 97, 98, 99, 2000 Free Software Foundation Inc.
;; Copyright (C) 1992, 93, 94, 95, 96, 97, 98, 99, 2000, 2001
;; Free Software Foundation Inc.
;; Author: Gerd Moellmann <gerd@gnu.org>
;; Maintainer: FSF
@ -3818,7 +3819,7 @@ With prefix arg, process files of marked classes only."
(setq ebrowse-tags-loop-form
(list 'and (list 'save-excursion
(list 're-search-forward from nil t))
(list 'not (list 'perform-replace from to nil nil t t nil))))
(list 'not (list 'perform-replace from to t t nil))))
(ebrowse-tags-loop-continue 'first-time))

3
lisp/progmodes/etags.el
View file

@ -1,4 +1,5 @@
;;; etags.el --- etags facility for Emacs
;; Copyright (C) 1985, 86, 88, 89, 92, 93, 94, 95, 96, 98, 2000, 2001
;; Free Software Foundation, Inc.
@ -1743,7 +1744,7 @@ See documentation of variable `tags-file-name'."
;; will see it.
'(goto-char (match-beginning 0))))
tags-loop-operate (list 'perform-replace
(list 'quote from) (list 'quote to) nil nil
(list 'quote from) (list 'quote to)
t t (list 'quote delimited)))
(tags-loop-continue (or file-list-form t)))