diff options
| author | Gerd Moellmann | 2001-09-14 11:20:57 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2001-09-14 11:20:57 +0000 |
| commit | bcdd93b35238000bc6195b9f59071b286575477b (patch) | |
| tree | 817bd75c4893e18121643ba4c0b343c93072b60b /src | |
| parent | 63680feb37911c14187ad5381689f3ab0b7b9bba (diff) | |
| download | emacs-bcdd93b35238000bc6195b9f59071b286575477b.tar.gz emacs-bcdd93b35238000bc6195b9f59071b286575477b.zip | |
(Ffile_symlink_p): Fix last change.
Diffstat (limited to 'src')
| -rw-r--r-- | src/fileio.c | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/src/fileio.c b/src/fileio.c index eba2ac0bbaf..20b7079700e 100644 --- a/src/fileio.c +++ b/src/fileio.c | |||
| @@ -3106,15 +3106,18 @@ Otherwise returns nil.") | |||
| 3106 | 3106 | ||
| 3107 | errno = 0; | 3107 | errno = 0; |
| 3108 | valsize = readlink (XSTRING (filename)->data, buf, bufsize); | 3108 | valsize = readlink (XSTRING (filename)->data, buf, bufsize); |
| 3109 | if (valsize == -1 | 3109 | if (valsize == -1) |
| 3110 | { | ||
| 3110 | #ifdef ERANGE | 3111 | #ifdef ERANGE |
| 3111 | /* HP-UX reports ERANGE if buffer is too small. */ | 3112 | /* HP-UX reports ERANGE if buffer is too small. */ |
| 3112 | && errno != ERANGE | 3113 | if (errno == ERANGE) |
| 3114 | valsize = bufsize; | ||
| 3115 | else | ||
| 3113 | #endif | 3116 | #endif |
| 3114 | ) | 3117 | { |
| 3115 | { | 3118 | xfree (buf); |
| 3116 | xfree (buf); | 3119 | return Qnil; |
| 3117 | return Qnil; | 3120 | } |
| 3118 | } | 3121 | } |
| 3119 | } | 3122 | } |
| 3120 | while (valsize >= bufsize); | 3123 | while (valsize >= bufsize); |