comparison lisp/info.el @ 71533:f6293eaa5979

(Info-find-node-2): Search for makeinfo version more carefully.
author Nick Roberts <nickrob@snap.net.nz>
date Fri, 30 Jun 2006 00:31:21 +0000
parents 4477a2e46659
children ede3900365e4 138ce2701550
comparison
equal deleted inserted replaced
71532:ee90ab4ffd9b 71533:f6293eaa5979
842 ;; Check makeinfo version for index cookie support 842 ;; Check makeinfo version for index cookie support
843 (let ((found nil)) 843 (let ((found nil))
844 (goto-char (point-min)) 844 (goto-char (point-min))
845 (condition-case () 845 (condition-case ()
846 (if (and (re-search-forward 846 (if (and (re-search-forward
847 "makeinfo version \\([0-9]+.[0-9]+\\)" 847 "makeinfo[ \n]version[ \n]\\([0-9]+.[0-9]+\\)"
848 (line-beginning-position 3) t) 848 (line-beginning-position 3) t)
849 (not (version< (match-string 1) "4.7"))) 849 (not (version< (match-string 1) "4.7")))
850 (setq found t)) 850 (setq found t))
851 (error nil)) 851 (error nil))
852 (set (make-local-variable 'Info-file-supports-index-cookies) found)) 852 (set (make-local-variable 'Info-file-supports-index-cookies) found))