emacs-commit
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-commit] emacs/lisp/mh-e mh-index.el ChangeLog


From: Bill Wohler
Subject: [Emacs-commit] emacs/lisp/mh-e mh-index.el ChangeLog
Date: Wed, 11 Jan 2006 01:49:32 +0000

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Branch:         
Changes by:     Bill Wohler <address@hidden>    06/01/11 01:49:32

Modified files:
        lisp/mh-e      : mh-index.el ChangeLog 

Log message:
        (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).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-index.el.diff?tr1=1.21&tr2=1.22&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/ChangeLog.diff?tr1=1.105&tr2=1.106&r1=text&r2=text

Patches:
Index: emacs/lisp/mh-e/ChangeLog
diff -u emacs/lisp/mh-e/ChangeLog:1.105 emacs/lisp/mh-e/ChangeLog:1.106
--- emacs/lisp/mh-e/ChangeLog:1.105     Tue Jan 10 23:55:42 2006
+++ emacs/lisp/mh-e/ChangeLog   Wed Jan 11 01:49:32 2006
@@ -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.
Index: emacs/lisp/mh-e/mh-index.el
diff -u emacs/lisp/mh-e/mh-index.el:1.21 emacs/lisp/mh-e/mh-index.el:1.22
--- emacs/lisp/mh-e/mh-index.el:1.21    Tue Jan 10 23:55:42 2006
+++ emacs/lisp/mh-e/mh-index.el Wed Jan 11 01:49:32 2006
@@ -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))




reply via email to

[Prev in Thread] Current Thread [Next in Thread]