[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: address@hidden: occur and next-error-follow-minor-mode]
From: |
Juri Linkov |
Subject: |
Re: address@hidden: occur and next-error-follow-minor-mode] |
Date: |
Tue, 15 Nov 2005 04:18:19 +0200 |
User-agent: |
Gnus/5.110004 (No Gnus v0.4) Emacs/22.0.50 (gnu/linux) |
> From: "LaserDoodads" <address@hidden>
> Subject: occur and next-error-follow-minor-mode
> To: <address@hidden>
> Date: Sat, 12 Nov 2005 13:59:50 -0600
>
> I've always used next-error-follow-minor-mode in the *occur* buffer.
I want also to fix one inconvenience with using
`next-error-follow-minor-mode' in the *Occur* buffer where point always
moves to the end of the line, because n-e-f-m-m uses `next-error'
with the arg 0 to go to the occurrence on the current line.
The following patch doesn't move point for the arg 0.
Index: lisp/replace.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/replace.el,v
retrieving revision 1.230
diff -c -r1.230 replace.el
*** lisp/replace.el 9 Nov 2005 07:41:48 -0000 1.230
--- lisp/replace.el 15 Nov 2005 02:11:31 -0000
***************
*** 832,838 ****
(goto-char (cond (reset (point-min))
((< argp 0) (line-beginning-position))
! ((line-end-position))))
(occur-find-match
(abs argp)
(if (> 0 argp)
--- 836,843 ----
(goto-char (cond (reset (point-min))
((< argp 0) (line-beginning-position))
! ((> argp 0) (line-end-position))
! ((point))))
(occur-find-match
(abs argp)
(if (> 0 argp)
--
Juri Linkov
http://www.jurta.org/emacs/