(abs, ceiling, floor): Remove, since they now redefine

[gnu-emacs] / lisp / informat.el

diff --git a/lisp/informat.el b/lisp/informat.el
index e6772b628878a26a747c682a85576cafb37ad93d..3930378c5dfa5081cdf25bc38f0346fc4274193d 100644 (file)
--- a/lisp/informat.el
+++ b/lisp/informat.el
@@ -1,11 +1,10 @@
 ;;; informat.el --- info support functions package for Emacs
 
+;; Copyright (C) 1986 Free Software Foundation, Inc.
+
 ;; Maintainer: FSF
-;; Last-Modified: 09 May 1991
 ;; Keywords: help
 
-;; Copyright (C) 1986 Free Software Foundation, Inc.
-
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
@@ -45,7 +44,7 @@
          (goto-char (point-min))
          (if (search-forward "\^_\nIndirect:\n" nil t)
              (message "Cannot tagify split info file")
-           (let ((regexp "Node:[ \t]*\\([^,\n\t]\\)*[,\t\n]")
+           (let ((regexp "Node:[ \t]*\\([^,\n\t]*\\)[,\t\n]")
                  (case-fold-search t)
                  list)
              (while (search-forward "\n\^_" nil t)
@@ -399,7 +398,7 @@ For example, invoke \"emacs -batch -f batch-info-validate $info/ ~/*.info\""
                        ((< (point-max) 30000)
                         (message "%s too small to bother tagifying" file))
                        (t
-                        (Info-tagify file))))
+                        (Info-tagify))))
                (let ((loss-name " *problems in info file*"))
                  (message "Checking validity of info file %s..." file)
                  (if (get-buffer loss-name)