diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2022-10-13 21:13:45 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2022-10-13 21:13:45 +0200 |
| commit | cbd04ad3d572850775f18bde868c71abcde733ed (patch) | |
| tree | cca60866632ff253cbc5062ab7483379e81a1376 /lisp/startup.el | |
| parent | 10f55975d34dd7299f72fdf8d93fd8cbe2e41e25 (diff) | |
| download | emacs-cbd04ad3d572850775f18bde868c71abcde733ed.tar.gz emacs-cbd04ad3d572850775f18bde868c71abcde733ed.tar.bz2 emacs-cbd04ad3d572850775f18bde868c71abcde733ed.zip | |
Clarify structure of file-attribute's device number
* doc/lispref/buffers.texi (Buffer File Name): Fix description of
buffer-file-number.
* doc/lispref/files.texi (File Attributes): Clarify type of device
number. Describe file-attribute-file-number. (Bug#58446)
* etc/NEWS: Mention file-attribute-file-number.
* lisp/files.el (buffer-file-number, file-attribute-device-number)
(file-attribute-collect): Fix docstring.
(file-attribute-file-number): New defsubst.
(find-buffer-visiting, find-file-noselect)
(set-visited-file-name, basic-save-buffer):
* lisp/startup.el (normal-top-level-add-subdirs-to-load-path):
* lisp/eshell/em-unix.el (eshell-shuffle-files): Use it.
* src/dired.c (Ffile_attributes): Fix docstring.
Diffstat (limited to 'lisp/startup.el')
| -rw-r--r-- | lisp/startup.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index 04de7e42fea..c7faf4abc6f 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -458,7 +458,7 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'." ;; The Windows version doesn't report meaningful inode numbers, so ;; use the canonicalized absolute file name of the directory instead. (setq attrs (or canonicalized - (nthcdr 10 (file-attributes this-dir)))) + (file-attribute-file-number (file-attributes this-dir)))) (unless (member attrs normal-top-level-add-subdirs-inode-list) (push attrs normal-top-level-add-subdirs-inode-list) (dolist (file contents) |