bug#15215: 24.3; quit abnormally when find-file

bug#15215: 24.3; quit abnormally when find-file

[forward]

[-- Attachment #1: Type: text/plain, Size: 687 bytes --]

In definition of function `find-file-noselect' in file "files.el"
from line 1807 to 1816

            ;; Certain files should be reverted automatically
            ;; if they have changed on disk and not in the buffer.
            ((and (not (buffer-modified-p buf))
                  (let ((tail revert-without-query)
                    (found nil))
                (while tail
                  (if (string-match (car tail) filename)  ===>
                      (setq found t))
                  (setq tail (cdr tail)))
                found))

   ==> when tail is `t' since `revert-without-query' is `t' ,  it signals a
"Wrong type argument: listp, t". Should it be checked? Thanks.

[-- Attachment #2: Type: text/html, Size: 893 bytes --]

bug#15215: 24.3; quit abnormally when find-file

[Glenn Morris]

forward wrote:

> In definition of function `find-file-noselect' in file "files.el"
> from line 1807 to 1816
>
>             ;; Certain files should be reverted automatically
>             ;; if they have changed on disk and not in the buffer.
>             ((and (not (buffer-modified-p buf))
>                   (let ((tail revert-without-query)
>                     (found nil))
>                 (while tail
>                   (if (string-match (car tail) filename)  ===>
>                       (setq found t))
>                   (setq tail (cdr tail)))
>                 found))
>
>    ==> when tail is `t' since `revert-without-query' is `t' ,  it signals a
> "Wrong type argument: listp, t".

`t' is not a documented value for revert-without-query.
It is supposed to be a list of regexps.
Set it to '(".") if you really want to revert everything without asking.