Mercurial > emacs
changeset 9134:37d46d623ed9
(Ffile_name_completion, file_name_completion): Use type test macros.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 27 Sep 1994 03:07:54 +0000 |
| parents | 48820d57a24c |
| children | 551c9e4fa12a |
| files | src/dired.c |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/src/dired.c Tue Sep 27 03:06:52 1994 +0000 +++ b/src/dired.c Tue Sep 27 03:07:54 1994 +0000 @@ -239,7 +239,7 @@ 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 @@ 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;