comparison lisp/progmodes/ebrowse.el @ 28705:7c903a96e495

(ebrowse-tags-query-replace): Construct a form with additional arguments for perform-replace.

28704:351e38e6b866

  (interactive 
   "sTree query replace (regexp): \nsTree query replace %s by: ")
  (setq ebrowse-tags-loop-form
	(list 'and (list 'save-excursion
			 (list 're-search-forward from nil t))
	      (list 'not (list 'perform-replace from to t t nil))))
  (ebrowse-tags-loop-continue 'first-time))


;;; ###autoload
(defun ebrowse-tags-search-member-use (&optional fix-name)

28705:7c903a96e495

  (interactive 
   "sTree query replace (regexp): \nsTree query replace %s by: ")
  (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))))
  (ebrowse-tags-loop-continue 'first-time))


;;; ###autoload
(defun ebrowse-tags-search-member-use (&optional fix-name)