;;; -*-emacs-lisp-*-
;;;
-;;; $Id: skel.el.in,v 1.2 1999/05/05 19:30:38 mdw Exp $
+;;; $Id: skel.el.in,v 1.3 1999/08/20 07:40:51 mdw Exp $
;;;
;;; Filling in skeletons
;;;
;;;----- Revision history ---------------------------------------------------
;;;
;;; $Log: skel.el.in,v $
+;;; Revision 1.3 1999/08/20 07:40:51 mdw
+;;; Slight twiddles to the Lisp code.
+;;;
;;; Revision 1.2 1999/05/05 19:30:38 mdw
;;; Misc tidying.
;;;
;; --- Build one big list of all the possible names ---
- (let ((l (skel-join (lambda (x y) (if (string= y "")
- x
- (expand-file-name y x)))
+ (let ((l (skel-join #'(lambda (x y) (if (string= y "")
+ x
+ (expand-file-name y x)))
nil
(append (skel-parents default-directory)
skel-skeleton-path)
(and ext
(skel-find-skeleton
(if (listp skel-skelrc)
- (mapcar (lambda (x) (concat x ext)) skel-skelrc)
+ (mapcar #'(lambda (x) (concat x ext)) skel-skelrc)
(concat skel-skelrc ext))
t)))))
(while rc