Mercurial > hg > xemacs-beta

comparison lisp/prim/files-nomule.el @ 72:b9518feda344 r20-0b31

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b31
author cvs
date Mon, 13 Aug 2007 09:03:46 +0200
parents 131b0175ea99
children c7528f8e288d
comparison
equal deleted inserted replaced
71:bae944334fa4 72:b9518feda344
18 ;; You should have received a copy of the GNU General Public License 18 ;; You should have received a copy of the GNU General Public License
19 ;; along with XEmacs; see the file COPYING. If not, write to the 19 ;; along with XEmacs; see the file COPYING. If not, write to the
20 ;; Free Software Foundation, 59 Temple Place - Suite 330, 20 ;; Free Software Foundation, 59 Temple Place - Suite 330,
21 ;; Boston, MA 02111-1307, USA. 21 ;; Boston, MA 02111-1307, USA.
22 22
23 ;;; Synched up with: Not in FSF. 23 ;;; Synched up with: FSF 19.34 (files.el).
24
25 ;;; Commentary:
26
27 ;; These stubs were moved from the bottom of files.el.
28
29 ;;; Code:
24 30
25 (defun insert-file-contents (filename &optional visit beg end replace) 31 (defun insert-file-contents (filename &optional visit beg end replace)
26 "Insert contents of file FILENAME after point. 32 "Insert contents of file FILENAME after point.
27 Returns list of absolute file name and length of data inserted. 33 Returns list of absolute file name and length of data inserted.
28 If second argument VISIT is non-nil, the buffer's visited filename 34 If second argument VISIT is non-nil, the buffer's visited filename
73 If optional fourth arg NOSUFFIX is non-nil, don't try adding 79 If optional fourth arg NOSUFFIX is non-nil, don't try adding
74 suffixes `.elc' or `.el' to the specified name FILE. 80 suffixes `.elc' or `.el' to the specified name FILE.
75 Return t if file exists." 81 Return t if file exists."
76 (load-internal file noerror nomessage nosuffix nil nil)) 82 (load-internal file noerror nomessage nosuffix nil nil))
77 83
84 ;;; files-nomule.el ends here