[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp info.el
From: |
Juri Linkov |
Subject: |
[Emacs-diffs] emacs/lisp info.el |
Date: |
Tue, 23 Dec 2008 21:02:41 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Juri Linkov <jurta> 08/12/23 21:02:41
Modified files:
lisp : info.el
Log message:
(Info-find-node-2): Use negative offset 2 instead of 1
for Info-point-loc since it is more correct in all cases.
(Info-isearch-filter): Rename from
`Info-isearch-filter-predicate'. Doc fix.
(Info-mode): Replace `Info-isearch-filter-predicate' with
`Info-isearch-filter'.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/info.el?cvsroot=emacs&r1=1.554&r2=1.555
Patches:
Index: info.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/info.el,v
retrieving revision 1.554
retrieving revision 1.555
diff -u -b -r1.554 -r1.555
--- info.el 19 Dec 2008 00:18:52 -0000 1.554
+++ info.el 23 Dec 2008 21:02:40 -0000 1.555
@@ -1007,7 +1007,7 @@
(delete new-history Info-history-list))))
(goto-char anchorpos))
((numberp Info-point-loc)
- (forward-line (1- Info-point-loc))
+ (forward-line (- Info-point-loc 2))
(setq Info-point-loc nil))
((stringp Info-point-loc)
(Info-find-index-name Info-point-loc)
@@ -1855,8 +1855,10 @@
;; Otherwise this variable is set after first search failure.
(and isearch-nonincremental Info-current-node)))
-(defun Info-isearch-filter-predicate (beg-found found)
- "Skip invisible text, node header line and Tag Table node."
+(defun Info-isearch-filter (beg-found found)
+ "Test whether the current search hit is a visible useful text.
+Return non-nil if the text from BEG-FOUND to FOUND is visible
+and is not in the header line or a tag table."
(save-match-data
(let ((backward (< found beg-found)))
(not
@@ -3540,7 +3542,7 @@
(set (make-local-variable 'isearch-push-state-function)
'Info-isearch-push-state)
(set (make-local-variable 'isearch-filter-predicate)
- 'Info-isearch-filter-predicate)
+ 'Info-isearch-filter)
(set (make-local-variable 'search-whitespace-regexp)
Info-search-whitespace-regexp)
(set (make-local-variable 'revert-buffer-function)