[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/replace.el
From: |
Richard M . Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/replace.el |
Date: |
Sat, 24 Jul 2004 17:38:01 -0400 |
Index: emacs/lisp/replace.el
diff -c emacs/lisp/replace.el:1.185 emacs/lisp/replace.el:1.186
*** emacs/lisp/replace.el:1.185 Sat Jul 17 14:34:42 2004
--- emacs/lisp/replace.el Sat Jul 24 21:34:47 2004
***************
*** 732,737 ****
--- 732,739 ----
#'previous-single-property-change
#'next-single-property-change)
"No more matches")
+ ;; In case the *Occur* buffer is visible in a nonselected window.
+ (set-window-point (get-buffer-window (current-buffer)) (point))
(occur-mode-goto-occurrence))
***************
*** 1009,1017 ****
;; concatenate them all together.
(apply #'concat
(nconc
! (occur-engine-add-prefix (nreverse (cdr
(occur-accumulate-lines (- (1+ nlines)) keep-props))))
(list out-line)
! (occur-engine-add-prefix (cdr
(occur-accumulate-lines (1+ nlines) keep-props))))))))
;; Actually insert the match display data
(with-current-buffer out-buf
(let ((beg (point))
--- 1011,1021 ----
;; concatenate them all together.
(apply #'concat
(nconc
! (occur-engine-add-prefix (nreverse (cdr
(occur-accumulate-lines (- (1+ (abs nlines))) keep-props))))
(list out-line)
! (if (> nlines 0)
! (occur-engine-add-prefix
! (cdr (occur-accumulate-lines (1+
nlines) keep-props)))))))))
;; Actually insert the match display data
(with-current-buffer out-buf
(let ((beg (point))
- [Emacs-diffs] Changes to emacs/lisp/replace.el, Juri Linkov, 2004/07/01
- [Emacs-diffs] Changes to emacs/lisp/replace.el, Richard M . Stallman, 2004/07/02
- [Emacs-diffs] Changes to emacs/lisp/replace.el, Juri Linkov, 2004/07/03
- [Emacs-diffs] Changes to emacs/lisp/replace.el, Stefan Monnier, 2004/07/05
- [Emacs-diffs] Changes to emacs/lisp/replace.el, Stefan Monnier, 2004/07/05
- [Emacs-diffs] Changes to emacs/lisp/replace.el, Stefan Monnier, 2004/07/05
- [Emacs-diffs] Changes to emacs/lisp/replace.el, Stefan Monnier, 2004/07/06
- [Emacs-diffs] Changes to emacs/lisp/replace.el, Richard M . Stallman, 2004/07/17
- [Emacs-diffs] Changes to emacs/lisp/replace.el,
Richard M . Stallman <=