Visited-file-modtime bug

[Whitfield Diffie]

                                Sunday  08 January 2006  at 11:49

    An attempt to find-file to root in an emacs in which there is already a
buffer containing the root directory produces the error:

                     Wrong type argument: listp, 21''.

    The error manifests in dired-internal-noselect (attached) which follows
the path:

    (if (not new-buffer-p)     ; existing buffer ...
                *               *               *
              ((if (let ((attributes (file-attributes dirname))
                         (modtime (visited-file-modtime)))
                     (or (eq modtime 0)
                         (not (eq (car attributes) t))
                         (and (= (car (nth 5 attributes)) (car modtime))
                              (= (nth 1 (nth 5 attributes)) (cdr modtime)))))
                *               *               *

I presume that (visited-file-modtime) of the root directory is supposed to
be zero; it is actually 21, which fails the zero test and then errors two
lines later on the attempt to take its car.

    I have corrected this for my own use by adding (not (consp modtime)) to the
or, effectively replacing (eq modtime 0) but this does not correct the root 
cause.

    Visited-file-modtime is also used in:

fast-lock.el:     (file-timestamp (visited-file-modtime)) (saved nil))
fast-lock.el:  (let ((buf-timestamp (visited-file-modtime))
files.el:               (old-modtime (visited-file-modtime)))
gnus/nnfolder.el:         (setq newscantime (visited-file-modtime))
net/ange-ftp.el:              (buf-mdtm (with-current-buffer buf 
(visited-file-modtime))))

I don't know whether any of these uses produce errors or whether there are
errors associated with any of the associated functions
clear-visited-file-modtime, set-visited-file-modtime, and
verify-visited-file-modtime.

                                        Whit

dired-internal-noselect-from-gnu-emacs-21.4.el
Description: Binary data