/[emacs]/emacs/lisp/info.el
ViewVC logotype

Diff of /emacs/lisp/info.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.417 by jurta, Wed Feb 23 17:03:17 2005 UTC revision 1.418 by jurta, Tue Mar 8 21:50:11 2005 UTC
# Line 1646  If DIRECTION is `backward', search in th Line 1646  If DIRECTION is `backward', search in th
1646    (Info-search regexp bound noerror count 'backward))    (Info-search regexp bound noerror count 'backward))
1647    
1648  (defun Info-isearch-search ()  (defun Info-isearch-search ()
1649    (if (and Info-isearch-search (not isearch-word))    (if Info-isearch-search
1650        (lambda (string &optional bound noerror count)        (lambda (string &optional bound noerror count)
1651          (condition-case nil          (condition-case nil
1652              (progn              (if isearch-word
1653                    (Info-search (concat "\\b" (replace-regexp-in-string
1654                                                "\\W+" "\\\\W+"
1655                                                (replace-regexp-in-string
1656                                                 "^\\W+\\|\\W+$" "" string)) "\\b")
1657                                 bound noerror count
1658                                 (unless isearch-forward 'backward))
1659                (Info-search (if isearch-regexp string (regexp-quote string))                (Info-search (if isearch-regexp string (regexp-quote string))
1660                             bound noerror count                             bound noerror count
1661                             (unless isearch-forward 'backward))                             (unless isearch-forward 'backward))
# Line 1659  If DIRECTION is `backward', search in th Line 1665  If DIRECTION is `backward', search in th
1665        (isearch-search-fun))))        (isearch-search-fun))))
1666    
1667  (defun Info-isearch-wrap ()  (defun Info-isearch-wrap ()
1668    (when (and Info-isearch-search (not isearch-word))    (when Info-isearch-search
1669      (if isearch-forward (Info-top-node) (Info-final-node))      (if isearch-forward (Info-top-node) (Info-final-node))
1670      (goto-char (if isearch-forward (point-min) (point-max)))))      (goto-char (if isearch-forward (point-min) (point-max)))))
1671    

Legend:
Removed from v.1.417  
changed lines
  Added in v.1.418

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