;;; -*-emacs-lisp-*-
;;;
-;;; $Id: skel.el.in,v 1.2 1999/05/05 19:30:38 mdw Exp $
+;;; $Id: skel.el.in,v 1.5 2004/04/08 01:36:28 mdw Exp $
;;;
;;; Filling in skeletons
;;;
;;; along with this program; if not, write to the Free Software Foundation,
;;; Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-;;;----- Revision history ---------------------------------------------------
-;;;
-;;; $Log: skel.el.in,v $
-;;; 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) --------------------------------------
(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")
;; --- 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