xemacs-beta: src/fileio.c comparison

comparison src/fileio.c @ 563:183866b06e0b

[xemacs-hg @ 2001-05-24 07:50:48 by ben] Makefile.in.in, abbrev.c, alloc.c, buffer.c, bytecode.c, callint.c, callproc.c, casetab.c, chartab.c, cmdloop.c, cmds.c, console-msw.c, console-msw.h, console-stream.c, console-tty.c, console-x.c, console.c, data.c, database.c, debug.c, device-gtk.c, device-msw.c, device-tty.c, device-x.c, device.c, dialog-gtk.c, dialog-msw.c, dialog-x.c, dialog.c, dired-msw.c, dired.c, doc.c, doprnt.c, dragdrop.c, editfns.c, eldap.c, eldap.h, elhash.c, emacs-widget-accessors.c, emacs.c, emodules.c, esd.c, eval.c, event-Xt.c, event-gtk.c, event-msw.c, event-stream.c, events.c, extents.c, faces.c, file-coding.c, fileio.c, filelock.c, floatfns.c, fns.c, font-lock.c, frame-gtk.c, frame-x.c, frame.c, general-slots.h, glade.c, glyphs-gtk.c, glyphs-msw.c, glyphs-widget.c, glyphs-x.c, glyphs.c, glyphs.h, gpmevent.c, gui-gtk.c, gui-x.c, gui.c, gutter.c, hpplay.c, indent.c, input-method-xlib.c, insdel.c, intl.c, keymap.c, libsst.c, libsst.h, linuxplay.c, lisp.h, lread.c, lstream.c, lstream.h, macros.c, marker.c, md5.c, menubar-gtk.c, menubar-msw.c, menubar-x.c, menubar.c, minibuf.c, miscplay.c, miscplay.h, mule-ccl.c, mule-charset.c, mule-wnnfns.c, mule.c, nas.c, ntplay.c, ntproc.c, objects-gtk.c, objects-msw.c, objects-x.c, objects.c, postgresql.c, print.c, process-nt.c, process-unix.c, process.c, ralloc.c, rangetab.c, redisplay.c, scrollbar.c, search.c, select-gtk.c, select-x.c, select.c, sgiplay.c, sheap.c, sound.c, specifier.c, sunplay.c, symbols.c, symeval.h, symsinit.h, syntax.c, sysdep.c, toolbar-msw.c, toolbar.c, tooltalk.c, ui-byhand.c, ui-gtk.c, undo.c, unexaix.c, unexapollo.c, unexconvex.c, unexec.c, widget.c, win32.c, window.c: -- defsymbol -> DEFSYMBOL. -- add an error type to all errors. -- eliminate the error functions in eval.c that let you just use Qerror as the type. -- redo the error API to be more consistent, sensibly named, and easier to use. -- redo the error hierarchy somewhat. create new errors: structure-formation-error, gui-error, invalid-constant, stack-overflow, out-of-memory, process-error, network-error, sound-error, printing-unreadable-object, base64-conversion- error; coding-system-error renamed to text-conversion error; some others. -- fix Mule problems in error strings in emodules.c, tooltalk.c. -- fix error handling in mswin open-network-stream. -- Mule-ize all sound files and clean up the headers. -- nativesound.h -> sound.h and used for all sound files. -- move some shared stuff into glyphs-shared.c: first attempt at eliminating some of the massive GTK code duplication. xemacs.mak: add glyphs-shared.c. xemacs-faq.texi: document how to debug X errors subr.el: fix doc string to reflect reality

author	ben
date	Thu, 24 May 2001 07:51:33 +0000
parents	ed498ef2108b
children	4f6ba8f1fb3d

comparison

equal deleted inserted replaced

-:c775bd016b32
+:183866b06e0b
 /* File IO for XEmacs.
 Copyright (C) 1985-1988, 1992-1995 Free Software Foundation, Inc.
-Copyright (C) 1996 Ben Wing.
+Copyright (C) 1996, 2001 Ben Wing.
 This file is part of XEmacs.
 XEmacs is free software; you can redistribute it and/or modify it
 under the terms of the GNU General Public License as published by the
 If we try to handle that operation, we ignore those handlers.  */
 static Lisp_Object Vinhibit_file_name_handlers;
 static Lisp_Object Vinhibit_file_name_operation;
