;;; -*-emacs-lisp-*-
;;;
-;;; $Id: skel.el.in,v 1.5 2004/04/08 01:36:28 mdw Exp $
-;;;
;;; Filling in skeletons
;;;
;;; (c) 1998 Mark Wooding
(let ((n (car l)))
(if (and (file-readable-p n) (file-regular-p n))
(if all
- (skel-do-find (cdr l) all (cons (abbreviate-file-name n) acc))
+ (skel-do-find (cdr l)
+ all
+ (cons (abbreviate-file-name n) acc))
(abbreviate-file-name n))
(skel-do-find (cdr l) all acc)))
acc))
(funcall switch (find-file-noselect name))
(kill-region (point-min) (point-max))
- (insert-file skel)
+ (insert-file-contents skel)
;; --- Mangle the skeleton data in the file ---