Mercurial > emacs
changeset 68128:b1c80dc9a67d
(mh-index-next-folder): Don't back up a line when going backwards
since this skips the current folder heading if point is on the first
message after the folder heading (closes SF #1126188).
| author | Bill Wohler <wohler@newt.com> |
|---|---|
| date | Wed, 11 Jan 2006 01:49:32 +0000 |
| parents | 40429cab94e1 |
| children | 6f5da26b0df1 |
| files | lisp/mh-e/ChangeLog lisp/mh-e/mh-index.el |
| diffstat | 2 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mh-e/ChangeLog Tue Jan 10 23:55:42 2006 +0000 +++ b/lisp/mh-e/ChangeLog Wed Jan 11 01:49:32 2006 +0000 @@ -2,6 +2,9 @@ * mh-index.el (mh-index-search): Checking mh-find-path-run is unnecessary. + (mh-index-next-folder): Don't back up a line when going backwards + since this skips the current folder heading if point is on the + first message after the folder heading (closes SF #1126188). * mh-init.el (mh-sys-path): Co-locate with mh-variants, which uses it.
--- a/lisp/mh-e/mh-index.el Tue Jan 10 23:55:42 2006 +0000 +++ b/lisp/mh-e/mh-index.el Wed Jan 11 01:49:32 2006 +0000 @@ -749,7 +749,7 @@ (if (null mh-index-data) (message "Only applicable in an MH-E index search buffer") (let ((point (point))) - (forward-line (if backward-flag -1 1)) + (forward-line (if backward-flag 0 1)) (cond ((if backward-flag (re-search-backward "^+" (point-min) t) (re-search-forward "^+" (point-max) t))