-Lisp_Object Qfile_error, Qfile_already_exists;
+Lisp_Object Qfile_already_exists;
 Lisp_Object Qauto_save_hook;
 Lisp_Object Qauto_save_error;
 Lisp_Object Qauto_saving;
 Lisp_Object Qcompute_buffer_file_truename;
 EXFUN (Frunning_temacs_p, 0);
+/* DATA can be anything acceptable to signal_error ().
+*/
+DOESNT_RETURN
+report_file_type_error (Lisp_Object errtype, Lisp_Object oserrmess,
+			const char *string, Lisp_Object data)
+{
+struct gcpro gcpro1;
+Lisp_Object errdata = build_error_data (NULL, data);
+GCPRO1 (errdata);
+errdata = Fcons (build_translated_string (string),
+		   Fcons (oserrmess, errdata));
+signal_error_1 (errtype, errdata);
+UNGCPRO; /* not reached */
+}
+DOESNT_RETURN
+report_error_with_errno (Lisp_Object errtype,
+			 const char *string, Lisp_Object data)
+{
+report_file_type_error (errtype, lisp_strerror (errno), string, data);
+}
 /* signal a file error when errno contains a meaningful value. */
 DOESNT_RETURN
 report_file_error (const char *string, Lisp_Object data)
 {
-/* #### dmoore - This uses current_buffer, better make sure no one
+report_error_with_errno (Qfile_error, string, data);
-has GC'd the current buffer.  File handlers are giving me a headache
-maybe I'll just always protect current_buffer around all of those
-calls. */
-signal_error (Qfile_error,
-Fcons (build_translated_string (string),
-		       Fcons (lisp_strerror (errno), data)));
-}
-void
-maybe_report_file_error (const char *string, Lisp_Object data,
-			 Lisp_Object class, Error_behavior errb)
-{
-/* Optimization: */
-if (ERRB_EQ (errb, ERROR_ME_NOT))
-return;
-maybe_signal_error (Qfile_error,
-		      Fcons (build_translated_string (string),
-			     Fcons (lisp_strerror (errno), data)),
-		      class, errb);
-}
-/* signal a file error when errno does not contain a meaningful value. */
-DOESNT_RETURN
-signal_file_error (const char *string, Lisp_Object data)
-{
-signal_error (Qfile_error,
-list2 (build_translated_string (string), data));
-}
-void
-maybe_signal_file_error (const char *string, Lisp_Object data,
-			 Lisp_Object class, Error_behavior errb)
-{
-/* Optimization: */
-if (ERRB_EQ (errb, ERROR_ME_NOT))
-return;
-maybe_signal_error (Qfile_error,
-		      list2 (build_translated_string (string), data),
-		      class, errb);
-}
-DOESNT_RETURN
-signal_double_file_error (const char *string1, const char *string2,
-			  Lisp_Object data)
-{
-signal_error (Qfile_error,
-list3 (build_translated_string (string1),
-		       build_translated_string (string2),
-		       data));
-}
-void
-maybe_signal_double_file_error (const char *string1, const char *string2,
-				Lisp_Object data, Lisp_Object class,
-				Error_behavior errb)
-{
-/* Optimization: */
-if (ERRB_EQ (errb, ERROR_ME_NOT))
-return;
-maybe_signal_error (Qfile_error,
-		      list3 (build_translated_string (string1),
-			     build_translated_string (string2),
-			     data),
-		      class, errb);
-}
-DOESNT_RETURN
-signal_double_file_error_2 (const char *string1, const char *string2,
-			    Lisp_Object data1, Lisp_Object data2)
-{
-signal_error (Qfile_error,
-list4 (build_translated_string (string1),
-		       build_translated_string (string2),
-		       data1, data2));
-}
-void
-maybe_signal_double_file_error_2 (const char *string1, const char *string2,
-				  Lisp_Object data1, Lisp_Object data2,
-				  Lisp_Object class, Error_behavior errb)
-{
-/* Optimization: */
-if (ERRB_EQ (errb, ERROR_ME_NOT))
-return;
-maybe_signal_error (Qfile_error,
-		      list4 (build_translated_string (string1),
-			     build_translated_string (string2),
-			     data1, data2),
-		      class, errb);
 }
 /* Just like strerror(3), except return a lisp string instead of char *.
 The string needs to be converted since it may be localized.
 	     can do.  The alternatives are to return nil, which is
 	     as bad as (and in many cases worse than) throwing the
 	     error, or to ignore the error, which will likely result
 	     in inflooping.  */
 	  report_file_error ("Cannot create temporary name for prefix",
-			     list1 (prefix));
+			     prefix);
 	  return Qnil; /* not reached */
 	}
 }
 }
 toolong:
 errno = ENAMETOOLONG;
 goto lose;
 lose:
