~mdw
/
skel
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add a new BSD-ish licence.
[skel]
/
skel.el.in
diff --git
a/skel.el.in
b/skel.el.in
index
9208f30
..
b53922e
100644
(file)
--- a/
skel.el.in
+++ b/
skel.el.in
@@
-1,6
+1,6
@@
;;; -*-emacs-lisp-*-
;;;
;;; -*-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
;;;
;;;
;;; Filling in skeletons
;;;
@@
-26,6
+26,9
@@
;;;----- Revision history ---------------------------------------------------
;;;
;;; $Log: skel.el.in,v $
;;;----- 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.
;;;
;;; 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 ---
;; --- 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)
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)
(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
(concat skel-skelrc ext))
t)))))
(while rc