Debianization.

[skel] / skel.el.in

diff --git a/skel.el.in b/skel.el.in
index d409011..8847f7f 100644 (file)
--- a/skel.el.in
+++ b/skel.el.in
@@ -1,6 +1,6 @@
 ;;; -*-emacs-lisp-*-
 ;;;
-;;; $Id: skel.el.in,v 1.1 1999/04/05 13:44:59 mdw Exp $
+;;; $Id: skel.el.in,v 1.4 2003/11/29 23:35:38 mdw Exp $
 ;;;
 ;;; Filling in skeletons
 ;;;
@@ -26,8 +26,17 @@
 ;;;----- Revision history ---------------------------------------------------
 ;;;
 ;;; $Log: skel.el.in,v $
-;;; Revision 1.1  1999/04/05 13:44:59  mdw
-;;; Initial revision
+;;; Revision 1.4  2003/11/29 23:35:38  mdw
+;;; Debianization.
+;;;
+;;; 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.
+;;;
+;;; Revision 1.1.1.1  1999/04/05 13:44:59  mdw
+;;; Initial import.
 ;;;
 
 ;;;----- Variables (largely tweakable) --------------------------------------
@@ -35,7 +44,7 @@
 (defvar skel-directory-list '(".skel" "")
   "*List of directory names which contain skeleton files.")
 
-(defvar skel-skeleton-path '("@skeldir@" "~/skel" "~/src/skel")
+(defvar skel-skeleton-path '("/etc/skel" "@skeldir@" "~/skel" "~/src/skel")
   "*List of directories to search for skeleton data anyway.")
 
 (defvar skel-skelrc '(".skelrc" "skelrc")
@@ -103,14 +112,14 @@ 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)
                      skel-directory-list
-                     (if (listp name) name (cons name nil)))))
+                     (if (consp name) name (cons name nil)))))
 
     ;; --- Now filter out any which aren't interesting ---
 
@@ -171,7 +180,7 @@ argument is called to display the buffer."
   ;;
   ;; This is a little bit of a hack, but do I look like someone who cares?
 
-  (let (ext rc)
+  (let (ext)
 
     ;; --- Find out if the file's there already ---
 
@@ -215,7 +224,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