Mercurial > hg > xemacs-beta
diff lisp/efs/efs-ovwrt.el @ 42:8b8b7f3559a2 r19-15b104
Import from CVS: tag r19-15b104
author | cvs |
---|---|
date | Mon, 13 Aug 2007 08:54:51 +0200 |
parents | 7e54bd776075 |
children | 15872534500d |
line wrap: on
line diff
--- a/lisp/efs/efs-ovwrt.el Mon Aug 13 08:54:26 2007 +0200 +++ b/lisp/efs/efs-ovwrt.el Mon Aug 13 08:54:51 2007 +0200 @@ -3,7 +3,7 @@ ;; ;; File: efs-ovwrt.el ;; Release: $efs release: 1.15 $ -;; Version: $Revision: 1.2 $ +;; Version: #Revision: 1.2 $ ;; RCS: ;; Description: Utilities for overwriting functions with new definitions. ;; Author: Andy Norman <ange@hplb.hpl.hp.com> @@ -15,11 +15,15 @@ ;;; makes it easier for other programs to require them. (provide 'efs-ovwrt) +(eval-when-compile + (condition-case nil + (require 'advice) + (error))) (defconst efs-ovwrt-version (concat (substring "$efs release: 1.15 $" 14 -2) "/" - (substring "$Revision: 1.2 $" 11 -2))) + (substring "#Revision: 1.2 $" 11 -2))) (defvar efs-overwrite-fmt "Note: This function has been modified to work with %s.")