/[emacs]/emacs/lisp/replace.el
ViewVC logotype

Diff of /emacs/lisp/replace.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.148.2.13 by miles, Fri Jul 23 04:42:20 2004 UTC revision 1.148.2.14 by miles, Sat Sep 4 09:18:38 2004 UTC
# Line 732  Compatibility function for \\[next-error Line 732  Compatibility function for \\[next-error
732         #'previous-single-property-change         #'previous-single-property-change
733       #'next-single-property-change)       #'next-single-property-change)
734     "No more matches")     "No more matches")
735      ;; In case the *Occur* buffer is visible in a nonselected window.
736      (set-window-point (get-buffer-window (current-buffer)) (point))
737    (occur-mode-goto-occurrence))    (occur-mode-goto-occurrence))
738    
739    
# Line 1009  See also `multi-occur'." Line 1011  See also `multi-occur'."
1011                                ;; concatenate them all together.                                ;; concatenate them all together.
1012                                (apply #'concat                                (apply #'concat
1013                                       (nconc                                       (nconc
1014                                        (occur-engine-add-prefix (nreverse (cdr (occur-accumulate-lines (- (1+ nlines)) keep-props))))                                        (occur-engine-add-prefix (nreverse (cdr (occur-accumulate-lines (- (1+ (abs nlines))) keep-props))))
1015                                        (list out-line)                                        (list out-line)
1016                                        (occur-engine-add-prefix (cdr (occur-accumulate-lines (1+ nlines) keep-props))))))))                                        (if (> nlines 0)
1017                                              (occur-engine-add-prefix
1018                                               (cdr (occur-accumulate-lines (1+ nlines) keep-props)))))))))
1019                        ;; Actually insert the match display data                        ;; Actually insert the match display data
1020                        (with-current-buffer out-buf                        (with-current-buffer out-buf
1021                          (let ((beg (point))                          (let ((beg (point))

Legend:
Removed from v.1.148.2.13  
changed lines
  Added in v.1.148.2.14

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26