Bug in file-chase-links

[Jesper Harder]

In GNU Emacs 21.3.50.39 (i686-pc-linux-gnu)
 of 2003-04-09 on defun.localdomain
configured using `configure '--with-gtk''

`file-chase-links' fails if it's called without the optional LIMIT
argument.

*** /home/harder/emacs/lisp/files.el    Wed Apr  9 10:03:25 2003
--- /usr/local/share/emacs/21.3.50/lisp/files.el        Wed Apr  9 10:52:51 2003
***************
*** 746,752 ****
  it means chase no more than that many links and then stop."
    (let (tem (newname filename)
            (count 0)
!           (max (max limit 100)))
      (while (and (or (null limit) (< count limit))
                (setq tem (file-symlink-p newname)))
        (save-match-data
--- 746,752 ----
  it means chase no more than that many links and then stop."
    (let (tem (newname filename)
            (count 0)
!           (max (if (numberp limit) (max limit 100) 100)))
      (while (and (or (null limit) (< count limit))
                (setq tem (file-symlink-p newname)))
        (save-match-data