comparison lisp/informat.el @ 1880:36ec0bfbb2c2

* informat.el (Info-tagify): Correct the regular expression which recognizes node names to work properly with Emacs 19 regex.
author Jim Blandy <jimb@redhat.com>
date Tue, 16 Feb 1993 00:23:06 +0000
parents 9f3cc03dae67
children a864b7f97b56
comparison
equal deleted inserted replaced
1879:c9b4ece292cc 1880:36ec0bfbb2c2
42 (progn 42 (progn
43 (widen) 43 (widen)
44 (goto-char (point-min)) 44 (goto-char (point-min))
45 (if (search-forward "\^_\nIndirect:\n" nil t) 45 (if (search-forward "\^_\nIndirect:\n" nil t)
46 (message "Cannot tagify split info file") 46 (message "Cannot tagify split info file")
47 (let ((regexp "Node:[ \t]*\\([^,\n\t]\\)*[,\t\n]") 47 (let ((regexp "Node:[ \t]*\\([^,\n\t]*\\)[,\t\n]")
48 (case-fold-search t) 48 (case-fold-search t)
49 list) 49 list)
50 (while (search-forward "\n\^_" nil t) 50 (while (search-forward "\n\^_" nil t)
51 (forward-line 1) 51 (forward-line 1)
52 (let ((beg (point))) 52 (let ((beg (point)))