/[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.127 by rms, Tue Jan 8 06:12:37 2002 UTC revision 1.128 by rms, Fri Jan 25 05:04:49 2002 UTC
# Line 799  the matching is case-sensitive." Line 799  the matching is case-sensitive."
799                    (add-text-properties                    (add-text-properties
800                     (marker-position text-beg) (- (marker-position text-end) 1)                     (marker-position text-beg) (- (marker-position text-end) 1)
801                     '(mouse-face highlight                     '(mouse-face highlight
802                       help-echo "mouse-2: go to this occurence"))                       help-echo "mouse-2: go to this occurrence"))
803                    (put-text-property (marker-position text-beg)                    (put-text-property (marker-position text-beg)
804                                       (marker-position text-end)                                       (marker-position text-end)
805                                       'occur occur-marker)                                       'occur occur-marker)

Legend:
Removed from v.1.127  
changed lines
  Added in v.1.128

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