From: mdw <mdw>
Date: Fri, 20 Aug 1999 07:40:51 +0000 (+0000)
Subject: Slight twiddles to the Lisp code.
X-Git-Tag: 1.0.2~2
X-Git-Url: https://git.distorted.org.uk/~mdw/skel/commitdiff_plain/4000b4fd215da66cb5544cf697120b22775c67d3

Slight twiddles to the Lisp code.
---

diff --git a/skel.el.in b/skel.el.in
index 9208f30..b53922e 100644
--- a/skel.el.in
+++ b/skel.el.in
@@ -1,6 +1,6 @@
 ;;; -*-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
 ;;;
@@ -26,6 +26,9 @@
 ;;;----- 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.
 ;;;
@@ -106,9 +109,9 @@ first.  ACC is a base list to which the matching filenames are prepended."
 
   ;; --- 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)
@@ -218,7 +221,7 @@ argument is called to display the buffer."
 	       (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