;;; -*-emacs-lisp-*-
;;;
-;;; $Id: skel.el.in,v 1.1 1999/04/05 13:44:59 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.1 1999/04/05 13:44:59 mdw
-;;; Initial revision
-;;;
-
;;;----- 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)
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 ---
;;
;; 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 ---
(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