Mercurial > emacs
comparison src/fileio.c @ 79110:29f6806df351
(Qcompletion_ignore_case): New external Lisp_Object.
(Fread_file_name): Use it rather than intern'ing.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Wed, 17 Oct 2007 01:31:40 +0000 |
parents | ac06b6d5fee4 |
children | 7a1e83fce56f |
comparison
equal
deleted
inserted
replaced
79109:78939f1449b7 | 79110:29f6806df351 |
---|---|
6076 return (SAVE_MODIFF < current_buffer->auto_save_modified) ? Qt : Qnil; | 6076 return (SAVE_MODIFF < current_buffer->auto_save_modified) ? Qt : Qnil; |
6077 } | 6077 } |
6078 | 6078 |
6079 /* Reading and completing file names */ | 6079 /* Reading and completing file names */ |
6080 extern Lisp_Object Ffile_name_completion (), Ffile_name_all_completions (); | 6080 extern Lisp_Object Ffile_name_completion (), Ffile_name_all_completions (); |
6081 extern Lisp_Object Qcompletion_ignore_case; | |
6081 | 6082 |
6082 /* In the string VAL, change each $ to $$ and return the result. */ | 6083 /* In the string VAL, change each $ to $$ and return the result. */ |
6083 | 6084 |
6084 static Lisp_Object | 6085 static Lisp_Object |
6085 double_dollars (val) | 6086 double_dollars (val) |
6381 args[6] = predicate; | 6382 args[6] = predicate; |
6382 RETURN_UNGCPRO (Ffuncall (7, args)); | 6383 RETURN_UNGCPRO (Ffuncall (7, args)); |
6383 } | 6384 } |
6384 | 6385 |
6385 count = SPECPDL_INDEX (); | 6386 count = SPECPDL_INDEX (); |
6386 specbind (intern ("completion-ignore-case"), | 6387 specbind (Qcompletion_ignore_case, |
6387 read_file_name_completion_ignore_case ? Qt : Qnil); | 6388 read_file_name_completion_ignore_case ? Qt : Qnil); |
6388 specbind (intern ("minibuffer-completing-file-name"), Qt); | 6389 specbind (intern ("minibuffer-completing-file-name"), Qt); |
6389 specbind (intern ("read-file-name-predicate"), | 6390 specbind (intern ("read-file-name-predicate"), |
6390 (NILP (predicate) ? Qfile_exists_p : predicate)); | 6391 (NILP (predicate) ? Qfile_exists_p : predicate)); |
6391 | 6392 |