X-Git-Url: https://git.distorted.org.uk/~mdw/skel/blobdiff_plain/0c9e120c4516671e9f61bd32e4ce8adbcbae0db0..0c8f0f120395c2befbc251cab6ef073fe6767e50:/skel.el.in diff --git a/skel.el.in b/skel.el.in index 0ce3831..8b6e965 100644 --- a/skel.el.in +++ b/skel.el.in @@ -13,12 +13,12 @@ ;;; it under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 2 of the License, or ;;; (at your option) any later version. -;;; +;;; ;;; This program is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. -;;; +;;; ;;; You should have received a copy of the GNU General Public License ;;; along with this program; if not, write to the Free Software Foundation, ;;; Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. @@ -82,7 +82,9 @@ (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)) @@ -238,7 +240,7 @@ "Like skel-create-file, but in another window." (interactive "FSkeleton create file in other window: \nP") (skel-do-create-file name 'switch-to-buffer-other-window skel)) - + (defun skel-create-file-other-frame (name &optional skel) "Like skel-create-file, but in another frame." (interactive "FSkeleton create file in other frame: \nP")