diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-09-27 03:07:54 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-09-27 03:07:54 +0000 |
| commit | 88cf185241a06953e426f44f50b7147f43014bc2 (patch) | |
| tree | 097cffefebcefb7fd95b7c3b902111e994c520e5 /src/dired.c | |
| parent | e6d12642a88e379005891fbd3725eaddcff59e83 (diff) | |
| download | emacs-88cf185241a06953e426f44f50b7147f43014bc2.tar.gz | |
(Ffile_name_completion, file_name_completion): Use type test macros.
Diffstat (limited to 'src/dired.c')
| -rw-r--r-- | src/dired.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/dired.c b/src/dired.c index 8800db7c279..c9c4d648990 100644 --- a/src/dired.c +++ b/src/dired.c @@ -239,7 +239,7 @@ Returns nil if DIR contains no name starting with FILE.") a directory name and has supplied one ending in a /. We would not want to add anything in that case even if there are some unique characters in that directory. */ - if (XTYPE (file) == Lisp_String && XSTRING (file)->size == 0) + if (STRINGP (file) && XSTRING (file)->size == 0) return file; /* If the file name has special constructs in it, @@ -362,7 +362,7 @@ file_name_completion (file, dirname, all_flag, ver_flag) CONSP (tem); tem = XCONS (tem)->cdr) { elt = XCONS (tem)->car; - if (XTYPE (elt) != Lisp_String) continue; + if (!STRINGP (elt)) continue; skip = len - XSTRING (elt)->size; if (skip < 0) continue; |