~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
d409011
..
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.
1 1999/04/05 13:44:59
mdw Exp $
+;;; $Id: skel.el.in,v 1.
3 1999/08/20 07:40:51
mdw Exp $
;;;
;;; Filling in skeletons
;;;
;;;
;;; Filling in skeletons
;;;
@@
-26,8
+26,14
@@
;;;----- Revision history ---------------------------------------------------
;;;
;;; $Log: skel.el.in,v $
;;;----- Revision history ---------------------------------------------------
;;;
;;; $Log: skel.el.in,v $
-;;; Revision 1.1 1999/04/05 13:44:59 mdw
-;;; Initial revision
+;;; 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) --------------------------------------
;;;
;;;----- Variables (largely tweakable) --------------------------------------
@@
-103,14
+109,14
@@
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)
skel-directory-list
nil
(append (skel-parents default-directory)
skel-skeleton-path)
skel-directory-list
- (if (
list
p name) name (cons name nil)))))
+ (if (
cons
p name) name (cons name nil)))))
;; --- Now filter out any which aren't interesting ---
;; --- Now filter out any which aren't interesting ---
@@
-171,7
+177,7
@@
argument is called to display the buffer."
;;
;; This is a little bit of a hack, but do I look like someone who cares?
;;
;; 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 ---
;; --- Find out if the file's there already ---
@@
-215,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