/[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.409 by jurta, Thu Nov 11 21:43:47 2004 UTC revision 1.410 by rms, Fri Nov 19 20:04:44 2004 UTC
# Line 1468  If DIRECTION is `backward', search in th Line 1468  If DIRECTION is `backward', search in th
1468            (opoint-max (point-max))            (opoint-max (point-max))
1469            (ostart (window-start))            (ostart (window-start))
1470            (osubfile Info-current-subfile))            (osubfile Info-current-subfile))
       (when Info-search-whitespace-regexp  
         (setq regexp  
               (mapconcat 'identity (split-string regexp "[ \t\n]+")  
                          Info-search-whitespace-regexp)))  
1471        (setq Info-search-case-fold case-fold-search)        (setq Info-search-case-fold case-fold-search)
1472        (save-excursion        (save-excursion
1473          (save-restriction          (save-restriction
# Line 1496  If DIRECTION is `backward', search in th Line 1492  If DIRECTION is `backward', search in th
1492                              (save-excursion                              (save-excursion
1493                                (and (search-backward "\^_" nil t)                                (and (search-backward "\^_" nil t)
1494                                     (looking-at "\^_\nTag Table"))))))                                     (looking-at "\^_\nTag Table"))))))
1495              (if (if backward              (let ((search-whitespace-regexp
1496                      (re-search-backward regexp bound t)                     Info-search-whitespace-regexp))
1497                    (re-search-forward regexp bound t))                (if (if backward
1498                  (setq found (point) beg-found (if backward (match-end 0)                        (re-search-backward regexp bound t)
1499                                                  (match-beginning 0)))                      (re-search-forward regexp bound t))
1500                (setq give-up t)))))                    (setq found (point) beg-found (if backward (match-end 0)
1501                                                      (match-beginning 0)))
1502                    (setq give-up t))))))
1503        ;; If no subfiles, give error now.        ;; If no subfiles, give error now.
1504        (if give-up        (if give-up
1505            (if (null Info-current-subfile)            (if (null Info-current-subfile)

Legend:
Removed from v.1.409  
changed lines
  Added in v.1.410

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