--- /dev/null
+;;; files-nomule.el --- file I/O stubs when not under Mule.
+
+;; Copyright (C) 1985-1987, 1992-1994, 1997 Free Software Foundation, Inc.
+;; Copyright (C) 1995 Sun Microsystems.
+
+;; Maintainer: XEmacs Development Team
+;; Keywords: extensions, dumped
+
+;; 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 Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+
+;; XEmacs is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with XEmacs; see the file COPYING. If not, write to the
+;; Free Software Foundation, 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Synched up with: FSF 19.34 (files.el). (Is it? Please check)
+
+;;; Commentary:
+
+;; This file is dumped with XEmacs (when Mule is not compiled in).
+
+;; These stubs were moved from the bottom of files.el.
+
+;;; Code:
+
+(defun insert-file-contents (filename &optional visit start end replace)
+ "Insert contents of file FILENAME after point.
+Returns list of absolute file name and length of data inserted.
+If second argument VISIT is non-nil, the buffer's visited filename
+and last save file modtime are set, and it is marked unmodified.
+If visiting and the file does not exist, visiting is completed
+before the error is signaled.
+
+The optional third and fourth arguments START and END
+specify what portion of the file to insert.
+If VISIT is non-nil, START and END must be nil.
+If optional fifth argument REPLACE is non-nil,
+it means replace the current buffer contents (in the accessible portion)
+with the file contents. This is better than simply deleting and inserting
+the whole thing because (1) it preserves some marker positions
+and (2) it puts less data in the undo list."
+ (insert-file-contents-internal filename visit start end replace nil nil))
+
+(defun write-region (start end filename &optional append visit lockname coding-system)
+ "Write current region into specified file.
+By default, the file's existing contents are replaced by the specified region.
+When called from a program, takes three arguments:
+START, END and FILENAME. START and END are buffer positions.
+Optional fourth argument APPEND if non-nil means
+ append to existing file contents (if any).
+Optional fifth argument VISIT if t means
+ set the last-save-file-modtime of buffer to this file's modtime
+ and mark buffer not modified.
+If VISIT is a string, it is a second file name;
+ the output goes to FILENAME, but the buffer is marked as visiting VISIT.
+ VISIT is also the file name to lock and unlock for clash detection.
+If VISIT is neither t nor nil nor a string,
+ that means do not print the \"Wrote file\" message.
+The optional sixth arg LOCKNAME, if non-nil, specifies the name to
+ use for locking and unlocking, overriding FILENAME and VISIT.
+Kludgy feature: if START is a string, then that string is written
+to the file, instead of any buffer contents, and END is ignored.
+Optional seventh argument CODING-SYSTEM is meaningful only if support
+ for Mule is present in XEmacs and specifies the coding system
+ used to encode the text when it is written out, and defaults to
+ the value of `buffer-file-coding-system' in the current buffer.
+ When Mule support is not present, the CODING-SYSTEM argument is
+ ignored."
+ (interactive "r\nFWrite region to file: ")
+ (write-region-internal start end filename append visit lockname nil))
+
+(defun load (file &optional noerror nomessage nosuffix)
+ "Execute a file of Lisp code named FILE.
+First try FILE with `.elc' appended, then try with `.el',
+ then try FILE unmodified.
+This function searches the directories in `load-path'.
+If optional second arg NOERROR is non-nil,
+ report no error if FILE doesn't exist.
+Print messages at start and end of loading unless
+ optional third arg NOMESSAGE is non-nil (ignored in -batch mode).
+If optional fourth arg NOSUFFIX is non-nil, don't try adding
+ suffixes `.elc' or `.el' to the specified name FILE.
+Return t if file exists."
+ (load-internal file noerror nomessage nosuffix nil nil))
+
+;;; files-nomule.el ends here
projects / chise / xemacs-chise.git- / blobdiff