Mercurial > emacs
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))) |