Mercurial > emacs
changeset 50072:bb8b212f5326
(Info-extract-menu-node-name)
(Info-following-node-name): Revert last change.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Mon, 10 Mar 2003 13:04:10 +0000 |
| parents | 87c8a15422ef |
| children | f1a836dd325d |
| files | lisp/info.el |
| diffstat | 1 files changed, 1 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/info.el Mon Mar 10 11:35:43 2003 +0000 +++ b/lisp/info.el Mon Mar 10 13:04:10 2003 +0000 @@ -1352,9 +1352,6 @@ (if (looking-at "(") (skip-chars-forward "^)"))) (skip-chars-backward " ") - ;; Skip trailing period. - (if (equal (char-before) ?.) - (forward-char -1)) (point)))) (defun Info-next () @@ -1496,7 +1493,7 @@ (if (looking-at ":") (buffer-substring-no-properties beg (1- (point))) (skip-chars-forward " \t\n") - (Info-following-node-name (if multi-line "^,\t" "^,\t\n")))) + (Info-following-node-name (if multi-line "^.,\t" "^.,\t\n")))) (replace-regexp-in-string "[ \n]+" " " str))) ;; No one calls this.