-report_file_error ("Finding truename", list1 (expanded_name));
+report_file_error ("Finding truename", expanded_name);
 }
 RETURN_UNGCPRO (Qnil);
 }
 else if (xemacs_stat ((const char *) XSTRING_DATA (newname), &out_st) < 0)
 out_st.st_mode = 0;
 ifd = interruptible_open ((char *) XSTRING_DATA (filename), O_RDONLY | OPEN_BINARY, 0);
 if (ifd < 0)
-report_file_error ("Opening input file", list1 (filename));
+report_file_error ("Opening input file", filename);
 record_unwind_protect (close_file_unwind, make_int (ifd));
 /* We can only copy regular files and symbolic links.  Other files are not
 copyable by us. */
 if (out_st.st_mode != 0
 && st.st_dev == out_st.st_dev && st.st_ino == out_st.st_ino)
 {
 errno = 0;
 report_file_error ("Input and output files are the same",
-			 list2 (filename, newname));
+			 list3 (Qunbound, filename, newname));
 }
 #endif
 #if defined (S_ISREG) && defined (S_ISLNK)
 if (input_file_statable_p)
 	{
 #if defined (EISDIR)
 	  /* Get a better looking error message. */
 	  errno = EISDIR;
 #endif /* EISDIR */
-	report_file_error ("Non-regular file", list1 (filename));
+	report_file_error ("Non-regular file", filename);
 	}
 }
 #endif /* S_ISREG && S_ISLNK */
 ofd = open( (char *) XSTRING_DATA (newname),
 	      O_WRONLY | O_CREAT | O_TRUNC | OPEN_BINARY, CREAT_MODE);
 if (ofd < 0)
-report_file_error ("Opening output file", list1 (newname));
+report_file_error ("Opening output file", newname);
 {
 Lisp_Object ofd_locative = noseeum_cons (make_int (ofd), Qnil);
 record_unwind_protect (close_file_unwind, ofd_locative);
 while ((n = read_allowing_quit (ifd, buf, sizeof (buf))) > 0)
 {
 if (write_allowing_quit (ofd, buf, n) != n)
-	report_file_error ("I/O error", list1 (newname));
+	report_file_error ("I/O error", newname);
 }
 /* Closing the output clobbers the file times on some systems.  */
 if (close (ofd) < 0)
-report_file_error ("I/O error", list1 (newname));
+report_file_error ("I/O error", newname);
 if (input_file_statable_p)
 {
 	if (!NILP (keep_time))
 	  {
 	    EMACS_TIME atime, mtime;
 	    EMACS_SET_SECS_USECS (atime, st.st_atime, 0);
 	    EMACS_SET_SECS_USECS (mtime, st.st_mtime, 0);
 	    if (lisp_string_set_file_times (newname, atime, mtime))
-	      report_file_error ("I/O error", list1 (newname));
+	      report_file_error ("I/O error", newname);
 	  }
 	chmod ((const char *) XSTRING_DATA (newname),
 	       st.st_mode & 07777);
 }
 if (dir [XSTRING_LENGTH (dirname_) - 1] == '/')
 dir [XSTRING_LENGTH (dirname_) - 1] = 0;
 if (mkdir (dir, 0777) != 0)
-report_file_error ("Creating directory", list1 (dirname_));
+report_file_error ("Creating directory", dirname_);
 return Qnil;
 }
 DEFUN ("delete-directory", Fdelete_directory, 1, 1, "FDelete directory: ", /*
 UNGCPRO;
 if (!NILP (handler))
 return (call2 (handler, Qdelete_directory, dirname_));
 if (rmdir ((char *) XSTRING_DATA (dirname_)) != 0)
-report_file_error ("Removing directory", list1 (dirname_));
+report_file_error ("Removing directory", dirname_);
 return Qnil;
 }
 DEFUN ("delete-file", Fdelete_file, 1, 1, "fDelete file: ", /*
 UNGCPRO;
 if (!NILP (handler))
 return call2 (handler, Qdelete_file, filename);
 if (0 > unlink ((char *) XSTRING_DATA (filename)))
-report_file_error ("Removing old name", list1 (filename));
+report_file_error ("Removing old name", filename);
 return Qnil;
 }
 static Lisp_Object
 internal_delete_file_1 (Lisp_Object ignore, Lisp_Object ignore2)
 Qt);
 	  Fdelete_file (filename);
 	}
 else
 	{
-	  report_file_error ("Renaming", list2 (filename, newname));
+	  report_file_error ("Renaming", list3 (Qunbound, filename, newname));
 	}
 }
 UNGCPRO;
 return Qnil;
 }
 /* But FSF #defines link as sys_link which is supplied in nt.c. We can't do
 that because sysfile.h defines sys_link depending on ENCAPSULATE_LINK.
 Reverted to previous behavior pending a working fix. (jhar) */
 #if defined(WIN32_NATIVE)
 /* Windows does not support this operation.  */
-report_file_error ("Adding new name", Flist (2, &filename));
+signal_error_2 (Qunimplemented, "Adding new name", filename, newname);
 #else /* not defined(WIN32_NATIVE) */
 unlink ((char *) XSTRING_DATA (newname));
 if (0 > link ((char *) XSTRING_DATA (filename),
 		(char *) XSTRING_DATA (newname)))
 {
 report_file_error ("Adding new name",
-			 list2 (filename, newname));
+			 list3 (Qunbound, filename, newname));
 }
 #endif /* defined(WIN32_NATIVE) */
 UNGCPRO;
 return Qnil;
 unlink ((char *) XSTRING_DATA (linkname));
 if (0 > symlink ((char *) XSTRING_DATA (filename),
 		   (char *) XSTRING_DATA (linkname)))
 {
 report_file_error ("Making symbolic link",
-			 list2 (filename, linkname));
+			 list3 (Qunbound, filename, linkname));
 }
 #endif /* S_IFLNK */
 UNGCPRO;
 return Qnil;
 UNGCPRO;
 if (!NILP (handler))
 return call3 (handler, Qset_file_modes, abspath, mode);
 if (chmod ((char *) XSTRING_DATA (abspath), XINT (mode)) < 0)
