~mdw
/
skel
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Build system spring-clean.
[skel]
/
skel.el.in
diff --git
a/skel.el.in
b/skel.el.in
index
154eb1f
..
b56afe0
100644
(file)
--- a/
skel.el.in
+++ b/
skel.el.in
@@
-1,7
+1,5
@@
;;; -*-emacs-lisp-*-
;;;
;;; -*-emacs-lisp-*-
;;;
-;;; $Id: skel.el.in,v 1.5 2004/04/08 01:36:28 mdw Exp $
-;;;
;;; Filling in skeletons
;;;
;;; (c) 1998 Mark Wooding
;;; Filling in skeletons
;;;
;;; (c) 1998 Mark Wooding
@@
-82,7
+80,9
@@
(let ((n (car l)))
(if (and (file-readable-p n) (file-regular-p n))
(if all
(let ((n (car l)))
(if (and (file-readable-p n) (file-regular-p n))
(if all
- (skel-do-find (cdr l) all (cons (abbreviate-file-name n) acc))
+ (skel-do-find (cdr l)
+ all
+ (cons (abbreviate-file-name n) acc))
(abbreviate-file-name n))
(skel-do-find (cdr l) all acc)))
acc))
(abbreviate-file-name n))
(skel-do-find (cdr l) all acc)))
acc))
@@
-198,7
+198,7
@@
(funcall switch (find-file-noselect name))
(kill-region (point-min) (point-max))
(funcall switch (find-file-noselect name))
(kill-region (point-min) (point-max))
- (insert-file skel)
+ (insert-file
-contents
skel)
;; --- Mangle the skeleton data in the file ---
;; --- Mangle the skeleton data in the file ---