Mercurial > hg > xemacs-beta

comparison src/fileio.c @ 3722:a0adf5f08c44

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2006-12-05 08:20:54 by michaels] 2006-11-30 Mike Sperber <mike@xemacs.org> * fileio.c (Finsert_file_contents_internal): Don't call the file-name handler for `insert-file-contents' from here, which is too late. Instead, do it from Lisp.SSper 2006-11-30 Mike Sperber <mike@xemacs.org> * code-files.el (insert-file-contents): Call the file-name handler from Lisp, not from `insert-file-contents-internal', which is too late.
author michaels
date Tue, 05 Dec 2006 08:21:03 +0000
parents 3e7493e76dc7
children 6765f2581182
comparison
equal deleted inserted replaced
3721:7611e12bc882 3722:a0adf5f08c44
2842 speccount = specpdl_depth (); /* begin_multiple_change also adds 2842 speccount = specpdl_depth (); /* begin_multiple_change also adds
2843 an unwind_protect */ 2843 an unwind_protect */
2844 2844
2845 filename = Fexpand_file_name (filename, Qnil); 2845 filename = Fexpand_file_name (filename, Qnil);
2846 2846
2847 /* If the file name has special constructs in it,
2848 call the corresponding file handler. */
2849 handler = Ffind_file_name_handler (filename, Qinsert_file_contents);
2850 if (!NILP (handler))
2851 {
2852 val = call6 (handler, Qinsert_file_contents, filename,
2853 visit, start, end, replace);
2854 goto handled;
2855 }
2856
2857 if (!NILP (used_codesys)) 2847 if (!NILP (used_codesys))
2858 CHECK_SYMBOL (used_codesys); 2848 CHECK_SYMBOL (used_codesys);
2859 2849
2860 if ( (!NILP (start) || !NILP (end)) && !NILP (visit) ) 2850 if ( (!NILP (start) || !NILP (end)) && !NILP (visit) )
2861 invalid_operation ("Attempt to visit less than an entire file", Qunbound); 2851 invalid_operation ("Attempt to visit less than an entire file", Qunbound);