diff options
| author | Stefan Monnier | 2004-04-15 21:02:33 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2004-04-15 21:02:33 +0000 |
| commit | d8e18df75ccbb4eef287b98981c90c1dd7565e64 (patch) | |
| tree | ddc65b81fe9e55bad73cce2dad10969a106c596d | |
| parent | 2a3d70d45ddd62ab9be588303f0ea4a087fdbdc3 (diff) | |
| download | emacs-d8e18df75ccbb4eef287b98981c90c1dd7565e64.tar.gz emacs-d8e18df75ccbb4eef287b98981c90c1dd7565e64.zip | |
(Ffile_attributes): Don't pass extra nil arg to file-handler.
| -rw-r--r-- | src/dired.c | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/dired.c b/src/dired.c index f4102ff6edb..e833ceb216b 100644 --- a/src/dired.c +++ b/src/dired.c | |||
| @@ -914,7 +914,13 @@ Elements of the attribute list are: | |||
| 914 | call the corresponding file handler. */ | 914 | call the corresponding file handler. */ |
| 915 | handler = Ffind_file_name_handler (filename, Qfile_attributes); | 915 | handler = Ffind_file_name_handler (filename, Qfile_attributes); |
| 916 | if (!NILP (handler)) | 916 | if (!NILP (handler)) |
| 917 | return call3 (handler, Qfile_attributes, filename, id_format); | 917 | { /* Only pass the extra arg if it is used to help backward compatibility |
| 918 | with old file handlers which do not implement the new arg. --Stef */ | ||
| 919 | if (NILP (id_format)) | ||
| 920 | return call2 (handler, Qfile_attributes, filename); | ||
| 921 | else | ||
| 922 | return call3 (handler, Qfile_attributes, filename, id_format); | ||
| 923 | } | ||
| 918 | 924 | ||
| 919 | encoded = ENCODE_FILE (filename); | 925 | encoded = ENCODE_FILE (filename); |
| 920 | 926 | ||