comparison lisp/efs/efs-cp-p.el @ 116:9f59509498e1 r20-1b10

Import from CVS: tag r20-1b10
author cvs
date Mon, 13 Aug 2007 09:23:06 +0200
parents 8619ce7e4c50
children
comparison
equal deleted inserted replaced
115:f109f7dabbe2 116:9f59509498e1
1 ;; -*-Emacs-Lisp-*- 1 ;; -*-Emacs-Lisp-*-
2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3 ;; 3 ;;
4 ;; File: efs-cp-p.el 4 ;; File: efs-cp-p.el
5 ;; Release: $efs release: 1.15 $ 5 ;; Release: $efs release: 1.15 $
6 ;; Version: $Revision: 1.2 $ 6 ;; Version: #Revision: 1.1 $
7 ;; RCS: 7 ;; RCS:
8 ;; Description: Support for preserving file modtimes with copies. i.e. cp -p 8 ;; Description: Support for preserving file modtimes with copies. i.e. cp -p
9 ;; Author: Sandy Rutherford <sandy@ibm550.sissa.it> 9 ;; Author: Sandy Rutherford <sandy@ibm550.sissa.it>
10 ;; Created: Fri Feb 18 03:28:22 1994 by sandy on ibm550 10 ;; Created: Fri Feb 18 03:28:22 1994 by sandy on ibm550
11 ;; Modified: Sun Nov 27 12:17:33 1994 by sandy on gandalf 11 ;; Modified: Sun Nov 27 12:17:33 1994 by sandy on gandalf
22 ;;;; Internal Variables 22 ;;;; Internal Variables
23 23
24 (defconst efs-cp-p-version 24 (defconst efs-cp-p-version
25 (concat (substring "$efs release: 1.15 $" 14 -2) 25 (concat (substring "$efs release: 1.15 $" 14 -2)
26 "/" 26 "/"
27 (substring "$Revision: 1.2 $" 11 -2))) 27 (substring "#Revision: 1.1 $" 11 -2)))
28 28
29 (defvar efs-local-timezone nil) 29 (defvar efs-local-timezone nil)
30 ;; cache. 30 ;; cache.
31 31
32 ;;; Utility functions 32 ;;; Utility functions