;***************************************************************************************************
;*                                                                                                 *
;*  siliconBrainEmacsStart.el: EMACS functionality needed or helpfull for working with             *
;*                             siliconBrain projects.                                              *
;*                                                                                                 *
;***************************************************************************************************

;***************************************************************************************************
;*                                                                                                 *
;*    Copyright (C) 2003 Joerg Kunze                                                               *
;*                                                                                                 *
;*    This file is part of siliconBrain.                                                           *
;*                                                                                                 *
;*    siliconBrain is free software; you can redistribute it and/or modify                         *
;*    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.                                                          *
;*                                                                                                 *
;*    siliconBrain 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                    *
;*                                                                                                 *
;***************************************************************************************************
(let (
   (siliconBrainRelease       "$siliconBrainRelease: 0.2.3 $")
   (siliconBrainRcsIdentifier "$Id: siliconBrainEmacsStart.el,v 1.24 2004/12/14 23:31:26 joerg Exp $")
   (siliconBrainSaveStamp     "$siliconBrainSaveStamp: 2004/12/14 22:34:54, Joerg Kunze$"))

;***************************************************************************************************
;*                                                                                                 *
;* write-file-hooks: to write a save stamp, whenever we save a file                                *
;*                   (taken from Bob Glickstein's "GNU Emacs Extensions").                         *
;*                                                                                                 *
;***************************************************************************************************
(add-hook 'write-file-hooks '(lambda ()
   (save-excursion (save-restriction (save-match-data
      (widen)
      (goto-char (point-min))
      (while (search-forward (concat "$" "siliconBrainSaveStamp:") nil t)
         (let ((start (point)))
            (if (search-forward "$" (save-excursion (end-of-line) (point)) t) (progn
               (delete-region start (1- (point)))
               (goto-char start)
               (insert (format-time-string (concat " %Y/%m/%d %T, " user-full-name )(current-time) t))
            ))
	      )
      )
   )))
))
)

; $Log: siliconBrainEmacsStart.el,v $
; Revision 1.24  2004/12/14 23:31:26  joerg
; published for new release 0.2.3
;
; Revision 1.23  2004/12/14 23:17:05  joerg
; published for new release 0.2.2
;
; Revision 1.22  2004/12/14 22:42:23  joerg
; allFiles: all sources have a Log CVS keyword at the end now.
;