-report_file_error ("Doing chmod", list1 (abspath));
+report_file_error ("Doing chmod", abspath);
 return Qnil;
 }
 DEFUN ("set-default-file-modes", Fset_default_file_modes, 1, 1, 0, /*
 struct buffer *buf = current_buffer;
 Lisp_Object curbuf;
 int not_regular = 0;
 if (buf->base_buffer && ! NILP (visit))
-error ("Cannot do file visiting in an indirect buffer");
+invalid_operation ("Cannot do file visiting in an indirect buffer", Qunbound);
 /* No need to call Fbarf_if_buffer_read_only() here.
 That's called in begin_multiple_change() or wherever. */
 val = Qnil;
 if (!NILP (used_codesys))
 CHECK_SYMBOL (used_codesys);
 #endif
 if ( (!NILP (start) || !NILP (end)) && !NILP (visit) )
-error ("Attempt to visit less than an entire file");
+invalid_operation ("Attempt to visit less than an entire file", Qunbound);
 fd = -1;
 if (xemacs_stat ((char *) XSTRING_DATA (filename), &st) < 0)
 {
 if (fd >= 0) close (fd);
 badopen:
 if (NILP (visit))
-	report_file_error ("Opening input file", list1 (filename));
+	report_file_error ("Opening input file", filename);
 st.st_mtime = -1;
 goto notfound;
 }
 #ifdef S_IFREG
 record_unwind_protect (close_file_unwind, make_int (fd));
 /* Supposedly happens on VMS.  */
 if (st.st_size < 0)
-error ("File size is negative");
+signal_error (Qfile_error, "File size is negative", Qunbound);
 if (NILP (end))
 {
 if (!not_regular)
 	{
 	  end = make_int (st.st_size);
 	  if (XINT (end) != st.st_size)
-	    error ("Maximum buffer size exceeded");
+	    out_of_memory ("Maximum buffer size exceeded", Qunbound);
 	}
 }
 /* If requested, replace the accessible part of the buffer
 with the file contents.  Avoid replacing text at the
 	{
 	  int nread;
 	  Bufpos bufpos;
 	  nread = read_allowing_quit (fd, buffer, sizeof buffer);
 	  if (nread < 0)
-	    error ("IO error reading %s: %s",
+	    report_file_error ("Reading", filename);
-		   XSTRING_DATA (filename), strerror (errno));
 	  else if (nread == 0)
 	    break;
 	  bufpos = 0;
 	  while (bufpos < nread && same_at_start < BUF_ZV (buf)
 		 && BUF_FETCH_CHAR (buf, same_at_start) == buffer[bufpos])
 	  if (curpos == 0)
 	    break;
 	  /* How much can we scan in the next step?  */
 	  trial = min (curpos, (Bufpos) sizeof (buffer));
 	  if (lseek (fd, curpos - trial, 0) < 0)
-	    report_file_error ("Setting file position", list1 (filename));
+	    report_file_error ("Setting file position", filename);
 	  total_read = 0;
 	  while (total_read < trial)
 	    {
 	      nread = read_allowing_quit (fd, buffer + total_read,
 					  trial - total_read);
 	      if (nread <= 0)
-		report_file_error ("IO error reading file", list1 (filename));
+		report_file_error ("IO error reading file", filename);
 	      total_read += nread;
 	    }
 	  /* Scan this bufferful from the end, comparing with
 	     the Emacs buffer.  */
 	  bufpos = total_read;
 {
 total = XINT (end) - XINT (start);
 /* Make sure point-max won't overflow after this insertion.  */
 if (total != XINT (make_int (total)))
-	error ("Maximum buffer size exceeded");
+	out_of_memory ("Maximum buffer size exceeded", Qunbound);
 }
 else
 /* For a special file, all we can do is guess.  The value of -1
 will make the stream functions read as much as possible.  */
 total = -1;
 || !NILP (replace)
 #endif /* !FSFMACS_SPEEDY_INSERT */
 )
 {
 if (lseek (fd, XINT (start), 0) < 0)
-	report_file_error ("Setting file position", list1 (filename));
+	report_file_error ("Setting file position", filename);
 }
 {
 Bufpos cur_point = BUF_PT (buf);
 struct gcpro ngcpro1;
 /* Close the file/stream */
 unbind_to (speccount, Qnil);
 if (saverrno != 0)
 {
-error ("IO error reading %s: %s",
+errno = saverrno;
-	     XSTRING_DATA (filename), strerror (saverrno));
+report_file_error ("Reading", filename);
 }
 notfound:
 handled:
 			         filename)));
 /* If visiting nonexistent file, return nil.  */
 if (buf->modtime == -1)
 	report_file_error ("Opening input file",
-			   list1 (filename));
+			   filename);
 }
 /* Decode file format */
 if (inserted > 0)
 {
 #ifdef CLASH_DETECTION
 save_errno = errno;
 if (!auto_saving) unlock_file (lockname);
 errno = save_errno;
 #endif /* CLASH_DETECTION */
-report_file_error ("Opening output file", list1 (filename));
+report_file_error ("Opening output file", filename);
 }
 {
 Lisp_Object desc_locative = Fcons (make_int (desc), Qnil);
 Lisp_Object instream = Qnil, outstream = Qnil;
 	  {
 #ifdef CLASH_DETECTION
 	    if (!auto_saving) unlock_file (lockname);
 #endif /* CLASH_DETECTION */
 	    report_file_error ("Lseek error",
-			       list1 (filename));
+			       filename);
 	  }
 }
 failure = 0;
 current_buffer->modtime = st.st_mtime;
 if (failure)
 {
 errno = save_errno;
-report_file_error ("Writing file", list1 (fn));
+report_file_error ("Writing file", fn);
 }
 if (visiting)
 {
 BUF_SAVE_MODIFF (current_buffer) = BUF_MODIFF (current_buffer);
 /************************************************************************/
 void
 syms_of_fileio (void)
 {
-defsymbol (&Qexpand_file_name, "expand-file-name");
+DEFSYMBOL (Qexpand_file_name);
-defsymbol (&Qfile_truename, "file-truename");
+DEFSYMBOL (Qfile_truename);
-defsymbol (&Qsubstitute_in_file_name, "substitute-in-file-name");
+DEFSYMBOL (Qsubstitute_in_file_name);
-defsymbol (&Qdirectory_file_name, "directory-file-name");
+DEFSYMBOL (Qdirectory_file_name);
-defsymbol (&Qfile_name_directory, "file-name-directory");
+DEFSYMBOL (Qfile_name_directory);
-defsymbol (&Qfile_name_nondirectory, "file-name-nondirectory");
+DEFSYMBOL (Qfile_name_nondirectory);
-defsymbol (&Qunhandled_file_name_directory, "unhandled-file-name-directory");
+DEFSYMBOL (Qunhandled_file_name_directory);
-defsymbol (&Qfile_name_as_directory, "file-name-as-directory");
+DEFSYMBOL (Qfile_name_as_directory);
-defsymbol (&Qcopy_file, "copy-file");
+DEFSYMBOL (Qcopy_file);
-defsymbol (&Qmake_directory_internal, "make-directory-internal");
+DEFSYMBOL (Qmake_directory_internal);
-defsymbol (&Qdelete_directory, "delete-directory");
+DEFSYMBOL (Qdelete_directory);
-defsymbol (&Qdelete_file, "delete-file");
+DEFSYMBOL (Qdelete_file);
-defsymbol (&Qrename_file, "rename-file");
+DEFSYMBOL (Qrename_file);
-defsymbol (&Qadd_name_to_file, "add-name-to-file");
+DEFSYMBOL (Qadd_name_to_file);
-defsymbol (&Qmake_symbolic_link, "make-symbolic-link");
+DEFSYMBOL (Qmake_symbolic_link);
-defsymbol (&Qfile_exists_p, "file-exists-p");
+DEFSYMBOL (Qfile_exists_p);
-defsymbol (&Qfile_executable_p, "file-executable-p");
+DEFSYMBOL (Qfile_executable_p);
-defsymbol (&Qfile_readable_p, "file-readable-p");
+DEFSYMBOL (Qfile_readable_p);
-defsymbol (&Qfile_symlink_p, "file-symlink-p");
+DEFSYMBOL (Qfile_symlink_p);
-defsymbol (&Qfile_writable_p, "file-writable-p");
+DEFSYMBOL (Qfile_writable_p);
-defsymbol (&Qfile_directory_p, "file-directory-p");
+DEFSYMBOL (Qfile_directory_p);
-defsymbol (&Qfile_regular_p, "file-regular-p");
+DEFSYMBOL (Qfile_regular_p);
-defsymbol (&Qfile_accessible_directory_p, "file-accessible-directory-p");
+DEFSYMBOL (Qfile_accessible_directory_p);
-defsymbol (&Qfile_modes, "file-modes");
+DEFSYMBOL (Qfile_modes);
-defsymbol (&Qset_file_modes, "set-file-modes");
+DEFSYMBOL (Qset_file_modes);
-defsymbol (&Qfile_newer_than_file_p, "file-newer-than-file-p");
+DEFSYMBOL (Qfile_newer_than_file_p);
-defsymbol (&Qinsert_file_contents, "insert-file-contents");
+DEFSYMBOL (Qinsert_file_contents);
-defsymbol (&Qwrite_region, "write-region");
+DEFSYMBOL (Qwrite_region);
-defsymbol (&Qverify_visited_file_modtime, "verify-visited-file-modtime");
+DEFSYMBOL (Qverify_visited_file_modtime);
-defsymbol (&Qset_visited_file_modtime, "set-visited-file-modtime");
+DEFSYMBOL (Qset_visited_file_modtime);
-defsymbol (&Qcar_less_than_car, "car-less-than-car"); /* Vomitous! */
+DEFSYMBOL (Qcar_less_than_car); /* Vomitous! */
-defsymbol (&Qauto_save_hook, "auto-save-hook");
+DEFSYMBOL (Qauto_save_hook);
-defsymbol (&Qauto_save_error, "auto-save-error");
+DEFSYMBOL (Qauto_save_error);
-defsymbol (&Qauto_saving, "auto-saving");
+DEFSYMBOL (Qauto_saving);
-defsymbol (&Qformat_decode, "format-decode");
+DEFSYMBOL (Qformat_decode);
-defsymbol (&Qformat_annotate_function, "format-annotate-function");
+DEFSYMBOL (Qformat_annotate_function);
-defsymbol (&Qcompute_buffer_file_truename, "compute-buffer-file-truename");
+DEFSYMBOL (Qcompute_buffer_file_truename);
-DEFERROR_STANDARD (Qfile_error, Qio_error);
 DEFERROR_STANDARD (Qfile_already_exists, Qfile_error);
 DEFSUBR (Ffind_file_name_handler);
 DEFSUBR (Ffile_name_directory);

Mercurial > hg > xemacs-beta

comparison src/fileio.c @ 563:183866b06e0b